Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

stock reports

Browse source
This commit is contained in:
chris 1999-11-13 22:56:48 +00:00
parent 416d4c8473
commit 25ea24eaf7
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
C4/Stock.pm
View file

@ -49,7 +49,21 @@ my $priv_func = sub {
sub stockreport {
my $dbh=C4Connect;
my $query="Select count(*) from items where homebranch='l'";
my @results;
my $query="Select count(*) from items where homebranch='C'";
my $sth=$dbh->prepare($query);
$sth->execute;
my $count=$sth->fetchrow_hashref;
$results[0]="$count->{'count'}\t Levin";
$sth->finish;
$query="Select count(*) from items where homebranch='F'";
$sth=$dbh->prepare($query);
$sth->execute;
$count=$sth->fetchrow_hashref;
$results[1]="$count->{'count'}\t Foxton";
$sth->finish;
$dbh->disconnect;
return(@results);
}
END { } # module clean-up code here (global destructor)