From tonnesen@users.sourceforge.net Wed May  2 16:06:47 2001
From: Steve Tonnesen <tonnesen@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha groups.pl,NONE,1.1
Date: Wed, 02 May 2001 16:06:46 -0700
Message-ID: <E14v5hm-0001Y6-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5964961498936534789=="

--===============5964961498936534789==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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

Added Files:
	groups.pl=20
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=3Dnew CGI;
my $time=3D$input->param('time');
#print $input->header;


my $branches=3Dgetbranches(\%env);
my $printers=3Dgetprinters(\%env);
my $branch=3D$input->param('branch');
my $printer=3D$input->param('printer');
($branch) || ($branch=3D$input->cookie('branch'));
($printer) || ($printer=3D$input->cookie('printer'));
my ($oldbranch, $oldprinter);
if ($input->param('selectnewbranchprinter')) {
    $oldbranch=3D$branch;
    $oldprinter=3D$printer;
    $branch=3D'';
    $printer=3D'';
}
$env{'branchcode'}=3D$branch;
$env{'printer'}=3D$printer;
#$env{'queue'}=3D$printer;
my $branchcount=3D0;
my $printercount=3D0;
my $branchoptions;
my $printeroptions;
foreach (keys %$branches) {
    (next) unless ($_);
    (next) if (/^TR$/);
    $branchcount++;
    my $selected=3D'';
    ($selected=3D'selected') if ($_ eq $oldbranch);
    ($selected=3D'selected') if ($_ eq $branch);
    $branchoptions.=3D"<option value=3D$_ $selected>$branches->{$_}->{'branch=
name'}\n";
}
foreach (keys %$printers) {
    (next) unless ($_);
    $printercount++;
    my $selected=3D'';
    ($selected=3D'selected') if ($_ eq $oldprinter || $_ eq $printer);
    $printeroptions.=3D"<option value=3D$_ $selected>$printers->{$_}->{'print=
ername'}\n";
}
if ($printercount=3D=3D1) {
    ($printer)=3Dkeys %$printers;
}
if ($branchcount=3D=3D1) {
    ($branch)=3Dkeys %$branches;
}


my $branchname=3D'';
my $printername=3D'';
if ($branch && $printer) {
    $branchname=3D$branches->{$branch}->{'branchname'};
    $printername=3D$printers->{$printer}->{'printername'};
}


my $branchcookie=3D$input->cookie(-name=3D>'branch', -value=3D>"$branch", -ex=
pires=3D>'+1y', -path=3D>'/cgi-bin/koha/');
my $printercookie=3D$input->cookie(-name=3D>'printer', -value=3D>"$printer", =
-expires=3D>'+1y', -path=3D>'/cgi-bin/koha/');

print $input->header(-type=3D>'text/html',-expires=3D>'now', -cookie=3D>[$bra=
nchcookie,$printercookie]);
print startpage;
unless ($input->param('printable')) {
    print startmenu('report');
}
print center;



