bugfixes
This commit is contained in:
parent
5347b92619
commit
c0577fbdf9
2 changed files with 16 additions and 3 deletions
|
@ -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'});
|
||||||
|
|
||||||
|
|
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue