[Koha-cvs] CVS: koha moremember.pl,1.19,1.20

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4179

Modified Files:
        moremember.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** moremember.pl       10 Oct 2002 15:19:50 -0000      1.19
--- moremember.pl       13 Oct 2002 07:33:59 -0000      1.20
***************
*** 1,9 ****
  #!/usr/bin/perl
  
  # script to do a borrower enquiry/bring up borrower details etc
  # Displays all the details about a borrower
  # written 20/12/99 by address@hidden
  # last modified 21/1/2000 by address@hidden
! # modified 31/1/2001 by address@hidden 
  #   to not allow items on request to be renewed
  #
--- 1,11 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  # script to do a borrower enquiry/bring up borrower details etc
  # Displays all the details about a borrower
  # written 20/12/99 by address@hidden
  # last modified 21/1/2000 by address@hidden
! # modified 31/1/2001 by address@hidden
  #   to not allow items on request to be renewed
  #
***************
*** 89,93 ****
    }
    $template->param(guaranteeloop => address@hidden);
!   
  } else {
    my ($guarantor)=findguarantor($data->{'borrowernumber'});
--- 91,95 ----
    }
    $template->param(guaranteeloop => address@hidden);
! 
  } else {
    my ($guarantor)=findguarantor($data->{'borrowernumber'});
***************
*** 101,106 ****
  
  # FIXME
! # it looks like $numaccts is a temp variable and that the 
! # for (my $i;$i<$numaccts;$i+++) 
  # can be turned into a foreach loop instead
  #
--- 103,108 ----
  
  # FIXME
! # it looks like $numaccts is a temp variable and that the
! # for (my $i;$i<$numaccts;$i++)
  # can be turned into a foreach loop instead
  #
***************
*** 115,119 ****
    my %row = %$accts->[$i];
    if ($amount2 != 0){
!     my $item=" &nbsp; ";  
      $row{'date'} = slashifyDate($accts->[$i]{'date'});
  
--- 117,121 ----
    my %row = %$accts->[$i];
    if ($amount2 != 0){
!     my $item=" &nbsp; ";
      $row{'date'} = slashifyDate($accts->[$i]{'date'});
  
***************
*** 143,147 ****
    $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
    my %row = %{$issue->[$i]};
!   if ($datedue < $today){  
      $row{'red'}=1; #print "<font color=red>";
    }
--- 145,149 ----
    $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
    my %row = %{$issue->[$i]};
!   if ($datedue < $today){
      $row{'red'}=1; #print "<font color=red>";
    }
***************
*** 173,178 ****
  
  # FIXME
! # does it make sense to turn this into a foreach my $i (0..$rescount) 
! # kind of loop? 
  #
  my @reservedata;
--- 175,180 ----
  
  # FIXME
! # does it make sense to turn this into a foreach my $i (0..$rescount)
! # kind of loop?
  #
  my @reservedata;