From a86a347557c3a12b833740072fbefc5e1b526c89 Mon Sep 17 00:00:00 2001
From: bob_lyon <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.20.1