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

(-)a/C4/Biblio.pm (-17 lines)
Lines 109-115 BEGIN { Link Here
109
    # To modify something
109
    # To modify something
110
    push @EXPORT, qw(
110
    push @EXPORT, qw(
111
      &ModBiblio
111
      &ModBiblio
112
      &ModBiblioframework
113
      &ModZebra
112
      &ModZebra
114
      &UpdateTotalIssues
113
      &UpdateTotalIssues
115
      &RemoveAllNsb
114
      &RemoveAllNsb
Lines 385-406 sub _strip_item_fields { Link Here
385
    }
384
    }
386
}
385
}
387
386
388
=head2 ModBiblioframework
389
390
   ModBiblioframework($biblionumber,$frameworkcode);
391
392
Exported function to modify a biblio framework
393
394
=cut
395
396
sub ModBiblioframework {
397
    my ( $biblionumber, $frameworkcode ) = @_;
398
    my $dbh = C4::Context->dbh;
399
    my $sth = $dbh->prepare( "UPDATE biblio SET frameworkcode=? WHERE biblionumber=?" );
400
    $sth->execute( $frameworkcode, $biblionumber );
401
    return 1;
402
}
403
404
=head2 DelBiblio
387
=head2 DelBiblio
405
388
406
  my $error = &DelBiblio($biblionumber);
389
  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