Lines 656-662
sub update_sql {
Link Here
|
656 |
my $cache_expiry = $fields->{cache_expiry}; |
656 |
my $cache_expiry = $fields->{cache_expiry}; |
657 |
my $public = $fields->{public}; |
657 |
my $public = $fields->{public}; |
658 |
|
658 |
|
659 |
$sql =~ s/(\s*\;\s*)$//; # removes trailing whitespace and /;/ |
659 |
$sql =~ s/(\s*\;\s*)$// if defined $sql; # removes trailing whitespace and /;/ |
660 |
my $report = Koha::Reports->find($id); |
660 |
my $report = Koha::Reports->find($id); |
661 |
$report->last_modified(dt_from_string); |
661 |
$report->last_modified(dt_from_string); |
662 |
$report->savedsql($sql); |
662 |
$report->savedsql($sql); |
663 |
- |
|
|