[Koha-cvs] koha/serials claims.pl

[Robert Lyon]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Robert Lyon <bob_lyon>	06/12/13 20:07:23

Modified files:
	serials        : claims.pl 

Log message:
	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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/claims.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: claims.pl
===================================================================
RCS file: /sources/koha/koha/serials/claims.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- claims.pl	6 Sep 2006 16:21:04 -0000	1.2
+++ claims.pl	13 Dec 2006 20:07:22 -0000	1.3
@@ -14,7 +14,7 @@
 
 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 @@
 	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 @@
 			-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, at supplierinfo);
 if($supplierid){
    ($singlesupplier, at supplierinfo)=bookseller($supplierid);
@@ -69,11 +69,11 @@
 
 $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"),