# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
@ISA = qw(Exporter);
@EXPORT = qw(
while ( my $data = $sth->fetchrow_hashref ) {
$sth2->execute($data->{id});
($data->{basketcount}) = $sth2->fetchrow();
- warn "COUNT : ".$data->{basketcount};
push( @results, $data );
}
$sth->finish;