--- trunk/lib/WebPAC/Validate.pm	2006/09/11 15:59:35	671
+++ trunk/lib/WebPAC/Validate.pm	2006/09/13 17:44:57	677
@@ -18,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.08
+Version 0.09
 
 =cut
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
 
 =head1 SYNOPSIS
 
@@ -41,6 +41,8 @@
   205! a
   # while 210 can have a c or d
   210 a c d
+  # field which is ignored in validation
+  999-
 
 =head1 FUNCTIONS
 
@@ -86,6 +88,8 @@
 
 		if ($fld =~ s/!$//) {
 			$self->{must_exist}->{$fld}++;
+		} elsif ($fld =~ s/-$//) {
+			$self->{dont_validate}->{$fld}++;
 		}
 
 		$log->logdie("need field name in line $curr_line: $l") unless (defined($fld));
@@ -142,6 +146,9 @@
 
 		next if (!defined($f) || $f eq '' || $f eq '000');
 
+		next if (defined( $self->{dont_validate}->{$f} ));
+
+		# track field usage
 		$fields->{$f}++;
 
 		if ( ! defined($r->{$f}) ) {