@@ -, +, @@ --- C4/Biblio.pm | 17 ----------------- cataloguing/addbiblio.pl | 1 - 2 files changed, 18 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -110,7 +110,6 @@ BEGIN { # To modify something push @EXPORT, qw( &ModBiblio - &ModBiblioframework &ModZebra &UpdateTotalIssues &RemoveAllNsb @@ -386,22 +385,6 @@ sub _strip_item_fields { } } -=head2 ModBiblioframework - - ModBiblioframework($biblionumber,$frameworkcode); - -Exported function to modify a biblio framework - -=cut - -sub ModBiblioframework { - my ( $biblionumber, $frameworkcode ) = @_; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare( "UPDATE biblio SET frameworkcode=? WHERE biblionumber=?" ); - $sth->execute( $frameworkcode, $biblionumber ); - return 1; -} - =head2 DelBiblio my $error = &DelBiblio($biblionumber); --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -837,7 +837,6 @@ if ( $op eq "addbiblio" ) { BiblioAutoLink( $record, $frameworkcode ); } if ( $is_a_modif ) { - ModBiblioframework( $biblionumber, $frameworkcode ); ModBiblio( $record, $biblionumber, $frameworkcode ); } else { --