Bug 22343: Adapt controller scripts

[srvgit] / misc / cronjobs / runreport.pl
diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl

index 89ef215..1f50483 100755 (executable)
--- a/misc/cronjobs/runreport.pl
+++ b/misc/cronjobs/runreport.pl
@@ -265,7 +265,7 @@ foreach my $report_id (@ARGV) {
      }
  
      # convert SQL parameters to placeholders
-    my $params_needed = ( $sql =~ s/(<<.*?>>)/\?/g );
+    my $params_needed = ( $sql =~ s/(<<[^>]+>>)/\?/g );
      die("You supplied ". scalar @params . " parameter(s) and $params_needed are required by the report") if scalar @params != $params_needed;
  
      my ($sth) = execute_query( $sql, undef, undef, \@params, $report_id );
@@ -318,12 +318,12 @@ foreach my $report_id (@ARGV) {
              $message = "<html><head><style>tr:nth-child(2n+1) { background-color: #ccc;}</style></head><body>$message</body></html>";
              $args->{contenttype} = 'text/html';
          }
-        my $email = Koha::Email->new();
-        my %mail  = $email->create_message_headers($args);
-        $mail{Data} = $message;
-        $mail{Auth} = { user => $username, pass => $password, method => $method } if $username;
+        my $email = Koha::Email->create( $args );
+        my %headers = $email->header_pairs;
+        $headers{Data} = $message;
+        $headers{Auth} = { user => $username, pass => $password, method => $method } if $username;
  
-        my $msg = MIME::Lite->new(%mail);
+        my $msg = MIME::Lite->new(%headers);
  
          $msg->attach(
              Type        => "text/$format",