projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 27266: Move GetMarcAuthors to Koha namespace
[srvgit]
/
virtualshelves
/
sendshelf.pl
diff --git
a/virtualshelves/sendshelf.pl
b/virtualshelves/sendshelf.pl
index
bc47249
..
58b4d14
100755
(executable)
--- a/
virtualshelves/sendshelf.pl
+++ b/
virtualshelves/sendshelf.pl
@@
-73,11
+73,12
@@
if ($to_address) {
while ( my $content = $contents->next ) {
my $biblionumber = $content->biblionumber;
while ( my $content = $contents->next ) {
my $biblionumber = $content->biblionumber;
+ my $biblio = Koha::Biblios->find( $biblionumber );
my $dat = GetBiblioData($biblionumber);
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
embed_items => 1 });
my $dat = GetBiblioData($biblionumber);
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
embed_items => 1 });
- my $marcauthorsarray =
GetMarcAuthors( $record, $marcflavour )
;
+ my $marcauthorsarray =
$biblio->get_authors_from_MARC
;
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
my @items = GetItemsInfo($biblionumber);
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
my @items = GetItemsInfo($biblionumber);