#!/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=new CGI;
my $time=$input->param('time');
#print $input->header;
my $branches=getbranches(\%env);
my $printers=getprinters(\%env);
my $branch=$input->param('branch');
my $printer=$input->param('printer');
($branch) || ($branch=$input->cookie('branch'));
($printer) || ($printer=$input->cookie('printer'));
my ($oldbranch, $oldprinter);
if ($input->param('selectnewbranchprinter')) {
$oldbranch=$branch;
$oldprinter=$printer;
$branch='';
$printer='';
}
$env{'branchcode'}=$branch;
$env{'printer'}=$printer;
#$env{'queue'}=$printer;
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);
($selected='selected') if ($_ eq $branch);
$branchoptions.="