|
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 |
- |
|
|