X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqbookfund.pl;h=d5673c8c36488cbe4f0dcd822e6d815f74dc9e87;hb=99f92cc8a54a11bd5722f2d577f814dfcf214526;hp=184f05976551a0c675cb9bc117917d24c30d5485;hpb=acfd4dd20b323d9c736ea08756a8dfac6bd03d29;p=koha.git

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<op> 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);