[Koha-cvs] CVS: koha/marc USMARC.pm,1.3,1.4

[Andrew Arensburger]

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

Modified Files:
        USMARC.pm 
Log Message:
Removed trailing whitespace.


Index: USMARC.pm
===================================================================
RCS file: /cvsroot/koha/koha/marc/USMARC.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** USMARC.pm   10 Oct 2002 04:49:06 -0000      1.3
--- USMARC.pm   13 Oct 2002 10:44:46 -0000      1.4
***************
*** 57,61 ****
  
      my $file = MARC::File::USMARC::in( $filename );
!     
      while ( my $marc = $file->next() ) {
        # Do something
--- 57,61 ----
  
      my $file = MARC::File::USMARC::in( $filename );
! 
      while ( my $marc = $file->next() ) {
        # Do something
***************
*** 66,70 ****
  =head1 EXPORT
  
! None.  
  
  =head1 METHODS
--- 66,70 ----
  =head1 EXPORT
  
! None.
  
  =head1 METHODS
***************
*** 147,151 ****
      my @directory = unpack( "A3 A4 A5" x $nfields, $dir );
      my @bad = grep /\D/, @directory;
!     if ( @bad ) { 
        return $marc->_gripe( "Non-numeric entries in the tag directory: ", 
join( ", ", map { "\"$_\"" } @bad ) );
      }
--- 147,151 ----
      my @directory = unpack( "A3 A4 A5" x $nfields, $dir );
      my @bad = grep /\D/, @directory;
!     if ( @bad ) {
        return $marc->_gripe( "Non-numeric entries in the tag directory: ", 
join( ", ", map { "\"$_\"" } @bad ) );
      }
***************
*** 201,205 ****
  
  If any changes get made to the MARC record, the first 5 bytes of the
! leader (the length) will be invalid.  This function updates the 
  leader with the correct length of the record as it would be if
  written out to a file.
--- 201,205 ----
  
  If any changes get made to the MARC record, the first 5 bytes of the
! leader (the length) will be invalid.  This function updates the
  leader with the correct length of the record as it would be if
  written out to a file.
***************
*** 247,251 ****
        }
  
!       my $baseaddress = 
                LEADER_LEN +    # better be 24
                ( @directory * DIRECTORY_ENTRY_LEN ) +
--- 247,251 ----
        }
  
!       my $baseaddress =
                LEADER_LEN +    # better be 24
                ( @directory * DIRECTORY_ENTRY_LEN ) +
***************
*** 254,258 ****
  
  
!       my $total = 
                $baseaddress +  # stuff before first field
                $dataend +      # Length of the fields
--- 254,258 ----
  
  
!       my $total =
                $baseaddress +  # stuff before first field
                $dataend +      # Length of the fields
***************
*** 298,302 ****
  =head1 LICENSE
  
! This code may be distributed under the same terms as Perl itself. 
  
  Please note that these modules are not products of or supported by the
--- 298,302 ----
  =head1 LICENSE
  
! This code may be distributed under the same terms as Perl itself.
  
  Please note that these modules are not products of or supported by the