[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