Reporting scripts
This commit is contained in:
parent
06f7ec1e0a
commit
9faad76fad
2 changed files with 24 additions and 0 deletions
12
countoverdues.pl
Executable file
12
countoverdues.pl
Executable file
|
@ -0,0 +1,12 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
#script to keep total of number of issues;
|
||||||
|
|
||||||
|
use C4::Output;
|
||||||
|
use C4::Stats;
|
||||||
|
use CGI;
|
||||||
|
|
||||||
|
my $input=new CGI;
|
||||||
|
print $input->header;
|
||||||
|
my $count=Overdues();
|
||||||
|
print $count;
|
12
countowing.pl
Executable file
12
countowing.pl
Executable file
|
@ -0,0 +1,12 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
#script to keep total of number of issues;
|
||||||
|
|
||||||
|
use C4::Output;
|
||||||
|
use C4::Stats;
|
||||||
|
use CGI;
|
||||||
|
|
||||||
|
my $input=new CGI;
|
||||||
|
print $input->header;
|
||||||
|
my $count=TotalOwing('fine');
|
||||||
|
print $count;
|
Loading…
Reference in a new issue