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