Attachment #57955 for bug #17629

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




    # To modify something
    push @EXPORT, qw(
      &ModBiblio
      &ModBiblioframework
      &ModZebra
      &UpdateTotalIssues
      &RemoveAllNsb

    }
}

=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);

Lines 837-843 if ( $op eq "addbiblio" ) { Link Here

(-)a/cataloguing/addbiblio.pl (-2 lines)
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

Lines 110-116 BEGIN { Link Here

(-)a/C4/Biblio.pm (-17 lines)
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);