4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 USA
22 use CGI qw/:standard/;
23 use C4::Circulation::Circ2;
29 # this is a reorganisation of circulationold.pl
30 # dividing it up into three scripts......
31 # this will be the first one that chooses branch and printer settings....
33 #general design stuff...
34 my $headerbackgroundcolor='#99cc33';
35 my $circbackgroundcolor='#ffffcc';
36 my $circbackgroundcolor='white';
37 my $linecolor1='#ffffcc';
38 my $linecolor2='white';
39 my $backgroundimage="/images/background-mem.gif";
41 # try to get the branch and printer settings from the http....
44 my $branches=getbranches(\%env);
45 my $printers=getprinters(\%env);
46 my $branch=$query->param('branch');
47 my $printer=$query->param('printer');
49 ($branch) || ($branch=$query->cookie('branch'));
50 ($printer) || ($printer=$query->cookie('printer'));
52 ($branches->{$branch}) || ($branch=(keys %$branches)[0]);
53 ($printers->{$printer}) || ($printer=(keys %$printers)[0]);
56 # is you force a selection....
57 my $oldbranch = $branch;
58 my $oldprinter = $printer;
64 $env{'branchcode'}=$branch;
65 $env{'printer'}=$printer;
66 $env{'queue'}=$printer;
68 # set up select options....
73 foreach (keys %$branches) {
75 (next) unless ($branches->{$_}->{'IS'});
78 ($selected='selected') if ($_ eq $oldbranch);
79 $branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n";
81 foreach (keys %$printers) {
85 ($selected='selected') if ($_ eq $oldprinter);
86 $printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n";
89 # if there is only one....
91 if ($printercount==1) {
92 ($printer)=keys %$printers;
94 if ($branchcount==1) {
95 ($branch)=keys %$branches;
98 # set up printer and branch selection forms....
99 my ($printerform, $branchform);
100 if ($printercount>1) {
101 $printerform=<<"EOF";
102 <select name=printer> $printeroptions </select>
105 my ($printer) = keys %$printers;
106 $printerform.="Printer: ".$printers->{$printer}->{printername};
109 if ($branchcount>1) {
111 <select name=branch> $branchoptions </select>
114 my ($branch) = keys %$branches;
115 $branchform.= "Branch: ".$branches->{$branch}->{branchname};
120 #############################################################################################
121 # Start writing page....
122 # set header with cookie....
124 print $query->header();
127 print startmenu('circulation');
130 <FONT SIZE=6><em>Circulation: Select Printer and Branch Settings</em></FONT><br>
133 <form method=post action=/cgi-bin/koha/circ/circulation.pl>
134 <table border=1 cellpadding=5 cellspacing=0>
135 <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
136 <font color=black><b>Please Set Branch and Printer</b></font></td></tr>
144 <input type="hidden" name="setcookies" value=1>
145 <input type="submit" value="Submit" type="changesettings">
152 print endmenu('circulation');