Adding support for new Zconn object from C4::Context.pm
This commit is contained in:
parent
13388132cd
commit
e035283a5f
1 changed files with 3 additions and 2 deletions
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue