/[webpac]/trunk2/lib/WebPAC.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 /trunk2/lib/WebPAC.pm

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

revision 500 by dpavlin, Sun Oct 10 11:04:52 2004 UTC revision 501 by dpavlin, Sun Oct 10 11:25:10 2004 UTC
# Line 731  sub parse { Line 731  sub parse {
731          }          }
732    
733          if ($eval_code) {          if ($eval_code) {
734                  my $eval = $self->fill_in($rec,$eval_code,$i);                  my $eval = $self->fill_in($rec,$eval_code,$i) || return;
735                  $log->debug("about to eval{$eval} format: $out");                  $log->debug("about to eval{$eval} format: $out");
736                  return if (! $self->_eval($eval));                  return if (! $self->_eval($eval));
737          }          }
# Line 927  sub data_structure { Line 927  sub data_structure {
927                                          # delimiter (or ,)                                          # delimiter (or ,)
928                                          my $d = $tag->{'delimiter'};                                          my $d = $tag->{'delimiter'};
929                                          # default delimiter                                          # default delimiter
930                                          $d ||= ", ";                                          $d ||= " ";
931    
932                                          my $last = pop @{$row->{$type}};                                          my $last = pop @{$row->{$type}};
933                                          $d = "" if (! $last);                                          $d = "" if (! $last);

Legend:
Removed from v.500  
changed lines
  Added in v.501

  ViewVC Help
Powered by ViewVC 1.1.26