[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 ----
  ;
  
! 
  }