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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-2 / +1 lines)
Lines 237-247 use C4::Biblio qw( GetMarcFromKohaField ); Link Here
237
    if (%$invalid_av_per_framework) {
237
    if (%$invalid_av_per_framework) {
238
        new_section('Wrong values linked to authorised values');
238
        new_section('Wrong values linked to authorised values');
239
        for my $frameworkcode ( keys %$invalid_av_per_framework ) {
239
        for my $frameworkcode ( keys %$invalid_av_per_framework ) {
240
            my $output;
241
            while ( my ( $av_category, $v ) = each %{$invalid_av_per_framework->{$frameworkcode}} ) {
240
            while ( my ( $av_category, $v ) = each %{$invalid_av_per_framework->{$frameworkcode}} ) {
242
                my $items     = $v->{items};
241
                my $items     = $v->{items};
243
                my $kohafield = $v->{kohafield};
242
                my $kohafield = $v->{kohafield};
244
                my ( $table, $column ) = split '\.', $kohafield;
243
                my ( $table, $column ) = split '\.', $kohafield;
244
                my $output;
245
                while ( my $i = $items->next ) {
245
                while ( my $i = $items->next ) {
246
                    my $value = $table eq 'items' ? $i->$column : $i->biblioitem->$column;
246
                    my $value = $table eq 'items' ? $i->$column : $i->biblioitem->$column;
247
                    $output .= " {" . $i->itemnumber . " => " . $value . "}";
247
                    $output .= " {" . $i->itemnumber . " => " . $value . "}";
248
- 

Return to bug 31299