[Koha-cvs] koha/C4 BookShelves.pm [rel_2_2]

[paul poulain]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     paul poulain <tipaul>   07/02/08 09:53:02

Modified files:
        C4             : BookShelves.pm 

Log message:
        BUGFIX : 2 errors that are risen during compilation.
        This should NEVER happend. Please check that what you commit works, 
when you play with unstable branch it's important, when you play with stable 
branch, it's MANDATORY !

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/BookShelves.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.15.2.1&r2=1.15.2.2

Patches:
Index: BookShelves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v
retrieving revision 1.15.2.1
retrieving revision 1.15.2.2
diff -u -b -r1.15.2.1 -r1.15.2.2
--- BookShelves.pm      3 Feb 2007 08:42:10 -0000       1.15.2.1
+++ BookShelves.pm      8 Feb 2007 09:53:02 -0000       1.15.2.2
@@ -3,7 +3,7 @@
 
 package C4::BookShelves;
 
-# $Id: BookShelves.pm,v 1.15.2.1 2007/02/03 08:42:10 genji Exp $
+# $Id: BookShelves.pm,v 1.15.2.2 2007/02/08 09:53:02 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -311,7 +311,7 @@
 sub PhysicalShelfPossibleAction {
        my ($loggedinuser,$barcode,$action)= @_;
        my $sth = $dbh->prepare("select owner,category from Physicalbookshelf 
where barcode=?");
-       $sth->execute($shelfnumber, $barcode);
+       $sth->execute($barcode);
        my ($owner,$category) = $sth->fetchrow;
        return 1 if (($category>=3 or $owner eq $loggedinuser) && $action eq 
'manage');
        return 1 if (($category>= 2 or $owner eq $loggedinuser) && $action eq 
'view');
@@ -343,7 +343,7 @@
                                                                GROUP BY        
physicalbookshelf.barcode order by shelfname");
     $sth->execute($owner,$mincategory);
     my @shelflist;
-    while (defined(my $shelf = $sh->fetchrow_hashref())) { push @shelflist, 
$shelf; }
+    while (defined(my $shelf = $sth->fetchrow_hashref())) { push @shelflist, 
$shelf; }
        return(address@hidden);
 }
 
@@ -493,6 +493,10 @@
 
 #
 # $Log: BookShelves.pm,v $
+# Revision 1.15.2.2  2007/02/08 09:53:02  tipaul
+# BUGFIX : 2 errors that are risen during compilation.
+# This should NEVER happend. Please check that what you commit works, when you 
play with unstable branch it's important, when you play with stable branch, 
it's MANDATORY !
+#
 # Revision 1.15.2.1  2007/02/03 08:42:10  genji
 # PhysicalBookShelves code added, to support an offshoot of virtual 
bookshelves. The idea, each physical shelf has a unique barcode. any one item 
can only exist in one shelf. Potential augmentation to item.location.
 #