Changeset 10499

Timestamp:

2005-08-12T11:41:08+12:00 (19 years ago)

Author:

mdewsnip

Message:

Changed the way values in arguments are separated :-)

Location:

trunk/gsdl/perllib

Files:

• classify/GenericList.pm (modified) (11 diffs)
• strings.rb (modified) (1 diff)

trunk/gsdl/perllib/classify/GenericList.pm

@@ -71 +71 @@
     'desc' => "{GenericList.sort_leaf_nodes_using}",
     'type' => "metadata",
-    'deft' => "Title" } ];
+    'deft' => "Title" },
+      { 'name' => "use_hlist_for",
+    'desc' => "{GenericList.use_hlist_for}",
+    'type' => "string" } ];
 
 my $options = { 'name'     => "GenericList",
@@ -101 +104 @@
     my $partition_size_within_level = $self->{'partition_size_within_level'};
     my $sort_leaf_nodes_using = $self->{'sort_leaf_nodes_using'};
+    my $use_hlist_for = $self->{'use_hlist_for'};
 
     # The metadata elements to use (required)
@@ -113 +117 @@
     if (!$buttonname) {
     # Default: the first metadata element specified
-    my $firstmetagroupfirstelem = (split(/\,/, $metalist[0]))[0];
+    my $firstmetagroupfirstelem = (split(/\;/, $metalist[0]))[0];
     $buttonname = $self->generate_title_from_metadata($firstmetagroupfirstelem);
     }
@@ -128 +132 @@
     }
 
-    # How the items are grouped into hlists
+    # Whether to use an hlist or a vlist for each level in the hierarchy
+    foreach my $metagroup (@metalist) {
+    $self->{$metagroup . ".use_hlist"} = "f";
+    }
+    foreach my $metagroup (split(/\,/, $use_hlist_for)) {
+    $self->{$metagroup . ".use_hlist"} = "t";
+    }
+
+    # How the items are grouped into partitions
     if (!$partition_type_within_level) {
     # Default: none
@@ -135 +147 @@
     $self->{"partition_type_within_level"} = $partition_type_within_level;
 
-    # The number of items in each group
+    # The number of items in each partition
     if (!$partition_size_within_level) {
     # Default: 20
@@ -160 +172 @@
     my @sort_leaf_nodes_usingmetalist = ( "Title" );
     if ($sort_leaf_nodes_using) {
-    @sort_leaf_nodes_usingmetalist = split(/\;/, $sort_leaf_nodes_using);
+    @sort_leaf_nodes_usingmetalist = split(/\|/, $sort_leaf_nodes_using);
     }
     $self->{'sort_leaf_nodes_usingmetalist'} = \@sort_leaf_nodes_usingmetalist;
@@ -204 +216 @@
 
     # Only classify the document if it has a value for one of the metadata elements in the first group
-    foreach my $firstmetagroupelem (split(/\,/, $metalist[0])) {
+    foreach my $firstmetagroupelem (split(/\;/, $metalist[0])) {
     my $firstmetagroupelemvalue = $doc_obj->get_metadata_element($section, $firstmetagroupelem);
     if (defined($firstmetagroupelemvalue) && $firstmetagroupelemvalue ne "") {
@@ -214 +226 @@
         # Take care not to do a metadata group more than once
         unless ($metagroupsdone{$metagroup}) {
-            foreach my $metaelem (split(/\,/, $metagroup)) {
+            foreach my $metaelem (split(/\;/, $metagroup)) {
             my @metavalues = @{$doc_obj->get_metadata($section, $metaelem)};
             foreach my $metavalue (@metavalues) {
@@ -241 +253 @@
     # The metadata elements to classify by
     my @metalist = @{$self->{'metalist'}};
+    my $firstmetagroup = $metalist[0];
 
     # The OID values of the documents to include in the classification
@@ -246 +259 @@
 
     # The root node of the classification hierarchy
+    my $childtype = (($self->{$firstmetagroup . ".use_hlist"} eq "t") ? "HList" : "VList");
     my %classifyinfo = ( 'thistype' => "Invisible",
+             'childtype' => $childtype,
              'Title' => $self->{'title'},
              'contains' => [] );
@@ -449 +464 @@
         # If there are metadata elements remaining, recursively apply the process
         if (@metalist > 0) {
+        my $nextmetagroup = $metalist[0];
+        my $childtype = (($self->{$nextmetagroup . ".use_hlist"} eq "t") ? "HList" : "VList");
+        $subclassifyinfo{'childtype'} = $childtype;
         &add_az_list($self, \@metalist, \@OIDlist, \%subclassifyinfo);
         }

trunk/gsdl/perllib/strings.rb

@@ -437 +437 @@
 GenericList.classify_sections:Classify sections instead of documents.
 GenericList.desc:A general and flexible list classifier with most of the abilities of AZCompactList, but with better Unicode, metadata and sorting capabilities.
+GenericList.metadata:Metadata fields used for classification. Use '/' to separate the levels in the hierarchy and ';' to separate metadata fields within each level.
 GenericList.partition_size_within_level:The number of items in each partition (only applies when partition_type_within_level is set to 'constant_size').
 GenericList.partition_type_within_level:The type of partitioning done: either 'per_letter', 'constant_size', or 'none'.
-GenericList.sort_leaf_nodes_using:Metadata fields used for sorting the leaf nodes. Use ';' to separate the metadata groups to stable sort and ',' to separate metadata fields within each group.
-GenericList.metadata:Metadata fields used for classification. Use '/' to separate the levels in the hierarchy and ',' to separate metadata fields within each level.
+GenericList.sort_leaf_nodes_using:Metadata fields used for sorting the leaf nodes. Use '|' to separate the metadata groups to stable sort and ';' to separate metadata fields within each group.
+GenericList.use_hlist_for:Metadata fields to use a hlist rather than a vlist. Use ',' to separate the metadata groups and ';' to separate the metadata fields within each group.
 
 HFileHierarchy.desc:Classifier plugin for generating hierarchical classifications based on a supplementary structure file.