Steve Tonnesen's K12Admin-specific (for the time-being) group based

overdue reports.

diff --git a/C4/Groups.pm b/C4/Groups.pm
new file mode 100755 (executable)
index 0000000..5a6d9c5
--- /dev/null
+++ b/C4/Groups.pm
@@ -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)

diff --git a/groups.pl b/groups.pl
new file mode 100755 (executable)
index 0000000..5e0f368
--- /dev/null
+++ b/groups.pl
@@ -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;
+}