[Koha-cvs] CVS: koha/C4 Format.pm,1.6,1.7

[Andrew Arensburger]

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

Modified Files:
        Format.pm 
Log Message:
Added some FIXME comments.
Added RCS magic comment.
Removed unused finalizer.


Index: Format.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Format.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Format.pm   10 Oct 2002 04:34:51 -0000      1.6
--- Format.pm   13 Oct 2002 06:03:20 -0000      1.7
***************
*** 1,4 ****
! package C4::Format; #assumes C4/Format
  
  
  # Copyright 2000-2002 Katipo Communications
--- 1,5 ----
! package C4::Format;
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 122,125 ****
--- 123,128 ----
  part will be split into three-digit groups separated by commas.
  
+ C<$env> is effectively ignored.
+ 
  =cut
  #'
***************
*** 211,222 ****
    # Right-pad the decimal part to the given number of digits.
    if ($right > 0) {
!      $tempdec = $tempdec.("0"x$right);
       $tempdec = substr($tempdec,0,$right);
!      $fnumb = $fnumb.".".$tempdec;
    }
    return ($fnumb);    # FIXME - Shouldn't return a list.
  }
- 
- END { }       # module clean-up code here (global destructor)
  
  1;
--- 214,223 ----
    # Right-pad the decimal part to the given number of digits.
    if ($right > 0) {
!      $tempdec = $tempdec.("0"x$right);        # FIXME - .=
       $tempdec = substr($tempdec,0,$right);
!      $fnumb = $fnumb.".".$tempdec;    # FIXME - .=
    }
    return ($fnumb);    # FIXME - Shouldn't return a list.
  }
  
  1;