/[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 861 by dpavlin, Sun May 27 19:25:57 2007 UTC revision 875 by dpavlin, Tue Jun 26 17:46:49 2007 UTC
# Line 188  sub read_validate_delimiters_file { Line 188  sub read_validate_delimiters_file {
188          } else {          } else {
189                  $log->warn("delimiters path $path doesn't exist, it will be created after this run");                  $log->warn("delimiters path $path doesn't exist, it will be created after this run");
190          }          }
191            $self->{delimiters_path} = $path;
192  }  }
193    
194  =head2 validate_rec  =head2 validate_rec
# Line 272  sub validate_rec { Line 273  sub validate_rec {
273  #                                       $errors->{dump} = $rec_dump if ($rec_dump);  #                                       $errors->{dump} = $rec_dump if ($rec_dump);
274                                  } elsif (ref($v) ne 'HASH') {                                  } elsif (ref($v) ne 'HASH') {
275                                          $errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";                                          $errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";
276                                            $errors->{$f}->{dump} = $v;
277                                          next;                                          next;
278                                  } else {                                  } else {
279    
# Line 372  sub reset { Line 374  sub reset {
374                                  $self->{_delimiters_templates}->{$f}->{$t};                                  $self->{_delimiters_templates}->{$f}->{$t};
375                  }                  }
376          }          }
377          $log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiter_templates} ) } );          $log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiters_templates} ) } );
378          delete ($self->{_delimiters_templates});          delete ($self->{_delimiters_templates});
379  }  }
380    
# Line 566  Save accumulated delimiter templates Line 568  Save accumulated delimiter templates
568  sub save_delimiters_templates {  sub save_delimiters_templates {
569          my $self = shift;          my $self = shift;
570    
571          my $path = $self->{delimiters_path};          my $path = shift;
572            $path ||= $self->{delimiters_path};
         return unless ( $path );  
573    
574          my $log = $self->_get_logger;          my $log = $self->_get_logger;
575    
576            $log->logdie("need path") unless ( $path );
577    
578    
579          if ( ! $self->{_accumulated_delimiters_templates} ) {          if ( ! $self->{_accumulated_delimiters_templates} ) {
580                  $log->error('no _accumulated_delimiters_templates found, reset');                  $log->error('no _accumulated_delimiters_templates found, reset');
581                  $self->reset;                  $self->reset;
582          }          }
583    
584          if ( ! $self->{_delimiters_templates} ) {          if ( $self->{_delimiters_templates} ) {
585                  $log->error('found _delimiters_templates, calling reset');                  $log->error('found _delimiters_templates, calling reset');
586                  $self->reset;                  $self->reset;
587          }          }
Legend:
Removed from v.861  
changed lines
  Added in v.875
  ViewVC Help
Powered by ViewVC 1.1.26