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