[Koha-cvs] CVS: koha/acqui.simple viewmarc.pl,1.5,1.6

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv5673

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


Index: viewmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/viewmarc.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** viewmarc.pl	5 Oct 2002 10:01:30 -0000	1.5
--- viewmarc.pl	13 Oct 2002 07:45:05 -0000	1.6
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #
  # TODO
***************
*** 334,338 ****
  
      sub sforder {
! 	if ($a->{'Subfield_Mark'} eq $b->{'Subfield_Mark'}) { 
  	    return 0;
  	}
--- 336,340 ----
  
      sub sforder {
! 	if ($a->{'Subfield_Mark'} eq $b->{'Subfield_Mark'}) {
  	    return 0;
  	}
***************
*** 342,346 ****
  	if (!($a->{'Subfield_Mark'}=~/\d/) ** $b->{'Subfield_Mark'}=~/\d/) {
  	    return -1;
! 	}   
  	return $a->{'Subfield_Mark'} cmp $b->{'Subfield_Mark'};
      }
--- 344,348 ----
  	if (!($a->{'Subfield_Mark'}=~/\d/) ** $b->{'Subfield_Mark'}=~/\d/) {
  	    return -1;
! 	}
  	return $a->{'Subfield_Mark'} cmp $b->{'Subfield_Mark'};
      }
***************
*** 434,438 ****
  
  sub codewise {
!     if ($a eq $b) { 
  	return 0;
      }
--- 436,440 ----
  
  sub codewise {
!     if ($a eq $b) {
  	return 0;
      }
***************
*** 442,446 ****
      if (!($a=~/\d/) ** $b=~/\d/) {
  	return -1;
!     }   
      return $a cmp $b;
  }
--- 444,448 ----
      if (!($a=~/\d/) ** $b=~/\d/) {
  	return -1;
!     }
      return $a cmp $b;
  }
***************
*** 10266,10269 ****
  ;
  
! 	
  }
--- 10268,10271 ----
  ;
  
! 
  }