/[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 949 by dpavlin, Thu Nov 1 00:16:48 2007 UTC revision 1049 by dpavlin, Mon Nov 19 16:50:10 2007 UTC
# Line 135  sub read_validate_file { Line 135  sub read_validate_file {
135                  if (@d) {                  if (@d) {
136                          $v->{$fld} = [ map {                          $v->{$fld} = [ map {
137                                  my $sf = $_;                                  my $sf = $_;
138                                  if ( $sf =~ s/!(\*)?$/$1/ ) {                                  if ( $sf =~ s/!// ) {
139                                          $self->{must_exist_sf}->{ $fld }->{ $sf }++;                                          $self->{must_exist_sf}->{ $fld }->{ $sf }++;
140                                  };                                  };
141                                  $sf;                                  $sf;
Legend:
Removed from v.949  
changed lines
  Added in v.1049
  ViewVC Help
Powered by ViewVC 1.1.26