From a86a347557c3a12b833740072fbefc5e1b526c89 Mon Sep 17 00:00:00 2001 From: bob_lyon Date: Wed, 13 Dec 2006 20:07:22 +0000 Subject: [PATCH] Updating claims - commenting out the bits of code that were not implemented in the end - was planning on having ability to choose style of claim letter but wasn't taken up in the end --- serials/claims.pl | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/serials/claims.pl b/serials/claims.pl index de9f22208e..9dbfee6490 100755 --- a/serials/claims.pl +++ b/serials/claims.pl @@ -14,7 +14,7 @@ my $query = new CGI; my $serialid = $query->param('serialid'); my $op = $query->param('op'); -my $claimletter = $query->param('claimletter'); +# my $claimletter = $query->param('claimletter'); my $supplierid = $query->param('supplierid'); my %supplierlist = GetSuppliersWithLateIssues; my @select_supplier; @@ -26,8 +26,8 @@ foreach my $supplierid (keys %supplierlist){ push @select_supplier, $supplierid } -my @select_letter = (1,2,3,4); -my %letters = (1=>'Claim Form 1',2=>'Claim Form 2',3=>'Claim Form 3',4=>'Claim Form 4'); +# my @select_letter = (1,2,3,4); +# my %letters = (1=>'Claim Form 1',2=>'Claim Form 2',3=>'Claim Form 3',4=>'Claim Form 4'); my ($count2, @missingissues) = GetMissingIssues($supplierid,$serialid); my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid', @@ -37,12 +37,12 @@ my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid', -size => 1, -multiple => 0 ); -my $CGIletter=CGI::scrolling_list( -name => 'claimletter', - -values => \@select_letter, - -default => $claimletter, - -labels => \%letters, - -size => 1, - -multiple => 0 ); +# my $CGIletter=CGI::scrolling_list( -name => 'claimletter', +# -values => \@select_letter, +# -default => $claimletter, +# -labels => \%letters, +# -size => 1, +# -multiple => 0 ); my ($singlesupplier,@supplierinfo); if($supplierid){ ($singlesupplier,@supplierinfo)=bookseller($supplierid); @@ -69,11 +69,11 @@ my ($template, $loggedinuser, $cookie) $template->param( CGIsupplier => $CGIsupplier, - CGIletter => $CGIletter, +# CGIletter => $CGIletter, preview => $preview, missingissues => \@missingissues, supplierid => $supplierid, - claimletter => $claimletter, +# claimletter => $claimletter, singlesupplier => $singlesupplier, supplierloop => \@supplierinfo, intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), -- 2.39.5