--- trunk/lib/WebPAC/Validate.pm	2006/09/13 17:44:57	677
+++ trunk/lib/WebPAC/Validate.pm	2007/05/24 10:53:48	834
@@ -18,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.09
+Version 0.11
 
 =cut
 
-our $VERSION = '0.09';
+our $VERSION = '0.11';
 
 =head1 SYNOPSIS
 
@@ -52,8 +52,13 @@
 
   my $validate = new WebPAC::Validate(
   	path => 'conf/validate/file',
+	delimiters => [ ' : ', ' / ', ' ; ', ' , ' ],
   );
 
+Optional parametar C<delimiters> will turn on validating of delimiters. Be
+careful here, those delimiters are just stuck into regex, so they can
+contain L<perlre> regexpes.
+
 =cut
 
 sub new {
@@ -114,23 +119,28 @@
 
 	$log->info("validation uses rules from $self->{path}");
 
+	if ( $self->{delimiters} ) {
+		$self->{delimiters_regex} = '(\^[a-z0-9]|' . join('|', @{ $self->{delimiters} }) . ')';
+		$log->info("validation check delimiters with regex $self->{delimiters_regex}");
+	}
+
 	$self ? return $self : return undef;
 }
 
-=head2 validate_errors
+=head2 validate_rec
 
 Validate record and return errors
 
-  my @errors = $validate->validate_errors( $rec, $rec_dump );
+  my @errors = $validate->validate_rec( $rec, $rec_dump );
 
 =cut
 
-sub validate_errors {
+sub validate_rec {
 	my $self = shift;
 
 	my $log = $self->_get_logger();
 
-	my $rec = shift || $log->logdie("validate_errors need record");
+	my $rec = shift || $log->logdie("validate_rec need record");
 	my $rec_dump = shift;
 
 	$log->logdie("rec isn't HASH") unless (ref($rec) eq 'HASH');
@@ -146,6 +156,19 @@
 
 		next if (!defined($f) || $f eq '' || $f eq '000');
 
+		# first check delimiters
+		if ( my $regex = $self->{delimiters_regex} ) {
+
+			foreach my $v (@{ $rec->{$f} }) {
+					my $l = _pack_subfields_hash( $v, 1 );
+					my $template = '';
+					$l =~ s/$regex/$template.=$1/eg;
+#					warn "## template: $template\n";
+					$self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );
+			}
+
+		}
+
 		next if (defined( $self->{dont_validate}->{$f} ));
 
 		# track field usage
@@ -222,6 +245,8 @@
 		}
 	}
 
+	$log->debug("_delimiters_templates = ", dump( $self->{_delimiters_templates} ) );
+
 	foreach my $must (sort keys %{ $self->{must_exist} }) {
 		next if ($fields->{$must});
 		$errors->{$must}->{missing}++;
@@ -380,6 +405,56 @@
 
 }
 
+=head2 delimiters_templates
+
+Generate report of delimiter tamplates 
+
+  my $report = $validate->delimiter_teplates(
+	report => 1,
+  );
+
+Options:
+
+=over 4
+
+=item report
+
+Generate humanly readable report with single fields
+
+=back
+
+=cut
+
+sub delimiters_templates {
+	my $self = shift;
+
+	my $args = {@_};
+
+	my $t = $self->{_delimiters_templates};
+
+	my $log = $self->_get_logger;
+
+	unless ($t) {
+		$log->error("called without delimiters");
+		return;
+	}
+
+	my $out;
+
+	foreach my $f (sort { $a <=> $b } keys %$t) {
+		$out .= "$f\n" if ( $args->{report} );
+		foreach my $template (sort { $a cmp $b } keys %{ $t->{$f} }) {
+			my $count = $t->{$f}->{$template};
+			$out .= 
+				( $count ? "" : "# " ) .
+				( $args->{report} ? "" : "$f\t" ) .
+				"\t$count\t$template\n";
+		}
+	}
+
+	return $out;
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>