/[webpac]/trunk/all2xml.pl
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/all2xml.pl

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

revision 231 by dpavlin, Fri Mar 5 22:53:30 2004 UTC revision 233 by dpavlin, Fri Mar 5 23:33:19 2004 UTC
# Line 342  sub data2xml { Line 342  sub data2xml {
342                                                  if ($lookup_key) {                                                  if ($lookup_key) {
343                                                          print STDERR "WARNING: try to redefine lookup_key (keys shouldn't be repeatable fields!)";                                                          print STDERR "WARNING: try to redefine lookup_key (keys shouldn't be repeatable fields!)";
344                                                  } else {                                                  } else {
345                                                          $lookup_key = $display;                                                          if ($filter) {
346                                                                    no strict 'refs';
347                                                                    $lookup_key = &$filter($display);
348                                                            } else {
349                                                                    $lookup_key = $display;
350                                                            }
351                                                  }                                                  }
352                                          } elsif (lc($x->{type}) eq "lookup_val") {                                          } elsif (lc($x->{type}) eq "lookup_val") {
353                                                  if ($lookup_key) {                                                  if ($lookup_key) {
354                                                          $lhash{$lookup_key} = $display;                                                          if ($filter) {
355                                                                    no strict 'refs';
356                                                                    $lhash{$lookup_key} = &$filter($display);
357                                                            } else {
358                                                                    $lhash{$lookup_key} = $display;
359                                                            }
360                                                  } else {                                                  } else {
361                                                          print STDERR "WARNING: no lookup_key defined for  '$display'?";                                                          print STDERR "WARNING: no lookup_key defined for  '$display'?";
362                                                  }                                                  }

Legend:
Removed from v.231  
changed lines
  Added in v.233

  ViewVC Help
Powered by ViewVC 1.1.26