From 6e9129444feb8cfadd4448bc3ebe69a0e4d34187 Mon Sep 17 00:00:00 2001 From: finlayt Date: Mon, 22 Jul 2002 22:40:32 +0000 Subject: [PATCH] these files were old versions that are not currently used. --- circ/circulation2.pl | 177 -------- circ/circulationold.pl | 913 ----------------------------------------- 2 files changed, 1090 deletions(-) delete mode 100755 circ/circulation2.pl delete mode 100755 circ/circulationold.pl diff --git a/circ/circulation2.pl b/circ/circulation2.pl deleted file mode 100755 index 6e1eebcb87..0000000000 --- a/circ/circulation2.pl +++ /dev/null @@ -1,177 +0,0 @@ -#!/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.="