circ/selectbranchprinter.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   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
  11 # version.
  12 #
  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.
  16 #
  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
  20
  21 use strict;
  22 use CGI qw/:standard/;
  23 use C4::Circulation::Circ2;
  24 use C4::Output;
  25 use C4::Print;
  26 use DBI;
  27
  28
  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....
  32
  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";
  40
  41 # try to get the branch and printer settings from the http....
  42 my %env;
  43 my $query=new CGI;
  44 my $branches=getbranches(\%env);
  45 my $printers=getprinters(\%env);
  46 my $branch=$query->param('branch');
  47 my $printer=$query->param('printer');
  48
  49 ($branch) || ($branch=$query->cookie('branch'));
  50 ($printer) || ($printer=$query->cookie('printer'));
  51
  52 # is you force a selection....
  53 my $oldbranch = $branch;
  54 my $oldprinter = $printer;
  55
  56 $branch='';
  57 $printer='';
  58
  59
  60 $env{'branchcode'}=$branch;
  61 $env{'printer'}=$printer;
  62 $env{'queue'}=$printer;
  63
  64 # set up select options....
  65 my $branchcount=0;
  66 my $printercount=0;
  67 my $branchoptions;
  68 my $printeroptions;
  69 foreach (keys %$branches) {
  70     (next) unless ($_);
  71     # FIXME - What is this "IS" field? I suspect it's a leftover from
  72     # some previous iteration of the code, and means "this is a branch
  73     # that does issues". But it never gets set, so no branches ever
  74     # get selected, and the user can't choose a branch.
  75     # FIXME - Also, shouldn't librarians be able to select any branch,
  76     # not just ones that handle issues?
  77 #    (next) unless ($branches->{$_}->{'IS'});
  78     $branchcount++;
  79     my $selected='';
  80     ($selected='selected') if ($_ eq $oldbranch);
  81     $branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n";
  82 }
  83 foreach (keys %$printers) {
  84     (next) unless ($_);
  85     $printercount++;
  86     my $selected='';
  87     ($selected='selected') if ($_ eq $oldprinter);
  88     $printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n";
  89 }
  90
  91 # if there is only one....
  92
  93 if ($printercount==1) {
  94     ($printer)=keys %$printers;
  95 }
  96 if ($branchcount==1) {
  97     ($branch)=keys %$branches;
  98 }
  99
 100 # set up printer and branch selection forms....
 101 my ($printerform, $branchform);
 102 if ($printercount>1) {
 103     $printerform=<<"EOF";
 104 <select name=printer> $printeroptions </select>
 105 EOF
 106 } else {
 107     my ($printer) = keys %$printers;
 108 }
 109
 110 if ($branchcount>1) {
 111     $branchform=<<"EOF";
 112 <select name=branch> $branchoptions </select>
 113 EOF
 114 } else {
 115     my ($branch) = keys %$branches;
 116 }
 117
 118
 119
 120 #############################################################################################
 121 # Start writing page....
 122 # set header with cookie....
 123
 124 print $query->header();
 125
 126 print startpage();
 127 print startmenu('circulation');
 128
 129 print << "EOF";
 130 <FONT SIZE=6><em>Circulation: Select Printer and Branch Settings</em></FONT><br>
 131
 132 <center>
 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>
 137 <tr><td>
 138 $branchform
 139 </td>
 140 <td>
 141 $printerform
 142 </td></tr>
 143 </table>
 144 <input type="hidden" name="setcookies" value=1>
 145 <input type="submit" value="Submit" type="changesettings">
 146 </form>
 147 </center>
 148
 149 EOF
 150
 151
 152 print endmenu('circulation');
 153 print endpage();
 154