1 package C4::Stock; #assumes C4/Stock.pm
6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
9 # set the version for version checking
13 @EXPORT = qw(&stockreport);
18 my $query="Select count(*) from items where homebranch='C'";
19 my $sth=$dbh->prepare($query);
21 my $count=$sth->fetchrow_hashref;
22 $results[0]="$count->{'count'}\t Levin";
24 $query="Select count(*) from items where homebranch='F'";
25 $sth=$dbh->prepare($query);
27 $count=$sth->fetchrow_hashref;
28 $results[1]="$count->{'count'}\t Foxton";
34 END { } # module clean-up code here (global destructor)