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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-5 / +5 lines)
Lines 243-252 use C4::Biblio qw( GetMarcFromKohaField ); Link Here
243
                my $kohafield = $v->{kohafield};
243
                my $kohafield = $v->{kohafield};
244
                my ( $table, $column ) = split '\.', $kohafield;
244
                my ( $table, $column ) = split '\.', $kohafield;
245
                while ( my $i = $items->next ) {
245
                while ( my $i = $items->next ) {
246
                    my $value =
246
                    my $value = $table eq 'items'
247
                        $table eq 'items'  ? $i->$column
247
                        ? $i->$column
248
                      : $table eq 'biblio' ? $i->biblio->$column
248
                        : $table eq 'biblio'
249
                      :                      $i->biblioitem->$column;
249
                        ? $i->biblio->$column
250
                        : $i->biblioitem->$column;
250
                    $output .= " {" . $i->itemnumber . " => " . $value . "}";
251
                    $output .= " {" . $i->itemnumber . " => " . $value . "}";
251
                }
252
                }
252
                new_item(
253
                new_item(
253
- 

Return to bug 31239