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

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 4519732..16e663a 100755 (executable)
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -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;
\ No newline at end of file
+output_html_with_http_headers $input, $cookie, $template->output;