Lines 192-198
if ( $op eq 'form' ) {
Link Here
|
192 |
my $error = eval { |
192 |
my $error = eval { |
193 |
my $record = GetMarcBiblio( $biblionumber ); |
193 |
my $record = GetMarcBiblio( $biblionumber ); |
194 |
ModifyRecordWithTemplate( $mmtid, $record ); |
194 |
ModifyRecordWithTemplate( $mmtid, $record ); |
195 |
ModBiblio( $record, $biblionumber ); |
195 |
my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); |
|
|
196 |
ModBiblio( $record, $biblionumber, $frameworkcode ); |
196 |
}; |
197 |
}; |
197 |
if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well |
198 |
if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well |
198 |
push @messages, { |
199 |
push @messages, { |
199 |
- |
|
|