Changeset 10658

Timestamp:

2005-09-27T14:28:29+12:00 (19 years ago)

Author:

kjdon

Message:

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

File:

• trunk/gsdl3/bin/script/convert_coll_from_gs2.pl (modified) (4 diffs)

trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

@@ -15 +15 @@
 use FileHandle;
 use XML::Writer;
-use GDBM_File;
+#can't get this to work on windows
+#use GDBM_File;
 
 use strict;
@@ -97 +98 @@
     }
 
-    my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb");
+#    my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb");
     my $database;
-    if (-e $db_file) {
-    $database = &open_database($db_file);
-    } else {
-    print STDERR "gdbm database file $db_file not found!!";
-    die "\n";
-    }
+#    if (-e $db_file) {
+#   $database = &open_database($db_file);
+#    } else {
+#   print STDERR "gdbm database file $db_file not found!!";
+#   die "\n";
+#    }
     
     my $buildtype;
@@ -619 +620 @@
     
     my $database = ();
-    tie (%$database, 'GDBM_File', $db_file, &GDBM_READER, 0400) ||
-    die "Couldn't open database $db_file\n";
+#    tie (%$database, 'GDBM_File', $db_file, GDBM_READER, 0400) ||
+#   die "Couldn't open database $db_file\n";
 
     return $database;
@@ -632 +633 @@
     my ($database, $name) = @_;
 
+    return 0; # can't get this to work for windows
     my $record = $database->{$name};
     my ($childtype) = $record =~ /<childtype>(\w*)/;