From 5d4613fde0be8e391c33eed549c3e8405ddf6644 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Fri, 20 Jun 2008 15:18:14 -0500 Subject: [PATCH] Use C4::Debug on warn statements. Signed-off-by: Joshua Ferraro --- admin/aqbookfund.pl | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 184f059765..d5673c8c36 100755 --- a/admin/aqbookfund.pl +++ b/admin/aqbookfund.pl @@ -52,14 +52,15 @@ C can be equal to: use strict; use CGI; -use C4::Branch; # GetBranches use List::Util qw/min/; +use C4::Branch; # GetBranches use C4::Auth; use C4::Koha; use C4::Context; use C4::Bookfund; use C4::Output; use C4::Dates; +use C4::Debug; # use Smart::Comments; @@ -167,29 +168,22 @@ elsif ($op eq 'add_validate') { #-----############# MOD_VALIDATE ################################## # called by add_form, used to insert/modify data in DB elsif ($op eq 'mod_validate') { -### mod ddddddddddddddddd - my $bookfundid = uc $input->param('bookfundid'); my $bookfundname = $input->param('bookfundname'); my $branchcode = $input->param('branchcode' ) || undef; my $current_branch = $input->param('current_branch') || undef; - warn "$bookfundid, $bookfundname, $branchcode"; + $debug and warn "$bookfundid, $bookfundname, $branchcode"; my $number = Countbookfund($bookfundid,$branchcodeid); -### $number - - if ($number < 2) { - warn "name :$bookfundname branch:$branchcode"; + $debug and warn "name :$bookfundname branch:$branchcode"; ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode); } $input->redirect('aqbookfund.pl'); -# END $OP eq ADD_VALIDATE } #-----############# DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB - elsif ($op eq 'delete_confirm') { my $data = GetBookFund($bookfundid,$branchcodeid); $template->param(bookfundid => $bookfundid); @@ -197,7 +191,6 @@ elsif ($op eq 'delete_confirm') { $template->param(branchcode => $data->{'branchcode'}); } # END $OP eq DELETE_CONFIRM - #-----############# DELETE_CONFIRMED ################################## # called by delete_confirm, used to effectively confirm deletion of data in DB elsif ($op eq 'delete_confirmed') { @@ -205,7 +198,6 @@ elsif ($op eq 'delete_confirmed') { }# END $OP eq DELETE_CONFIRMED - #-----############# DEFAULT ################################## else { # DEFAULT my ($query, $sth); -- 2.39.5