Handle the case of not being able to instanciate messages when deleting a whole list of them.

perlDreamer · perlDreamer · commit 263b581a582d · 2012-07-26T16:00:28.000-07:00
diff --git a/lib/WebGUI/Account/Inbox.pm b/lib/WebGUI/Account/Inbox.pm
@@ -687,8 +687,9 @@ sub www_deleteMessages {
 
     my @messages = $session->form->process("message","checkList");
 
-    foreach my $messageId (@messages) {
+    MESSAGE: foreach my $messageId (@messages) {
         my $message = WebGUI::Inbox::Message->new($session, $messageId);
+        next MESSAGE unless $message;
         $message->delete;
     }
 

Original file line number	Diff line number	Diff line change
`@@ -687,8 +687,9 @@ sub www_deleteMessages {`
`687`	`687`
`688`	`688`	`my @messages = $session->form->process("message","checkList");`
`689`	`689`
`690`		`- foreach my $messageId (@messages) {`
	`690`	`+ MESSAGE: foreach my $messageId (@messages) {`
`691`	`691`	`my $message = WebGUI::Inbox::Message->new($session, $messageId);`
	`692`	`+ next MESSAGE unless $message;`
`692`	`693`	`$message->delete;`
`693`	`694`	`}`
`694`	`695`