Changeset 10658

Show
Ignore:
Timestamp:
27.09.2005 14:28:29 (14 years ago)
Author:
kjdon
Message:

couldn't get the GDBM_File stuff to work on windows, so for now, never set horizontalAtTop for classifiers

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

    r10653 r10658  
    1515use FileHandle; 
    1616use XML::Writer; 
    17 use GDBM_File; 
     17#can't get this to work on windows 
     18#use GDBM_File; 
    1819 
    1920use strict; 
     
    9798    } 
    9899 
    99     my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb"); 
     100#    my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb"); 
    100101    my $database; 
    101     if (-e $db_file) { 
    102     $database = &open_database($db_file); 
    103     } else { 
    104     print STDERR "gdbm database file $db_file not found!!"; 
    105     die "\n"; 
    106     } 
     102#    if (-e $db_file) { 
     103#   $database = &open_database($db_file); 
     104#    } else { 
     105#   print STDERR "gdbm database file $db_file not found!!"; 
     106#   die "\n"; 
     107#    } 
    107108     
    108109    my $buildtype; 
     
    619620     
    620621    my $database = (); 
    621     tie (%$database, 'GDBM_File', $db_file, &GDBM_READER, 0400) || 
    622     die "Couldn't open database $db_file\n"; 
     622#    tie (%$database, 'GDBM_File', $db_file, GDBM_READER, 0400) || 
     623#   die "Couldn't open database $db_file\n"; 
    623624 
    624625    return $database; 
     
    632633    my ($database, $name) = @_; 
    633634 
     635    return 0; # can't get this to work for windows 
    634636    my $record = $database->{$name}; 
    635637    my ($childtype) = $record =~ /<childtype>(\w*)/;