This commit is contained in:
tipaul 2003-03-18 11:15:36 +00:00
parent 5347b92619
commit c0577fbdf9
2 changed files with 16 additions and 3 deletions

View file

@ -26,6 +26,7 @@
# Suite 330, Boston, MA 02111-1307 USA # Suite 330, Boston, MA 02111-1307 USA
use strict; use strict;
require Exporter;
use C4::Search; use C4::Search;
use C4::Output; use C4::Output;
@ -33,6 +34,10 @@ use C4::Koha;
use CGI; use CGI;
use HTML::Template; use HTML::Template;
use C4::Biblio;
use C4::Catalogue;
use C4::Auth;
use C4::Interface::CGI::Output;
my $input = new CGI; my $input = new CGI;
my $bibitemnum=$input->param('bibitem'); my $bibitemnum=$input->param('bibitem');
@ -43,7 +48,14 @@ if ($submit eq ''){
print $input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio"); print $input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
} }
my $template = gettemplate("modbibitem.tmpl"); my ($template, $loggedinuser, $cookie) = get_template_and_user({
template_name => 'modbibitem.tmpl',
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {catalogue => 1},
});
my %inputs; my %inputs;
@ -85,7 +97,9 @@ $inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
$template->param( biblionumber => $data->{'biblionumber'}, $template->param( biblionumber => $data->{'biblionumber'},
title => $data->{'title'}, title => $data->{'title'},
author => $data->{'author'}, author => $data->{'author'},
description => $data->{'description'}); description => $data->{'description'},
loggedinuser => $loggedinuser,
);
my ($count,@bibitems)=bibitems($data->{'biblionumber'}); my ($count,@bibitems)=bibitems($data->{'biblionumber'});

View file

@ -22,7 +22,6 @@
use strict; use strict;
use CGI; use CGI;
use C4::Context; use C4::Context;
use C4::Acquisitions;
use C4::Biblio; use C4::Biblio;
use C4::Output; use C4::Output;
use C4::Circulation::Circ2; use C4::Circulation::Circ2;