my $type=3D$input->param('type');
my $groups=3Dgetgroups();
if ($input->param('print')) {
    if ($input->param('groupsselected')) {
	foreach ($input->param()) {
	    if (/print_(.*)/) {
		my $group=3D$1;
		printgroup($group,$input->param('type'));
	    }
	}
    } else {
	print "<h2>Select the groups to print</h2>\n";
	print "<form method=3Dpost>\n";
	print "<input type=3Dhidden name=3Dprint value=3D1>\n";
	print "<input type=3Dhidden name=3Dgroupsselected value=3D1>\n";
	print "<table border=3D0><tr><td bgcolor=3D#dddddd>\n";
	print "<table border=3D1 cellspacing=3D5 cellpadding=3D10><tr>\n";
	my $counter=3D0;
	foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) {
	    (next) unless ($groups->{$_});
	    if ($counter>3) {
		$counter=3D0;
		print "</tr><tr>\n";
	    } else {
	    }
	    print << "EOF";
<td><input type=3Dcheckbox name=3Dprint_$_ value=3D0> $groups->{$_}
</td>
EOF
	    $counter++;
	}
	print << "EOF";
</tr></table>
</td></tr></table>
<p>
Printer:=20
<select name=3Dprinter>
$printeroptions
</select>
<p>
<input type=3Dradio name=3Dtype value=3Dissues> Issues <input type=3Dradio na=
me=3Dtype value=3Doverdues checked> Overdues
<p>
<input type=3Dsubmit value=3DPrint>
</body></html>
EOF
	exit;
    }
}
if (my $group=3D$input->param('group')) {
    print "<a href=3Dgroups.pl?type=3D$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=3Dgroupmembers($env, $group);
    print "<table border=3D0><tr><td bgcolor=3D#dddddd>\n";
    print "<table border=3D1 cellspacing=3D5 cellpadding=3D10>\n";
    my $typetext=3D'';
    ($type eq 'overdues') ? ($typetext=3D"Overdues") : ($typetext=3D"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=3D$_->{'firstname'}." ".$_->{'surname'};
	my $userid=3D$_->{'userid'};
	my $cardnumber=3D$_->{'cardnumber'};
	my $currentissues=3D$_->{'currentissues'};
	my $counter=3D0;
	my $overduecounter=3D0;
	my $overduelist=3D'';
	foreach (keys %$currentissues) {
	    $counter++;
	    if ($currentissues->{$_}->{'overdue'}) {
		$overduecounter++;
		$title=3D$currentissues->{$_}->{'title'};
		$author=3D$currentissues->{$_}->{'author'};
		$date_due=3D$currentissues->{$_}->{'date_due'};
		$overduelist.=3D"<u>$title</u> by $author (<font color=3Dred>$date_due</fon=
t>)<br>\n";
	    } else {
		if ($type eq 'issues') {
		    $title=3D$currentissues->{$_}->{'title'};
		    $author=3D$currentissues->{$_}->{'author'};
		    $date_due=3D$currentissues->{$_}->{'date_due'};
		    $overduelist.=3D"<u>$title</u> by $author due on $date_due<br>\n";
		}
	    }
	}
	my $overduetext=3D"0";
	if ($overduecounter) {
	    $overduetext=3D"<font color=3Dred>$overduecounter</font>";
	}
	(next) unless ($overduecounter || $counter);
	if ($overduecounter=3D=3D0 && $type eq 'overdues') {
	    next;
	}
	print "<tr><td align=3Dcenter>$cardnumber</td><td>$fullname</td><td align=3D=
center>$counter/$overduetext</td><td>$overduelist</td></tr>\n";
    }
    print "</table>\n";
    print "</td></tr></table>\n";
} else {
    print "<a href=3Dgroups.pl?print=3D1>Print Reports</a><p>\n";
    print "<h2>Pick a group</h2>\n";
    print "<table border=3D0><tr><td bgcolor=3D#dddddd>\n";
    print "<table border=3D1 cellspacing=3D5 cellpadding=3D10><tr>\n";
    my $counter=3D0;
    foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) {
	(next) unless ($groups->{$_});
	if ($counter>3) {
	    $counter=3D0;
	    print "</tr><tr>\n";
	} else {
	}
	print << "EOF";
<td align=3Dcenter>$groups->{$_}
<br>
<a href=3Dgroups.pl?type=3Dissues&group=3D$_>Issues</a> | <a href=3Dgroups.pl=
?type=3Doverdues&group=3D$_>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=3Dshift;
    my $type=3Dshift;
    $output=3D "<head><title>Overdue list for $groups->{$group}</title></head=
><body><center>\n";
    my $members=3Dgroupmembers($env, $group);
    ($type eq 'overdues') && ($output.=3D"<img src=3D/usr/local/koha/libraria=
n/htdocs/images/overdues.jpg><br>\n");
    $output.=3D "<table border=3D1 cellspacing=3D5 cellpadding=3D10>\n";
    my $typetext=3D'';
    ($type eq 'overdues') ? ($typetext=3D"Overdues") : ($typetext=3D"Issues");
    $output.=3D "<thead><tr><th>Card #</th><th>Name</th><th>IS/OD</th><th>$ty=
petext</th></tr></thead>\n";
    foreach (sort { $a->{'surname'}." ".$a->{'firstname'} cmp $b->{'surname'}=
." ".$b->{'firstname'} }  @$members) {
	my $fullname=3D$_->{'firstname'}." ".$_->{'surname'};
	my $userid=3D$_->{'userid'};
	my $cardnumber=3D$_->{'cardnumber'};
	my $currentissues=3D$_->{'currentissues'};
	my $counter=3D0;
	my $overduecounter=3D0;
	my $overduelist=3D'';
	foreach (keys %$currentissues) {
	    $counter++;
	    if ($currentissues->{$_}->{'overdue'}) {
		$overduecounter++;
		$title=3D$currentissues->{$_}->{'title'};
		$author=3D$currentissues->{$_}->{'author'};
		$date_due=3D$currentissues->{$_}->{'date_due'};
		$overduelist.=3D"<u>$title</u> by $author (<font color=3Dred>$date_due</fon=
t>)<br>\n";
	    } else {
		if ($type eq 'issues') {
		    $title=3D$currentissues->{$_}->{'title'};
		    $author=3D$currentissues->{$_}->{'author'};
		    $date_due=3D$currentissues->{$_}->{'date_due'};
		    $overduelist.=3D"<u>$title</u> by $author due on $date_due<br>\n";
		}
	    }
	}
	my $overduetext=3D"0";
	if ($overduecounter) {
	    $overduetext=3D"<font color=3Dred>$overduecounter</font>";
	}
	(next) unless ($overduecounter || $counter);
	if ($overduecounter=3D=3D0 && $type eq 'overdues') {
	    next;
	}
	$output.=3D "<tr><td align=3Dcenter>$cardnumber</td><td>$fullname</td><td al=
ign=3Dcenter>$counter/$overduetext</td><td>$overduelist</td></tr>\n";
    }
    $output.=3D "</table>\n";
    $output.=3D "</td></tr></table>\n";
    open (P, "|html2ps | lpr -P$printer");
    print P $output;
    close P;
}



--===============5964961498936534789==--