--- trunk/lib/WebPAC/Validate.pm 2007/05/27 10:50:37 849 +++ trunk/lib/WebPAC/Validate.pm 2007/05/27 11:14:40 851 @@ -468,7 +468,7 @@ my $report = $validate->delimiter_teplates( report => 1, - accumulated => 1, + current_input => 1, ); Options: @@ -479,9 +479,9 @@ Generate humanly readable report with single fields -=item accumulated +=item current_input -Use accumulated data from all inputs +Report just current_input and not accumulated data =back @@ -492,12 +492,8 @@ my $args = {@_}; - my $t; - if ( $args->{accumulated} ) { - $t = $self->{_accumulated_delimiters_templates}; - } else { - $t = $self->{_delimiters_templates}; - } + my $t = $self->{_accumulated_delimiters_templates}; + $t = $self->{_delimiters_templates} if ( $args->{current_input} ); my $log = $self->_get_logger; @@ -552,7 +548,7 @@ $path .= '.new' if ( -e $path ); open(my $d, '>', $path) || $log->fatal("can't open $path: $!"); - print $d $self->delimiters_templates( accumulated => 1 ); + print $d $self->delimiters_templates; close($d); $log->info("new delimiters templates saved to $path");