projects / koha.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4baae33)
Bugfix correcting 'New List' behavior on opac-search.pl
authorChris Nighswonger <chris.nighswonger@liblime.com>
Wed, 25 Jun 2008 23:34:50 +0000 (18:34 -0500)
committerJoshua Ferraro <jmf@liblime.com>
Thu, 26 Jun 2008 10:51:30 +0000 (05:51 -0500)
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
opac/opac-addbybiblionumber.pl patch | blob | history

diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
index 6104b5c..194aa67 100755 (executable)
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -28,6 +28,7 @@ use CGI;
 use C4::VirtualShelves;
 use C4::Auth;
 use C4::Output;
+use C4::Auth qw/get_session/;
 
 my $query        = new CGI;
 my @biblionumber = $query->param('biblionumber');
@@ -49,7 +50,10 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 $shelfnumber = AddShelf(  $newvirtualshelf, $loggedinuser, $category ) if $newvirtualshelf;
 
 # verify user is authorized to perform the action on the shelf...
-my $authorized = 1 if ( (ShelfPossibleAction( $loggedinuser, $selectedshelf )) );
+my $authorized = 1;
+if ($selectedshelf) {
+       $authorized = 0 unless ShelfPossibleAction( $loggedinuser, $selectedshelf );
+}
 
 # multiple bibs might come in as '/' delimited string (from where, i don't see), or as array.
 
@@ -61,7 +65,7 @@ if (scalar(@biblionumber) == 1) {
 if ($shelfnumber && ($shelfnumber != -1)) {
        for my $bib (@biblionumber){
                &AddToShelfFromBiblio($bib,$shelfnumber);
-       }       
+       }
        print $query->header;
        print "<html><body onload=\"window.close();\"><div>Please close this window to continue.</div></body></html>";
        exit;
Koha ILS @ FFZG - based on git://git.koha.org/pub/scm/koha.git