- $template->param(itemtype => $itemtype,
- description => $data->{description},
- renewalsallowed => $data->{renewalsallowed},
- rentalcharge => sprintf("%.2f",$data->{rentalcharge}),
- imageurl => $data->{imageurl},
- total => $total);
- # END $OP eq DELETE_CONFIRM
-################## DELETE_CONFIRMED ##################################
-# called by delete_confirm, used to effectively confirm deletion of data in DB
-} elsif ($op eq 'delete_confirmed') {
- #start the page and read in includes
- my $dbh = C4::Context->dbh;
- my $itemtype=uc($input->param('itemtype'));
- my $sth=$dbh->prepare("delete from itemtypes where itemtype=?");
- $sth->execute($itemtype);
- $sth = $dbh->prepare("delete from issuingrules where itemtype=?");
- $sth->execute($itemtype);
- $sth->finish;
- print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";
- exit;
- # END $OP eq DELETE_CONFIRMED
-################## DEFAULT ##################################
-} else { # DEFAULT
- my ($count,$results)=StringSearch($searchfield,'web');