CVS: koha groups.pl,NONE,1.1

3 May 2001


      Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv5902/koha

Added Files:
	groups.pl 
Log Message:
Steve Tonnesen's K12Admin-specific (for the time-being) group based
overdue reports.


--- NEW FILE ---
#!/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;
}

Steve Tonnesen

tags

participants (1)