View | Details | Raw Unified | Return to bug 17629
Collapse All | Expand All

(-)a/C4/Biblio.pm (-17 lines)
Lines 110-116 BEGIN { Link Here
110
    # To modify something
110
    # To modify something
111
    push @EXPORT, qw(
111
    push @EXPORT, qw(
112
      &ModBiblio
112
      &ModBiblio
113
      &ModBiblioframework
114
      &ModZebra
113
      &ModZebra
115
      &UpdateTotalIssues
114
      &UpdateTotalIssues
116
      &RemoveAllNsb
115
      &RemoveAllNsb
Lines 386-407 sub _strip_item_fields { Link Here
386
    }
385
    }
387
}
386
}
388
387
389
=head2 ModBiblioframework
390
391
   ModBiblioframework($biblionumber,$frameworkcode);
392
393
Exported function to modify a biblio framework
394
395
=cut
396
397
sub ModBiblioframework {
398
    my ( $biblionumber, $frameworkcode ) = @_;
399
    my $dbh = C4::Context->dbh;
400
    my $sth = $dbh->prepare( "UPDATE biblio SET frameworkcode=? WHERE biblionumber=?" );
401
    $sth->execute( $frameworkcode, $biblionumber );
402
    return 1;
403
}
404
405
=head2 DelBiblio
388
=head2 DelBiblio
406
389
407
  my $error = &DelBiblio($biblionumber);
390
  my $error = &DelBiblio($biblionumber);
(-)a/cataloguing/addbiblio.pl (-2 lines)
Lines 837-843 if ( $op eq "addbiblio" ) { Link Here
837
            BiblioAutoLink( $record, $frameworkcode );
837
            BiblioAutoLink( $record, $frameworkcode );
838
        } 
838
        } 
839
        if ( $is_a_modif ) {
839
        if ( $is_a_modif ) {
840
            ModBiblioframework( $biblionumber, $frameworkcode ); 
841
            ModBiblio( $record, $biblionumber, $frameworkcode );
840
            ModBiblio( $record, $biblionumber, $frameworkcode );
842
        }
841
        }
843
        else {
842
        else {
844
- 

Return to bug 17629