[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(\@shelflist);
 }
 
@@ -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.
 #