C4/Search.pm followup auto_truncation

[koha.git] / tools / runreport.pl

diff --git a/tools/runreport.pl b/tools/runreport.pl
index 412d806..9801a4a 100755 (executable)
--- a/tools/runreport.pl
+++ b/tools/runreport.pl
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
 
 # fix this line
-use C4::Reports;
+use C4::Reports::Guided;
+use C4::Context;
 
 use Mail::Sendmail;
 
@@ -21,7 +22,7 @@ if ($format eq 'url'){
 if ($email){
        my $to      = $email;
        # should be koha admin email
-    my $from    = 'crc@liblime.com';
+    my $from    = C4::Context->preference('KohaAdminEmailAddress');
     my $subject = 'Automated job run';
     my %mail    = (
                        To      => $to,