Lines 641-647
sub update_sql {
Link Here
|
641 |
my $cache_expiry = $fields->{cache_expiry}; |
641 |
my $cache_expiry = $fields->{cache_expiry}; |
642 |
my $public = $fields->{public}; |
642 |
my $public = $fields->{public}; |
643 |
|
643 |
|
644 |
$sql =~ s/(\s*\;\s*)$//; # removes trailing whitespace and /;/ |
644 |
$sql =~ s/(\s*\;\s*)$// if defined $sql; # removes trailing whitespace and /;/ |
645 |
my $report = Koha::Reports->find($id); |
645 |
my $report = Koha::Reports->find($id); |
646 |
$report->last_modified(dt_from_string); |
646 |
$report->last_modified(dt_from_string); |
647 |
$report->savedsql($sql); |
647 |
$report->savedsql($sql); |
648 |
- |
|
|