[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