|
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 |
- |
|
|