BEGIN {
# set the version for version checking
- $VERSION = 3.02;
+ $VERSION = 3.01;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
my $data = $sth->fetchrow_hashref;
$sth->finish();
my $fee = $data->{'reservefee'};
- my $cntitems = @- > $bibitems; # FIXME: @- is a regexp match var. Unclear and probably INCORRECT usage here.
+ my $cntitems = @- > $bibitems;
if ( $fee > 0 ) {
}
$x++;
}
- if ( $found == 0 or
- ($found == 1 and $const eq 'o')) {
- push @biblioitems, $data1;
+ if ( $const eq 'o' ) {
+ if ( $found == 1 ) {
+ push @biblioitems, $data1;
+ }
+ }
+ else {
+ if ( $found == 0 ) {
+ push @biblioitems, $data1;
+ }
}
}
}
my $allissued = 1;
while ( $x < $cntitemsfound ) {
my $bitdata = $biblioitems[$x];
- my $sth2 = $dbh->prepare("SELECT * FROM items WHERE biblioitemnumber = ?");
+ my $sth2 = $dbh->prepare(
+ "SELECT * FROM items
+ WHERE biblioitemnumber = ?"
+ );
$sth2->execute( $bitdata->{'biblioitemnumber'} );
while ( my $itdata = $sth2->fetchrow_hashref ) {
- my $sth3 = $dbh->prepare("SELECT * FROM issues WHERE itemnumber = ?");
+ my $sth3 = $dbh->prepare(
+ "SELECT * FROM issues
+ WHERE itemnumber = ?"
+ );
$sth3->execute( $itdata->{'itemnumber'} );
- unless ($sth3->rows()) {
+ if ( my $isdata = $sth3->fetchrow_hashref ) {
+ }
+ else {
$allissued = 0;
}
}
$x++;
}
if ( $allissued == 0 ) {
- my $rsth = $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ?");
+ my $rsth =
+ $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ?");
$rsth->execute($biblionumber);
- unless ($rsth->rows()) {
+ if ( my $rdata = $rsth->fetchrow_hashref ) {
+ }
+ else {
$fee = 0;
}
}
$sth->execute( $biblio, $borr );
# now fix the priority on the others....
- _FixPriority($biblio,$borr,$priority);
+ _FixPriority( $priority, $biblio );
}
}
# now fix the priority on the others (if the priority wasn't
# already sorted!)....
unless ( $priority == 0 ) {
- _FixPriority($biblionumber, $borrowernumber, $priority);
+ _FixPriority( $priority, $biblionumber );
}
}
/;
my $sth = $dbh->prepare($query);
$sth->execute( $biblio, $bibitem );
- return $sth->fetchall_arrayref({});
+ my @results;
+ while ( my $data = $sth->fetchrow_hashref ) {
+ push( @results, $data );
+ }
+ $sth->finish;
+ return @results;
}
=back