/[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 827 by dpavlin, Sun May 20 16:19:16 2007 UTC revision 828 by dpavlin, Sun May 20 16:19:17 2007 UTC
# Line 159  sub validate_rec { Line 159  sub validate_rec {
159                  # first check delimiters                  # first check delimiters
160                  if ( my $regex = $self->{delimiters_regex} ) {                  if ( my $regex = $self->{delimiters_regex} ) {
161    
                         my $template = '';  
   
162                          foreach my $v (@{ $rec->{$f} }) {                          foreach my $v (@{ $rec->{$f} }) {
163                                          warn "## v = ", dump( $v );                                          warn "## v = ", dump( $v );
164                                          my $l = _pack_subfields_hash( $v, 1 );                                          my $l = _pack_subfields_hash( $v, 1 );
165                                          warn "## $l [$regex]\n";                                          warn "## $l [$regex]\n";
166                                            my $template = '';
167                                          $l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n";                                          $l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n";
168                                          warn "## template: $template\n";                                          warn "## template: $template\n";
169                                          $self->{_delimiters_templates}->{$f}->{$template}++;                                          $self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );
170                          }                          }
171    
172                  }                  }
Legend:
Removed from v.827  
changed lines
  Added in v.828
  ViewVC Help
Powered by ViewVC 1.1.26