# fix this line
use C4::Reports;
+use C4::Context;
use Mail::Sendmail;
my ($report,$format,$email) = @ARGV;
my ($sql,$type) = get_saved_report($report);
-my $results = execute_query($sql,$type,$format);
+my $results = execute_query($sql,$type,$format,$report);
my $message;
if ($format eq 'text'){
$message="<table>$results</table>";
}
+if ($format eq 'url'){
+ $message="$results";
+}
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,