/[webpac2]/trunk/lib/WebPAC/Validate.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Validate.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 829 by dpavlin, Sun May 20 16:19:17 2007 UTC revision 830 by dpavlin, Wed May 23 20:03:12 2007 UTC
# Line 160  sub validate_rec { Line 160  sub validate_rec {
160                  if ( my $regex = $self->{delimiters_regex} ) {                  if ( my $regex = $self->{delimiters_regex} ) {
161    
162                          foreach my $v (@{ $rec->{$f} }) {                          foreach my $v (@{ $rec->{$f} }) {
                                         warn "## v = ", dump( $v );  
163                                          my $l = _pack_subfields_hash( $v, 1 );                                          my $l = _pack_subfields_hash( $v, 1 );
                                         warn "## $l [$regex]\n";  
164                                          my $template = '';                                          my $template = '';
165                                          $l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n";                                          $l =~ s/$regex/$template.=$1/eg;
166                                          warn "## template: $template\n";  #                                       warn "## template: $template\n";
167                                          $self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );                                          $self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );
168                          }                          }
169    
Legend:
Removed from v.829  
changed lines
  Added in v.830
  ViewVC Help
Powered by ViewVC 1.1.26