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

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

trunk/all2xml.pl revision 231 by dpavlin, Fri Mar 5 22:53:30 2004 UTC branches/hidra/all2xml.pl revision 249 by dpavlin, Mon Mar 8 21:10:02 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                                                  }                                                  }
# Line 730  print STDERR "using: $type...\n"; Line 740  print STDERR "using: $type...\n";
740                  print STDERR "\n";                  print STDERR "\n";
741    
742          } elsif ($type_base eq "excel") {          } elsif ($type_base eq "excel") {
743                  use Spreadsheet::ParseExcel;                  require Spreadsheet::ParseExcel;
744                  use Spreadsheet::ParseExcel::Utility qw(int2col);                  require Spreadsheet::ParseExcel::Utility;
745                    import Spreadsheet::ParseExcel::Utility qw(int2col);
746                                    
747                  $import2cp = Text::Iconv->new($config->{excel_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{excel_codepage},$codepage);
748                  my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";                  my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";
# Line 785  print STDERR "using: $type...\n"; Line 796  print STDERR "using: $type...\n";
796                  }                  }
797          } elsif ($type_base eq "marc") {          } elsif ($type_base eq "marc") {
798    
799                  use MARC;                  require MARC;
800                                    
801                  $import2cp = Text::Iconv->new($config->{marc_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{marc_codepage},$codepage);
802                  my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";                  my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";
Legend:
Removed from v.231  
changed lines
  Added in v.249
  ViewVC Help
Powered by ViewVC 1.1.26