Steve Tonnesen's K12Admin-specific (for the time-being) group based
overdue reports.
This commit is contained in:
tonnesen
parent
3fd3b300c4
commit
91ac7223f6
|
|
@ -0,0 +1,94 @@
|
|||
package C4::Groups;
|
||||
|
||||
#package to deal with Returns
|
||||
#written 3/11/99 by olwen@katipo.co.nz
|
||||
|
||||
use strict;
|
||||
require Exporter;
|
||||
use DBI;
|
||||
use C4::Database;
|
||||
use C4::Circulation::Circ2;
|
||||
#use C4::Accounts;
|
||||
#use C4::InterfaceCDK;
|
||||
#use C4::Circulation::Main;
|
||||
#use C4::Format;
|
||||
#use C4::Circulation::Renewals;
|
||||
#use C4::Scan;
|
||||
use C4::Stats;
|
||||
#use C4::Search;
|
||||
#use C4::Print;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
||||
|
||||
# set the version for version checking
|
||||
$VERSION = 0.01;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(&getgroups &groupmembers);
|
||||
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
||||
|
||||
# your exported package globals go here,
|
||||
# as well as any optionally exported functions
|
||||
|
||||
@EXPORT_OK = qw($Var1 %Hashit);
|
||||
|
||||
|
||||
# non-exported package globals go here
|
||||
#use vars qw(@more $stuff);
|
||||
|
||||
# initalize package globals, first exported ones
|
||||
|
||||
my $Var1 = '';
|
||||
my %Hashit = ();
|
||||
|
||||
# then the others (which are still accessible as $Some::Module::stuff)
|
||||
my $stuff = '';
|
||||
my @more = ();
|
||||
|
||||
# all file-scoped lexicals must be created before
|
||||
# the functions below that use them.
|
||||
|
||||
# file-private lexicals go here
|
||||
my $priv_var = '';
|
||||
my %secret_hash = ();
|
||||
|
||||
# here's a file-private function as a closure,
|
||||
# callable as &$priv_func; it cannot be prototyped.
|
||||
my $priv_func = sub {
|
||||
# stuff goes here.
|
||||
};
|
||||
|
||||
# make all your functions, whether exported or not;
|
||||
|
||||
|
||||
sub getgroups {
|
||||
my ($env) = @_;
|
||||
my %groups;
|
||||
my $dbh=&C4Connect;
|
||||
my $sth=$dbh->prepare("select distinct groupshortname,grouplongname from borrowergroups");
|
||||
$sth->execute;
|
||||
while (my ($short, $long)=$sth->fetchrow) {
|
||||
$groups{$short}=$long;
|
||||
}
|
||||
$dbh->disconnect;
|
||||
return (\%groups);
|
||||
}
|
||||
|
||||
sub groupmembers {
|
||||
my ($env, $group) = @_;
|
||||
my @members;
|
||||
my $dbh=&C4Connect;
|
||||
my $q_group=$dbh->quote($group);
|
||||
my $sth=$dbh->prepare("select borrowernumber from borrowergroups where groupshortname=$q_group");
|
||||
$sth->execute;
|
||||
while (my ($borrowernumber) = $sth->fetchrow) {
|
||||
my ($patron, $flags) = getpatroninformation($env, $borrowernumber);
|
||||
my $currentissues=currentissues($env, $patron);
|
||||
$patron->{'currentissues'}=$currentissues;
|
||||
push (@members, $patron);
|
||||
}
|
||||
return (\@members);
|
||||
}
|
||||
|
||||
|
||||
END { } # module clean-up code here (global destructor)
|
||||
|
|
@ -0,0 +1,261 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
#written 14/1/2000
|
||||
#script to display reports
|
||||
|
||||
use CGI qw/:standard/;
|
||||
use C4::Output;
|
||||
use C4::Groups;
|
||||
use C4::Circulation::Circ2;
|
||||
use C4::Print;
|
||||
use DBI;
|
||||
|
||||
my $input=new CGI;
|
||||
my $time=$input->param('time');
|
||||
#print $input->header;
|
||||
|
||||
|
||||
my $branches=getbranches(\%env);
|
||||
my $printers=getprinters(\%env);
|
||||
my $branch=$input->param('branch');
|
||||
my $printer=$input->param('printer');
|
||||
($branch) || ($branch=$input->cookie('branch'));
|
||||
($printer) || ($printer=$input->cookie('printer'));
|
||||
my ($oldbranch, $oldprinter);
|
||||
if ($input->param('selectnewbranchprinter')) {
|
||||
$oldbranch=$branch;
|
||||
$oldprinter=$printer;
|
||||
$branch='';
|
||||
$printer='';
|
||||
}
|
||||
$env{'branchcode'}=$branch;
|
||||
$env{'printer'}=$printer;
|
||||
#$env{'queue'}=$printer;
|
||||
my $branchcount=0;
|
||||
my $printercount=0;
|
||||
my $branchoptions;
|
||||
my $printeroptions;
|
||||
foreach (keys %$branches) {
|
||||
(next) unless ($_);
|
||||
(next) if (/^TR$/);
|
||||
$branchcount++;
|
||||
my $selected='';
|
||||
($selected='selected') if ($_ eq $oldbranch);
|
||||
($selected='selected') if ($_ eq $branch);
|
||||
$branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n";
|
||||
}
|
||||
foreach (keys %$printers) {
|
||||
(next) unless ($_);
|
||||
$printercount++;
|
||||
my $selected='';
|
||||
($selected='selected') if ($_ eq $oldprinter || $_ eq $printer);
|
||||
$printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n";
|
||||
}
|
||||
if ($printercount==1) {
|
||||
($printer)=keys %$printers;
|
||||
}
|
||||
if ($branchcount==1) {
|
||||
($branch)=keys %$branches;
|
||||
}
|
||||
|
||||
|
||||
my $branchname='';
|
||||
my $printername='';
|
||||
if ($branch && $printer) {
|
||||
$branchname=$branches->{$branch}->{'branchname'};
|
||||
$printername=$printers->{$printer}->{'printername'};
|
||||
}
|
||||
|
||||
|
||||
my $branchcookie=$input->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y', -path=>'/cgi-bin/koha/');
|
||||
my $printercookie=$input->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y', -path=>'/cgi-bin/koha/');
|
||||
|
||||
print $input->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie]);
|
||||
print startpage;
|
||||
unless ($input->param('printable')) {
|
||||
print startmenu('report');
|
||||
}
|
||||
print center;
|
||||
|
||||
|
||||
|
||||
my $type=$input->param('type');
|
||||
my $groups=getgroups();
|
||||
if ($input->param('print')) {
|
||||
if ($input->param('groupsselected')) {
|
||||
foreach ($input->param()) {
|
||||
if (/print_(.*)/) {
|
||||
my $group=$1;
|
||||
printgroup($group,$input->param('type'));
|
||||
}
|
||||
}
|
||||
} else {
|
||||
print "<h2>Select the groups to print</h2>\n";
|
||||
print "<form method=post>\n";
|
||||
print "<input type=hidden name=print value=1>\n";
|
||||
print "<input type=hidden name=groupsselected value=1>\n";
|
||||
print "<table border=0><tr><td bgcolor=#dddddd>\n";
|
||||
print "<table border=1 cellspacing=5 cellpadding=10><tr>\n";
|
||||
my $counter=0;
|
||||
foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) {
|
||||
(next) unless ($groups->{$_});
|
||||
if ($counter>3) {
|
||||
$counter=0;
|
||||
print "</tr><tr>\n";
|
||||
} else {
|
||||
}
|
||||
print << "EOF";
|
||||
<td><input type=checkbox name=print_$_ value=0> $groups->{$_}
|
||||
</td>
|
||||
EOF
|
||||
$counter++;
|
||||
}
|
||||
print << "EOF";
|
||||
</tr></table>
|
||||
</td></tr></table>
|
||||
<p>
|
||||
Printer:
|
||||
<select name=printer>
|
||||
$printeroptions
|
||||
</select>
|
||||
<p>
|
||||
<input type=radio name=type value=issues> Issues <input type=radio name=type value=overdues checked> Overdues
|
||||
<p>
|
||||
<input type=submit value=Print>
|
||||
</body></html>
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
}
|
||||
if (my $group=$input->param('group')) {
|
||||
print "<a href=groups.pl?type=$type>Back to group list</a><p>\n";
|
||||
if ($input->param('printable')) {
|
||||
print "<head><title>Overdue list for $groups->{$group}</title></head><body>\n";
|
||||
}
|
||||
my $members=groupmembers($env, $group);
|
||||
print "<table border=0><tr><td bgcolor=#dddddd>\n";
|
||||
print "<table border=1 cellspacing=5 cellpadding=10>\n";
|
||||
my $typetext='';
|
||||
($type eq 'overdues') ? ($typetext="Overdues") : ($typetext="Issues");
|
||||
print "<thead><tr><th>Card #</th><th>Name</th><th>IS/OD</th><th>$typetext</th></tr></thead>\n";
|
||||
foreach (sort { $a->{'surname'}." ".$a->{'firstname'} cmp $b->{'surname'}." ".$b->{'firstname'} } @$members) {
|
||||
my $fullname=$_->{'firstname'}." ".$_->{'surname'};
|
||||
my $userid=$_->{'userid'};
|
||||
my $cardnumber=$_->{'cardnumber'};
|
||||
my $currentissues=$_->{'currentissues'};
|
||||
my $counter=0;
|
||||
my $overduecounter=0;
|
||||
my $overduelist='';
|
||||
foreach (keys %$currentissues) {
|
||||
$counter++;
|
||||
if ($currentissues->{$_}->{'overdue'}) {
|
||||
$overduecounter++;
|
||||
$title=$currentissues->{$_}->{'title'};
|
||||
$author=$currentissues->{$_}->{'author'};
|
||||
$date_due=$currentissues->{$_}->{'date_due'};
|
||||
$overduelist.="<u>$title</u> by $author (<font color=red>$date_due</font>)<br>\n";
|
||||
} else {
|
||||
if ($type eq 'issues') {
|
||||
$title=$currentissues->{$_}->{'title'};
|
||||
$author=$currentissues->{$_}->{'author'};
|
||||
$date_due=$currentissues->{$_}->{'date_due'};
|
||||
$overduelist.="<u>$title</u> by $author due on $date_due<br>\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
my $overduetext="0";
|
||||
if ($overduecounter) {
|
||||
$overduetext="<font color=red>$overduecounter</font>";
|
||||
}
|
||||
(next) unless ($overduecounter || $counter);
|
||||
if ($overduecounter==0 && $type eq 'overdues') {
|
||||
next;
|
||||
}
|
||||
print "<tr><td align=center>$cardnumber</td><td>$fullname</td><td align=center>$counter/$overduetext</td><td>$overduelist</td></tr>\n";
|
||||
}
|
||||
print "</table>\n";
|
||||
print "</td></tr></table>\n";
|
||||
} else {
|
||||
print "<a href=groups.pl?print=1>Print Reports</a><p>\n";
|
||||
print "<h2>Pick a group</h2>\n";
|
||||
print "<table border=0><tr><td bgcolor=#dddddd>\n";
|
||||
print "<table border=1 cellspacing=5 cellpadding=10><tr>\n";
|
||||
my $counter=0;
|
||||
foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) {
|
||||
(next) unless ($groups->{$_});
|
||||
if ($counter>3) {
|
||||
$counter=0;
|
||||
print "</tr><tr>\n";
|
||||
} else {
|
||||
}
|
||||
print << "EOF";
|
||||
<td align=center>$groups->{$_}
|
||||
<br>
|
||||
<a href=groups.pl?type=issues&group=$_>Issues</a> | <a href=groups.pl?type=overdues&group=$_>Overdues</a>
|
||||
</td>
|
||||
EOF
|
||||
$counter++;
|
||||
}
|
||||
print "</tr></table>\n";
|
||||
print "</td></tr></table>\n";
|
||||
}
|
||||
|
||||
|
||||
unless ($input->param('printable')) {
|
||||
print endmenu('report');
|
||||
}
|
||||
print endpage;
|
||||
|
||||
|
||||
|
||||
sub printgroup {
|
||||
my $group=shift;
|
||||
my $type=shift;
|
||||
$output= "<head><title>Overdue list for $groups->{$group}</title></head><body><center>\n";
|
||||
my $members=groupmembers($env, $group);
|
||||
($type eq 'overdues') && ($output.="<img src=/usr/local/koha/librarian/htdocs/images/overdues.jpg><br>\n");
|
||||
$output.= "<table border=1 cellspacing=5 cellpadding=10>\n";
|
||||
my $typetext='';
|
||||
($type eq 'overdues') ? ($typetext="Overdues") : ($typetext="Issues");
|
||||
$output.= "<thead><tr><th>Card #</th><th>Name</th><th>IS/OD</th><th>$typetext</th></tr></thead>\n";
|
||||
foreach (sort { $a->{'surname'}." ".$a->{'firstname'} cmp $b->{'surname'}." ".$b->{'firstname'} } @$members) {
|
||||
my $fullname=$_->{'firstname'}." ".$_->{'surname'};
|
||||
my $userid=$_->{'userid'};
|
||||
my $cardnumber=$_->{'cardnumber'};
|
||||
my $currentissues=$_->{'currentissues'};
|
||||
my $counter=0;
|
||||
my $overduecounter=0;
|
||||
my $overduelist='';
|
||||
foreach (keys %$currentissues) {
|
||||
$counter++;
|
||||
if ($currentissues->{$_}->{'overdue'}) {
|
||||
$overduecounter++;
|
||||
$title=$currentissues->{$_}->{'title'};
|
||||
$author=$currentissues->{$_}->{'author'};
|
||||
$date_due=$currentissues->{$_}->{'date_due'};
|
||||
$overduelist.="<u>$title</u> by $author (<font color=red>$date_due</font>)<br>\n";
|
||||
} else {
|
||||
if ($type eq 'issues') {
|
||||
$title=$currentissues->{$_}->{'title'};
|
||||
$author=$currentissues->{$_}->{'author'};
|
||||
$date_due=$currentissues->{$_}->{'date_due'};
|
||||
$overduelist.="<u>$title</u> by $author due on $date_due<br>\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
my $overduetext="0";
|
||||
if ($overduecounter) {
|
||||
$overduetext="<font color=red>$overduecounter</font>";
|
||||
}
|
||||
(next) unless ($overduecounter || $counter);
|
||||
if ($overduecounter==0 && $type eq 'overdues') {
|
||||
next;
|
||||
}
|
||||
$output.= "<tr><td align=center>$cardnumber</td><td>$fullname</td><td align=center>$counter/$overduetext</td><td>$overduelist</td></tr>\n";
|
||||
}
|
||||
$output.= "</table>\n";
|
||||
$output.= "</td></tr></table>\n";
|
||||
open (P, "|html2ps | lpr -P$printer");
|
||||
print P $output;
|
||||
close P;
|
||||
}
|
||||
Loading…
Reference in New Issue