Lines 52-57
if ( $op eq "cud-send" && $email_add && $user_email ) {
Link Here
|
52 |
my @bibs = split( /\//, $bib_list ); |
52 |
my @bibs = split( /\//, $bib_list ); |
53 |
my $iso2709; |
53 |
my $iso2709; |
54 |
foreach my $bib (@bibs) { |
54 |
foreach my $bib (@bibs) { |
|
|
55 |
$bib = int($bib); |
55 |
my $biblio = Koha::Biblios->find($bib) or next; |
56 |
my $biblio = Koha::Biblios->find($bib) or next; |
56 |
$iso2709 .= $biblio->metadata->record->as_usmarc(); |
57 |
$iso2709 .= $biblio->metadata->record->as_usmarc(); |
57 |
} |
58 |
} |
58 |
- |
|
|