[Koha-devel] CVS: koha/circ circulation2.pl,NONE,1.1 circulation.pl,1.21,1.22

13 Mar 2002

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

Modified Files:
	circulation.pl 
Added Files:
	circulation2.pl 
Log Message:
This is the begining of a process of dividing up circulation.pl

This script deals with the branch and printer selection stuff

--- NEW FILE ---
#!/usr/bin/perl

use strict;
use CGI qw/:standard/;
use C4::Circulation::Circ2;
use C4::Output;
use C4::Print;
use DBI;

# this is a reorganisation of circulation.pl 
# dividing it up into three scripts......
# this will be the first one that chooses branch and printer settings....

my %env;
my $headerbackgroundcolor='#99cc33';
my $circbackgroundcolor='#ffffcc';
my $circbackgroundcolor='white';
my $linecolor1='#ffffcc';
my $linecolor2='white';
my $backgroundimage="/images/background-mem.gif";

my $query=new CGI;
my $branches=getbranches(\%env);
my $printers=getprinters(\%env);
my $branch=$query->param('branch');
my $printer=$query->param('printer');

($branch) || ($branch=$query->cookie('branch'));
($printer) || ($printer=$query->cookie('printer'));

my $oldbranch;
my $oldprinter;
if ($query->param('selectnewbranchprinter')) {
    $oldbranch=$branch;
    $oldprinter=$printer;
    $branch='';
    $printer='';
}

$env{'branchcode'}=$branch;
$env{'printer'}=$printer;
$env{'queue'}=$printer;

# set up select options....
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);
    $branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n";
}
foreach (keys %$printers) {
    (next) unless ($_);
    $printercount++;
    my $selected='';
    ($selected='selected') if ($_ eq $oldprinter);
    $printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n";
}

# if there is only one....

if ($printercount==1) {
    ($printer)=keys %$printers;
}
if ($branchcount==1) {
    ($branch)=keys %$branches;
}

my $branchcookie=$query->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y');
my $printercookie=$query->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y');

my ($printerform, $branchform);
if ($printercount>1) {
    $printerform=<<"EOF";
<table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' >
<tr><td><select name=printer> $printeroptions </select></td></tr>
</table>
<input type=hidden name=branch value=$printer>
EOF
} else {
    my ($printer) = keys %$printers;
    $printerform=<<"EOF";
<input type=hidden name=printer value=$printer>
EOF
} 

if ($branchcount>1) {
    $branchform=<<"EOF";
<table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' >
<tr><td> <select name=branch> $branchoptions </select> </td></tr>
</table>
<input type=hidden name=branch value=$branch>
EOF
} else {
    my ($branch) = keys %$branches;
    $branchform=<<"EOF";
<input type=hidden name=printer value=$printer>
EOF
} 

# set header with cookie....
print $query->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie]);

print startpage();
print startmenu('circulation');

if ($branch and $printer) {
    print << "EOF";
<p align=right>
<FONT SIZE=2  face="arial, helvetica">
<a href=circulation.pl?module=issues&branch=$branch&printer=$printer&print>Next Borrower</a> ||
<a href=circulation.pl?module=returns&branch=$branch&printer=$printer>Returns</a> ||
<a href=branchtransfers.pl>Transfer Book</a></font>
<input type=hidden name=module value=issues>
<input type=hidden name=branch value=$branch>
<input type=hidden name=printer value=$printer>
<input type=hidden name=barcode value=" ">
</p>

<table align=left border=0 cellpadding=5 cellspacing=0 >
<tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
<font color=black><b>Branch and Printer Settings<b></font>
</td></tr>
<tr><td>
<b>Branch:</b> $branches->{$branch}->{'branchname'} </td><td><b>Printer:</b>$printers->{$printer}->{'printername'} 
</td></tr>
<tr><td colspace=2>
<a href=circulation2.pl?selectnewbranchprinter=1>Select new branch and printer</a>
</td></tr>
</table>

<img src="/images/holder.gif" width=24 height=50 align=left>

<table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' align=right>
<form method=get>
<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black>
<b>Enter borrower card number<br> or partial last name</b></font>
</td></tr>
<tr><td><input name=findborrower></td></tr>
</form>
</table>

EOF
} else {
    print << "EOF";
<form method=post action=/cgi-bin/koha/circ/circulation2.pl>
<table border=0 cellpadding=5 cellspacing=0>
<tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
<font color=black><b>Please Set Branch and Printer</b></font></td></tr>
<tr><td>
$branchform
</td>
<td>
$printerform
</td></tr>
</table>
<input type="submit" value="Change Settings" type="changesettings">
</form>

EOF
}

print endmenu('circulation');
print endpage();

Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** circulation.pl	12 Mar 2002 21:04:32 -0000	1.21
--- circulation.pl	14 Mar 2002 01:04:00 -0000	1.22
***************
*** 154,157 ****
--- 154,158 ----
  print endmenu('circulation');
  print endpage();
+ 
  sub default {
  print << "EOF";

[Koha-devel] CVS: koha/circ circulation2.pl,NONE,1.1 circulation.pl,1.21,1.22

Finlay Thompson