[Koha-cvs] CVS: koha/admin aqbudget.pl,1.14,1.15

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv15304/admin

Modified Files:
	aqbudget.pl 
Log Message:
fixes for bookfunds & budget. Should work now. I fix #223, #424

Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** aqbudget.pl	6 Jun 2003 14:50:36 -0000	1.14
--- aqbudget.pl	13 Jun 2003 13:46:03 -0000	1.15
***************
*** 123,127 ****
  	    $template->param(bookfundname => $dataaqbudget->{bookfundname});
  	} else {
! 	    $template->param(adding => 1);
  	}
  	$template->param(dateformat => display_date_format(),
--- 123,128 ----
  	    $template->param(bookfundname => $dataaqbudget->{bookfundname});
  	} else {
! 	    $template->param(bookfundid => $bookfundid,
! 	    							adding => 1);
  	}
  	$template->param(dateformat => display_date_format(),
***************
*** 144,148 ****
  						);
  	$sth->finish;
! 													# END $OP eq ADD_VALIDATE
  ################## DELETE_CONFIRM ##################################
  # called by default form, used to confirm deletion of data in DB
--- 145,151 ----
  						);
  	$sth->finish;
! 	 print $input->redirect("aqbookfund.pl");
! 	 exit;
! # END $OP eq ADD_VALIDATE
  ################## DELETE_CONFIRM ##################################
  # called by default form, used to confirm deletion of data in DB