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

(-)a/tools/batch_record_modification.pl (-2 / +2 lines)
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
- 

Return to bug 14795