At the moment, the script doesn't add the biblio record in the just created
shelf, but it should.
This patch fix this, and add the record in the shelf.
---
opac/opac-addbybiblionumber.pl | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
index 9fe02ee..148441f 100755
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -50,6 +50,9 @@ my ( $template, $loggedinuser, $cookie ) =
get_template_and_user(
if ($newvirtualshelf) {
$shelfnumber = AddShelf( $newvirtualshelf, $loggedinuser, $category );
+ if(@biblionumber){
+ AddToShelfFromBiblio(@biblionumber,$shelfnumber);
+ }
RefreshShelvesSummary($query->cookie("CGISESSID"),$loggedinuser,($loggedinuser
== -1 ? 20 : 10));
print $query->header;
print "<html><body
onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
@@ -95,13 +98,13 @@ else {
my ($shelflist) = GetRecentShelves(1, $limit, $loggedinuser);
my @shelvesloop;
my %shelvesloop;
- for my $shelf ( @[EMAIL PROTECTED] ) {
+ for my $shelf ( @{ $shelflist->[0] } ) {
push( @shelvesloop, $shelf->{shelfnumber} );
$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
}
# then open shelves...
my ($shelflist) = GetRecentShelves(3, $limit, undef);
- for my $shelf ( @[EMAIL PROTECTED] ) {
+ for my $shelf ( @{ $shelflist->[0] } ) {
push( @shelvesloop, $shelf->{shelfnumber} );
$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
}
--
1.5.6.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
