[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.6,1.7

[David Strainchamps]

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv6650

Modified Files:
        aqbookfund.pl 
Log Message:
fix that i had forgotten to template for $op=delete_confirm
and delete_confirmed


Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** aqbookfund.pl       10 Nov 2002 21:29:59 -0000      1.6
--- aqbookfund.pl       11 Nov 2002 08:36:44 -0000      1.7
***************
*** 143,158 ****
        my $data=$sth->fetchrow_hashref;
        $sth->finish;
!       print mktablehdr;
!       print mktablerow(2,'#99cc33',bold('Book 
fund'),bold("$bookfundid"),'/images/background-mem.gif');
!       print "<form action='$script_name' method=post><input type=hidden 
name=op value=delete_confirmed><input type=hidden name=bookfundid 
value='$bookfundid'>";
!       print "<tr><td>Name</td><td>$data->{'bookfundname'}</td></tr>";
!       print "<tr><td>Group</td><td>$data->{'bookfundgroup'}</td></tr>";
! #     if ($total->{'total'} >0) {
! #             print "<tr><td colspan=2 align=center><b>This record is used 
$total->{'total'} times. Deletion not possible</b></td></tr>";
! #             print "<tr><td colspan=2></form><form action='$script_name' 
method=post><input type=submit value=OK></form></td></tr>";
! #     } else {
!               print "<tr><td colspan=2 align=center>CONFIRM 
DELETION</td></tr>";
!               print "<tr><td><INPUT type=submit 
value='YES'></form></td><td><form action='$script_name' method=post><input 
type=submit value=NO></form></td></tr>";
! #     }
                                                                                
                        # END $OP eq DELETE_CONFIRM
  ################## DELETE_CONFIRMED ##################################
--- 143,149 ----
        my $data=$sth->fetchrow_hashref;
        $sth->finish;
!       $template->param(bookfundid => $bookfundid);
!       $template->param(bookfundname => $data->{'bookfundname'});
!       $template->param(bookfundgroup => $data->{'bookfundgroup'});
                                                                                
                        # END $OP eq DELETE_CONFIRM
  ################## DELETE_CONFIRMED ##################################
***************
*** 165,172 ****
        $sth->execute;
        $sth->finish;
-       print "data deleted";
-       print "<form action='$script_name' method=post>";
-       print "<input type=submit value=OK>";
-       print "</form>";
                                                                                
                        # END $OP eq DELETE_CONFIRMED
  ################## DEFAULT ##################################
--- 156,159 ----