From f8c08a6f69f85bf7715cacf0e5fc87c133c5ca33 Mon Sep 17 00:00:00 2001 From: lavide Date: Mon, 11 Nov 2002 08:36:44 +0000 Subject: [PATCH] fix that i had forgotten to template for $op=delete_confirm and delete_confirmed --- admin/aqbookfund.pl | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 8fcfe47307..5281f1c7a8 100755 --- a/admin/aqbookfund.pl +++ b/admin/aqbookfund.pl @@ -142,18 +142,9 @@ if ($op eq 'add_form') { $sth->execute; my $data=$sth->fetchrow_hashref; $sth->finish; - print mktablehdr; - print mktablerow(2,'#99cc33',bold('Book fund'),bold("$bookfundid"),'/images/background-mem.gif'); - print "
"; - print "Name$data->{'bookfundname'}"; - print "Group$data->{'bookfundgroup'}"; -# if ($total->{'total'} >0) { -# print "This record is used $total->{'total'} times. Deletion not possible"; -# print "
"; -# } else { - print "CONFIRM DELETION"; - print "
"; -# } + $template->param(bookfundid => $bookfundid); + $template->param(bookfundname => $data->{'bookfundname'}); + $template->param(bookfundgroup => $data->{'bookfundgroup'}); # END $OP eq DELETE_CONFIRM ################## DELETE_CONFIRMED ################################## # called by delete_confirm, used to effectively confirm deletion of data in DB @@ -164,10 +155,6 @@ if ($op eq 'add_form') { my $sth=$dbh->prepare($query); $sth->execute; $sth->finish; - print "data deleted"; - print "
"; - print ""; - print "
"; # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## } else { # DEFAULT -- 2.39.5