Fixing a hardcoded email address, changing to use the KohaAdminEmailAddress sys pref

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/tools/runreport.pl b/tools/runreport.pl
index 412d806..d2d85a2 100755 (executable)
--- a/tools/runreport.pl
+++ b/tools/runreport.pl
@@ -2,6 +2,7 @@
 
 # fix this line
 use C4::Reports;
+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,