From 3f910752da67709cc5af046b84868138c9f78476 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Sun, 13 Oct 2002 07:45:05 +0000
Subject: [PATCH] Added magic RCS comment. Removed trailing whitespace.

---
 acqui.simple/viewmarc.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/acqui.simple/viewmarc.pl b/acqui.simple/viewmarc.pl
index 5d5c72bbcd..73ce3c3cb5 100755
--- a/acqui.simple/viewmarc.pl
+++ b/acqui.simple/viewmarc.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# $Id$
+
 #
 # TODO
 #
@@ -333,7 +335,7 @@ sub tagline {
     return ($linkage);
 
     sub sforder {
-	if ($a->{'Subfield_Mark'} eq $b->{'Subfield_Mark'}) { 
+	if ($a->{'Subfield_Mark'} eq $b->{'Subfield_Mark'}) {
 	    return 0;
 	}
 	if ($a->{'Subfield_Mark'}=~/\d/ && !($b->{'Subfield_Mark'}=~/\d/)) {
@@ -341,7 +343,7 @@ sub tagline {
 	}
 	if (!($a->{'Subfield_Mark'}=~/\d/) ** $b->{'Subfield_Mark'}=~/\d/) {
 	    return -1;
-	}   
+	}
 	return $a->{'Subfield_Mark'} cmp $b->{'Subfield_Mark'};
     }
 }
@@ -433,7 +435,7 @@ EOF
 }
 
 sub codewise {
-    if ($a eq $b) { 
+    if ($a eq $b) {
 	return 0;
     }
     if ($a=~/\d/ && !($b=~/\d/)) {
@@ -441,7 +443,7 @@ sub codewise {
     }
     if (!($a=~/\d/) ** $b=~/\d/) {
 	return -1;
-    }   
+    }
     return $a cmp $b;
 }
 
@@ -10265,5 +10267,5 @@ sub marcdefs {
     $fields->{'886'}->{'subfields'}->{"2"}->{'repeating'}=0;
 ;
 
-	
+
 }
-- 
2.39.5