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');
if ($is_a_modif) {
warn "ITS A MODIF : .$biblionumber";
NEWmodbiblioframework($dbh,$biblionumber,$frameworkcode);
- NEWmodbiblio($dbh,$Zconn,$record,$biblionumber,$frameworkcode);
+ NEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode);
} else {
my $biblioitemnumber;
($biblionumber,$biblioitemnumber) = NEWnewbiblio($dbh,$record,$frameworkcode);