Changeset 27818 for main

Timestamp:

2013-07-11T16:21:04+12:00 (11 years ago)

Author:

kjdon

Message:

adding in stuff for facets

File:

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

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -391 +391 @@
     $settings->{'sortmap'} = $sortmap;
 
-    ### TODO make these use facets not the sort list
-    $settings->{'facetlist'} = $sortlist;
-    $settings->{'facetmap'} = $sortmap;
+    # facet field list
+    ######
+
+    my $facetmap = {};  # maps index name to shortname
+    my $facetlist = []; # keeps the order for indexes
+
+    if (defined ($buildcfg->{"indexfacetfieldmap"})) {
+    my $facetmap_t = $buildcfg->{"indexfacetfieldmap"};
+    foreach my $s (@$facetmap_t) {
+        my ($k, $v) = $s =~ /^(.*)\-\>(.*)$/;
+        $facetmap->{$v} = $k;
+    }
+    }
+    if (defined ($buildcfg->{"indexfacetfields"})) {
+    $facetlist = $buildcfg->{"indexfacetfields"};
+    }
+
+    $settings->{'facetlist'} = $facetlist;
+    $settings->{'facetmap'} = $facetmap;
 
 
@@ -503 +519 @@
     foreach my $ff (@$facetlist) {
         my $facetf = $facetmap->{$ff};
-        &write_line('COLCFG', ["<facet name=\"", $ff, "\" shortname=\"", $facetf, "\" />"]);
+        &write_line('COLCFG', ["<facet name=\"", $facetf, "\" shortname=\"", $ff, "\" />"]);
     }
     &write_line('COLCFG', ["</facetList>"]);