Changeset 9899

Timestamp:

2005-05-17T13:26:57+12:00 (19 years ago)

Author:

kjdon

Message:

modified the classifier output - now checks the database to see if a classifier is horizontalAtTop or not

File:

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

trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

@@ -14 +14 @@
 use FileHandle;
 use XML::Writer;
+use GDBM_File;
 
 &main();
@@ -93 +94 @@
     }
 
+    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";
+    }
+    
     my $buildtype;
     if (defined $buildcfg->{'buildtype'}) {
@@ -264 +274 @@
         }
         
-        my $horizontalAtTop = "false";
-        if ($classname eq "AZList" || $classname eq "AZCompactList") { #there may be others
-        $horizontalAtTop = "true";
-        }
+        my $horizontalAtTop = &isHorizontalClassifier($database, $name);
         if (not $started_classifiers) {
         $buildwriter->startTag('serviceRack', 'name'=>'GS2Browse');
@@ -288 +295 @@
         }
         }
-        if ($horizontalAtTop eq "false") {
+        if ($horizontalAtTop) {
+        $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'horizontalAtTop'=>'true');
+        } else {
         $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content);
-        } else {
-        $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'horizontalAtTop'=>'true');
-        }
+        } 
         
         
@@ -404 +411 @@
     $buildoutput->close();
     $colloutput->close();
+    &close_database($database);
 }
 
@@ -480 +488 @@
 }
 
+sub open_database {
+    my ($db_file) = @_;
+    
+    my $database = ();
+    tie (%database, GDBM_File, $db_file, &GDBM_READER, 0400) ||
+    die "Couldn't open database $db_file\n";
+
+    return $database;
+}
+
+sub close_database {
+    my ($database) = @_;
+    untie %database;
+}
+sub isHorizontalClassifier {
+    my ($database, $name) = @_;
+
+    my $record = $database{$name};
+    my ($childtype) = $record =~ /<childtype>(\w*)/;
+    if ($childtype eq "HList") {
+    return 1;
+    }
+    return 0;
+}
 #$writer->startTag('');
 #$writer->endTag('');