[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   => address@hidden,
-                       -default  => $claimletter,
-                       -labels   => \%letters,
-                       -size     => 1,
-                       -multiple => 0 );
+# my $CGIletter=CGI::scrolling_list( -name     => 'claimletter',
+#                      -values   => address@hidden,
+#                      -default  => $claimletter,
+#                      -labels   => \%letters,
+#                      -size     => 1,
+#                      -multiple => 0 );
 my ($singlesupplier,@supplierinfo);
 if($supplierid){
    ($singlesupplier,@supplierinfo)=bookseller($supplierid);
@@ -69,11 +69,11 @@
 
 $template->param(
        CGIsupplier => $CGIsupplier,
-       CGIletter => $CGIletter,
+#      CGIletter => $CGIletter,
         preview => $preview,
         missingissues => address@hidden,
         supplierid => $supplierid,
-        claimletter => $claimletter,
+#       claimletter => $claimletter,
         singlesupplier => $singlesupplier,
         supplierloop => address@hidden,
        intranetcolorstylesheet => 
C4::Context->preference("intranetcolorstylesheet"),