[Koha-cvs] CVS: koha/circ circulation.pl,1.43,1.44

[Andrew Arensburger]

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

Modified Files:
        circulation.pl 
Log Message:
Added some FIXME comments.


Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** circulation.pl      5 Oct 2002 10:03:51 -0000       1.43
--- circulation.pl      9 Oct 2002 14:29:39 -0000       1.44
***************
*** 31,36 ****
  my %env;
  my $headerbackgroundcolor='#99cc33';
! my $circbackgroundcolor='#ffffcc';
! my $circbackgroundcolor='white';      # FIXME - Duplicate
  my $linecolor1='#ffffcc';
  my $linecolor2='white';
--- 31,36 ----
  my %env;
  my $headerbackgroundcolor='#99cc33';
! my $circbackgroundcolor='#ffffcc';    # FIXME - Never used
! my $circbackgroundcolor='white';      # FIXME - Never used
  my $linecolor1='#ffffcc';
  my $linecolor2='white';
***************
*** 62,67 ****
  
  my @datearr = localtime(time());
! my $tday = localtime(time());
! warn "today: $tday \n";
  my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", 
($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]));
  #warn $todaysdate;
--- 62,68 ----
  
  my @datearr = localtime(time());
! my $tday = localtime(time());         # FIXME - Unused
! #warn "today: $tday \n";
! # FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
  my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", 
($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]));
  #warn $todaysdate;