[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/circ selectbranchprinter.pl,NONE,1.1
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/circ selectbranchprinter.pl,NONE,1.1 |
Date: |
Fri, 17 May 2002 22:02:28 -0700 |
Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv14313/circ
Added Files:
selectbranchprinter.pl
Log Message:
script for changing the branch and printer settings, taken from circulation.pl
--- 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 circulationold.pl
# dividing it up into three scripts......
# this will be the first one that chooses branch and printer settings....
#general design stuff...
my $headerbackgroundcolor='#99cc33';
my $circbackgroundcolor='#ffffcc';
my $circbackgroundcolor='white';
my $linecolor1='#ffffcc';
my $linecolor2='white';
my $backgroundimage="/images/background-mem.gif";
# try to get the branch and printer settings from the http....
my %env;
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'));
# is you force a selection....
my $oldbranch = $branch;
my $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 ($_);
$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;
}
# set up printer and branch selection forms....
my ($printerform, $branchform);
if ($printercount>1) {
$printerform=<<"EOF";
<select name=printer> $printeroptions </select>
EOF
} else {
my ($printer) = keys %$printers;
}
if ($branchcount>1) {
$branchform=<<"EOF";
<select name=branch> $branchoptions </select>
EOF
} else {
my ($branch) = keys %$branches;
}
#############################################################################################
# Start writing page....
# set header with cookie....
print $query->header();
print startpage();
print startmenu('circulation');
print << "EOF";
<FONT SIZE=6><em>Circulation: Select Printer and Branch Settings</em></FONT><br>
<center>
<form method=post action=/cgi-bin/koha/circ/circulation.pl>
<table border=1 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>
</center>
EOF
print endmenu('circulation');
print endpage();
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/circ selectbranchprinter.pl,NONE,1.1,
Finlay Thompson <=
- Prev by Date:
[Koha-cvs] CVS: koha/marc/benchmarks benchmarkresults,NONE,1.1 benchmarkschema,NONE,1.1 generaterandomdata,NONE,1.1 getdata-paul,NONE,1.1 getdata-paul-regex,NONE,1.1 getdata-steve,NONE,1.1 runbenchmark,NONE,1.1
- Next by Date:
[Koha-cvs] CVS: koha/circ branchtransfers.pl,1.5,1.6
- Previous by thread:
[Koha-cvs] CVS: koha/marc/benchmarks benchmarkresults,NONE,1.1 benchmarkschema,NONE,1.1 generaterandomdata,NONE,1.1 getdata-paul,NONE,1.1 getdata-paul-regex,NONE,1.1 getdata-steve,NONE,1.1 runbenchmark,NONE,1.1
- Next by thread:
[Koha-cvs] CVS: koha/circ branchtransfers.pl,1.5,1.6
- Index(es):