From ce8e70c6c60d51ac732e6bf365b75c1e9a12f160 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Wed, 10 Dec 2008 17:30:03 -0600
Subject: [PATCH] bug 2505: turned on warnings for suggestion/acceptorreject.pl

Also fixed case where HTML could have unclosed <form> elements,
leading to warnings in the error log when accepting pending
or rejected suggestions.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 .../prog/en/modules/suggestion/acceptorreject.tmpl           | 5 ++---
 suggestion/acceptorreject.pl                                 | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/acceptorreject.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/acceptorreject.tmpl
index fd2f85ae02..507361a193 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/acceptorreject.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/acceptorreject.tmpl
@@ -235,6 +235,7 @@
     <!--TMPL_IF EXPR="suggestiontype eq 'rejected'"-->
     <b>No rejected suggestions.</b>
     <!--/TMPL_IF-->  
+</form>
 <!-- /TMPL_IF -->
 
 </div>
@@ -244,6 +245,4 @@
 </div></div>
 
 </div>
-</div>
-</div>
-<!-- TMPL_INCLUDE NAME="intranet-bottom.inc" -->
\ No newline at end of file
+<!-- TMPL_INCLUDE NAME="intranet-bottom.inc" -->
diff --git a/suggestion/acceptorreject.pl b/suggestion/acceptorreject.pl
index 5100334282..cbc0b98c2e 100755
--- a/suggestion/acceptorreject.pl
+++ b/suggestion/acceptorreject.pl
@@ -65,6 +65,7 @@ op can be :
 =cut
 
 use strict;
+use warnings;
 
 use CGI;
 
@@ -139,7 +140,6 @@ if ( $op eq "aorr_confirm" ) {
     $op = "else";
     if (scalar(@deletelist)>0){  
         my $params = "&delete_field=".join ("&delete_field=",@deletelist);
-        warn $params;    
         print $input->redirect("/cgi-bin/koha/suggestion/acceptorreject.pl?op=delete_confirm$params");
     }  
 }
-- 
2.39.5