Adding support for new Zconn object from C4::Context.pm

This commit is contained in:
kados 2006-02-25 22:51:32 +00:00
parent 13388132cd
commit e035283a5f

View file

@ -354,6 +354,7 @@ my $z3950 = $input->param('z3950');
my $op = $input->param('op');
my $frameworkcode = $input->param('frameworkcode');
my $dbh = C4::Context->dbh;
my $Zconn = C4::Context->Zconn;
$frameworkcode = &MARCfind_frameworkcode($dbh,$biblionumber) if ($biblionumber and not ($frameworkcode));
$frameworkcode='' if ($frameworkcode eq 'Default');
@ -432,7 +433,7 @@ if ($op eq "addbiblio") {
if ($is_a_modif) {
warn "ITS A MODIF : .$biblionumber";
NEWmodbiblioframework($dbh,$biblionumber,$frameworkcode);
NEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode);
NEWmodbiblio($dbh,$Zconn,$record,$biblionumber,$frameworkcode);
} else {
my $biblioitemnumber;
($biblionumber,$biblioitemnumber) = NEWnewbiblio($dbh,$record,$frameworkcode);
@ -517,4 +518,4 @@ $template->param(
itemtype => $frameworkcode, # HINT: if the library has itemtype = framework, itemtype is auto filled !
hide_marc => C4::Context->preference('hide_marc'),
);
output_html_with_http_headers $input, $cookie, $template->output;
output_html_with_http_headers $input, $cookie, $template->output;