|
Lines 243-249
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 = $table eq 'items' ? $i->$column : $i->biblioitem->$column; |
246 |
my $value = |
|
|
247 |
$table eq 'items' ? $i->$column |
| 248 |
: $table eq 'biblio' ? $i->biblio->$column |
| 249 |
: $i->biblioitem->$column; |
| 247 |
$output .= " {" . $i->itemnumber . " => " . $value . "}"; |
250 |
$output .= " {" . $i->itemnumber . " => " . $value . "}"; |
| 248 |
} |
251 |
} |
| 249 |
new_item( |
252 |
new_item( |
| 250 |
- |
|
|