patch for bug-3017

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm
index 5df6c2a..0e4f418 100644 (file)
--- a/C4/Reports/Guided.pm
+++ b/C4/Reports/Guided.pm
@@ -483,7 +483,7 @@ Given some sql and a name this will saved it so that it can resued
 sub save_report {
     my ( $sql, $name, $type, $notes ) = @_;
     my $dbh = C4::Context->dbh();
-    $sql =~ s/(\W*)$//;
+    $sql =~ s/(\s*\;\s*)$//; # removes trailing whitespace and /;/
     my $query =
 "INSERT INTO saved_sql (borrowernumber,date_created,last_modified,savedsql,report_name,type,notes)  VALUES (?,now(),now(),?,?,?,?)";
     my $sth = $dbh->prepare($query);