From ce6ef24029805d391078267401ebb5182d9da5b3 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Wed, 21 Aug 2013 10:35:02 +0200
Subject: [PATCH] Bug 3134: Reindent delete_report
The first patch add a bad indentation for this routine. This patch fixes
that.
The $sth->finish statement is useless and should be removed.
Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
---
C4/Reports/Guided.pm | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm
index 9447c71..befc777 100644
--- a/C4/Reports/Guided.pm
+++ b/C4/Reports/Guided.pm
@@ -610,11 +610,10 @@ sub format_results {
sub delete_report {
my (@ids) = @_;
- my $dbh = C4::Context->dbh;
- my $query = 'DELETE FROM saved_sql WHERE id IN (' . join( ',', ('?') x @ids ) . ')';
- my $sth = $dbh->prepare($query);
- $sth->execute(@ids);
- $sth->finish;
+ my $dbh = C4::Context->dbh;
+ my $query = 'DELETE FROM saved_sql WHERE id IN (' . join( ',', ('?') x @ids ) . ')';
+ my $sth = $dbh->prepare($query);
+ $sth->execute(@ids);
}
my $SAVED_REPORTS_BASE_QRY = <<EOQ;
--
1.7.10.4