Bug 22566: Fix some problems

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/misc/cronjobs/stockrotation.pl b/misc/cronjobs/stockrotation.pl
index 69ae97e..4df9d17 100755 (executable)
--- a/misc/cronjobs/stockrotation.pl
+++ b/misc/cronjobs/stockrotation.pl
@@ -354,7 +354,7 @@ sub _report_per_branch {
         return {
             letter        => $letter,
             email_address => $branch->{email},
-            $status
+            status        => $status
         };
     }
     return;
@@ -470,6 +470,8 @@ sub emit {
                 }
             }
             else {
+               $addressee ||= q{};
+                $params->{admin_email} ||= q{};
                 my $email =
                   "-------- Email message --------" . "\n\n" . "To: "
                   . defined($addressee)               ? $addressee