Changeset 30380 for main/trunk/greenstone2/perllib/buildConfigxml.pm

Timestamp:

2016-02-24T04:32:11+13:00 (8 years ago)

Author:

Georgiy Litvinov

Message:

Added hierarchy classifier information to buildConfig

File:

• main/trunk/greenstone2/perllib/buildConfigxml.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -754 +754 @@
       }
       my $content = ''; #use buttonname first, then metadata
+      my $hfilename = '';
+      my $metadataname = '';
       if ($classname eq "DateList") {
     $content = "Date";
@@ -759 +761 @@
     for (my $j=0; $j<scalar(@$cl); $j++) {
       my $arg = @$cl[$j];
+      if ($classname eq "Hierarchy")  
+      {
+            if ($arg eq "-hfile")
+                {
+                    $hfilename = @$cl[$j+1];
+                } 
+                elsif ($arg eq "-metadata") 
+                {
+                        $metadataname = @$cl[$j+1];
+                }
+          }
       if ($arg eq "-buttonname"){
         $content = @$cl[$j+1];
@@ -768 +781 @@
     }
       }
-      &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" />"]);
-    }     
+      if ($classname eq "Hierarchy")
+      {
+    &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" metadata=\"", $metadataname, "\" hfile=\"", $hfilename, "\" />"]);
+      } else 
+      { 
+        &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" />"]);
+      }     
+    }
     if ($started_classifiers) {
       # end the classifiers