Allowing users to edit saved sql in guided reports. Bug 1545

[koha.git] / C4 / Reports / Guided.pm

diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm
index 669b3eb..86c5ccb 100644 (file)
--- a/C4/Reports/Guided.pm
+++ b/C4/Reports/Guided.pm
@@ -42,7 +42,7 @@ BEGIN {
                save_report get_saved_reports execute_query get_saved_report create_compound run_compound
                get_column_type get_distinct_values save_dictionary get_from_dictionary
                delete_definition delete_report format_results get_sql
-        select_2_select_count_value
+        select_2_select_count_value update_sql
        );
 }
 
@@ -446,6 +446,17 @@ sub save_report {
     $sth->execute( 0, $sql, $name, $type, $notes );
 }
 
+sub update_sql {
+    my $id = shift || croak "No Id given";
+    my $sql = shift;
+    my $dbh = C4::Context->dbh();
+    $sql =~ s/(\s*\;\s*)$//; # removes trailing whitespace and /;/
+    my $query = "UPDATE saved_sql SET savedsql = ?, last_modified = now() WHERE id = ? ";
+    my $sth = $dbh->prepare($query);
+    $sth->execute( $sql, $id );
+    $sth->finish();
+}
+
 sub store_results {
        my ($id,$xml)=@_;
        my $dbh = C4::Context->dbh();