Bug 8435: DBRev 3.13.00.038

[koha.git] / C4 / ILSDI / Utility.pm

diff --git a/C4/ILSDI/Utility.pm b/C4/ILSDI/Utility.pm
index 995b3b3..b56e1fa 100644 (file)
--- a/C4/ILSDI/Utility.pm
+++ b/C4/ILSDI/Utility.pm
@@ -1,6 +1,7 @@
 package C4::ILSDI::Utility;
 
 # Copyright 2009 SARL Biblibre
+# Copyright 2011 software.coop and MJ Ray
 #
 # This file is part of Koha.
 #
@@ -13,28 +14,33 @@ package C4::ILSDI::Utility;
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+use strict;
+use warnings;
 
 use C4::Members;
 use C4::Items;
 use C4::Circulation;
 use C4::Biblio;
-use C4::Reserves;
+use C4::Reserves qw(GetReservesFromBorrowernumber CanBookBeReserved);
 use C4::Context;
+use C4::Branch qw/GetBranchName/;
 use Digest::MD5 qw(md5_base64);
 
 use vars qw($VERSION @ISA @EXPORT);
 
 BEGIN {
-       # set the version for version checking
-       $VERSION = 3.00;
-       require Exporter;
-       @ISA    = qw(Exporter);
-       @EXPORT = qw(
-               &BorrowerExists &CanBookBeReserved &Availability
-       );
+
+    # set the version for version checking
+    $VERSION = 3.07.00.049;
+    require Exporter;
+    @ISA    = qw(Exporter);
+    @EXPORT = qw(
+      &BorrowerExists &Availability
+    );
 }
 
 =head1 NAME
@@ -54,62 +60,12 @@ Checks, for a given userid and password, if the borrower exists.
 =cut
 
 sub BorrowerExists {
-       my ( $userid, $password ) = @_;
-       $password = md5_base64($password);
-       my $dbh = C4::Context->dbh;
-       my $sth =
-       $dbh->prepare("SELECT COUNT(*) FROM borrowers WHERE userid =? and password=? ");
-       $sth->execute( $userid, $password );
-       return $sth->fetchrow;
-}
-
-=head2 CanBookBeReserved
-
-Checks if a book (at bibliographic level) can be reserved by a borrower.
-
-       if ( CanBookBeReserved($borrower, $biblionumber) ) {
-               # Do stuff
-       }
-
-=cut
-
-sub CanBookBeReserved {
-       my ( $borrower, $biblionumber ) = @_;
-
-       my $MAXIMUM_NUMBER_OF_RESERVES = C4::Context->preference("maxreserves");
-       my $MAXOUTSTANDING             = C4::Context->preference("maxoutstanding");
-
-       my $out = 1;
-
-       if ( $borrower->{'amountoutstanding'} > $MAXOUTSTANDING ) {
-               $out = undef;
-       }
-       if ( $borrower->{gonenoaddress} eq 1 ) {
-               $out = undef;
-       }
-       if ( $borrower->{lost} eq 1 ) {
-               $out = undef;
-       }
-       if ( $borrower->{debarred} eq 1 ) {
-               $out = undef;
-       }
-       my @reserves = GetReservesFromBorrowernumber( $borrower->{'borrowernumber'} );
-       if ( scalar(@reserves) >= $MAXIMUM_NUMBER_OF_RESERVES ) {
-               $out = undef;
-       }
-       foreach my $res (@reserves) {
-               if ( $res->{'biblionumber'} == $biblionumber ) {
-                       $out = undef;
-               }
-       }
-       my $issues = GetPendingIssues($borrower->{'borrowernumber'});
-       foreach my $issue (@$issues) {
-               if ( $issue->{'biblionumber'} == $biblionumber ) {
-                       $out = undef;
-               }
-       }
-       
-       return $out;
+    my ( $userid, $password ) = @_;
+    $password = md5_base64($password);
+    my $dbh = C4::Context->dbh;
+    my $sth = $dbh->prepare("SELECT COUNT(*) FROM borrowers WHERE userid =? and password=? ");
+    $sth->execute( $userid, $password );
+    return $sth->fetchrow;
 }
 
 =head2 Availability
@@ -121,36 +77,31 @@ Returns, for an itemnumber, an array containing availability information.
 =cut
 
 sub Availability {
-       my ( $itemnumber ) = @_;
-       my $item = GetItem($itemnumber, undef, undef);
-       
-       if ( not $item->{'itemnumber'} ) { 
-               return (undef, 'unknown', 'Error: could not retrieve availability for this ID', undef);
-       }
-       
-       my $biblionumber = $item->{'biblioitemnumber'};
-       my $location = GetBranchName($item->{'holdingbranch'});
-       
-       if ($item->{'notforloan'}) {
-               return ($biblionumber, 'not available', 'Not for loan', $location);
-       }
-       elsif ($item->{'onloan'}) {
-               return ($biblionumber, 'not available', 'Checked out', $location);
-       }
-       elsif ($item->{'itemlost'}) {
-               return ($biblionumber, 'not available', 'Item lost', $location);
-       }
-       elsif ($item->{'wthdrawn'}) {
-               return ($biblionumber, 'not available', 'Item withdrawn', $location);
-       }
-       elsif ($item->{'damaged'}) {
-               return ($biblionumber, 'not available', 'Item damaged', $location);
-       }
-       else {
-               return ($biblionumber, 'available', undef, $location);
-       }
-       
-       die Data::Dumper::Dumper($item);
+    my ($itemnumber) = @_;
+    my $item = GetItem( $itemnumber, undef, undef );
+
+    if ( not $item->{'itemnumber'} ) {
+        return ( undef, 'unknown', 'Error: could not retrieve availability for this ID', undef );
+    }
+
+    my $biblionumber = $item->{'biblioitemnumber'};
+    my $location     = GetBranchName( $item->{'holdingbranch'} );
+
+    if ( $item->{'notforloan'} ) {
+        return ( $biblionumber, 'not available', 'Not for loan', $location );
+    } elsif ( $item->{'onloan'} ) {
+        return ( $biblionumber, 'not available', 'Checked out', $location );
+    } elsif ( $item->{'itemlost'} ) {
+        return ( $biblionumber, 'not available', 'Item lost', $location );
+    } elsif ( $item->{'withdrawn'} ) {
+        return ( $biblionumber, 'not available', 'Item withdrawn', $location );
+    } elsif ( $item->{'damaged'} ) {
+        return ( $biblionumber, 'not available', 'Item damaged', $location );
+    } else {
+        return ( $biblionumber, 'available', undef, $location );
+    }
+
+    die Data::Dumper::Dumper($item);
 }
 
 1;