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