[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 ----