Changeset 14084

Timestamp:

2007-05-21T17:40:08+12:00 (17 years ago)

Author:

mdewsnip

Message:

Added "partition_name_length" option to GenericList, many thanks to Jens Wille.

Location:

trunk/gsdl/perllib

Files:

• classify/GenericList.pm (modified) (4 diffs)
• strings.properties (modified) (1 diff)

trunk/gsdl/perllib/classify/GenericList.pm

@@ -65 +65 @@
     'desc' => "{GenericList.partition_size_within_level}",
     'type' => "string" },
+      { 'name' => "partition_name_length",
+    'desc' => "{GenericList.partition_name_length}",
+    'type' => "string" },
       { 'name' => "sort_leaf_nodes_using",
     'desc' => "{GenericList.sort_leaf_nodes_using}",
@@ -362 +365 @@
         # Is this the start of a new partition?
         if ($itemsinpartition == 1) {
-            $partitionstart = &generate_partition_start($metavalue, $lastpartitionend);
+            $partitionstart = &generate_partition_start($metavalue, $lastpartitionend, $self->{"partition_name_length"});
         }
 
         # Is this the end of the partition?
         if ($itemsinpartition == $partition_size_within_level || $itemsdone == @sortedmetavalues) {
-            my $partitionend = &generate_partition_end($metavalue, $partitionstart);
+            my $partitionend = &generate_partition_end($metavalue, $partitionstart, $self->{"partition_name_length"});
             my $partitionname = $partitionstart;
             if ($partitionend ne $partitionstart) {
@@ -419 +422 @@
     my $metavalue = shift(@_);
     my $lastpartitionend = shift(@_);
+    my $partition_name_length = shift(@_);
+
+    if ($partition_name_length) {
+    return substr($metavalue, 0, $partition_name_length);
+    }
 
     my $partitionstart = substr($metavalue, 0, 1);
@@ -437 +445 @@
     my $metavalue = shift(@_);
     my $partitionstart = shift(@_);
+    my $partition_name_length = shift(@_);
+
+    if ($partition_name_length) {
+    return substr($metavalue, 0, $partition_name_length);
+    }
 
     my $partitionend = substr($metavalue, 0, length($partitionstart));

trunk/gsdl/perllib/strings.properties

@@ -546 +546 @@
 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_name_length:The length of the partition name; defaults to a variable length from 1 up to 3 characters, depending on how many are required to distinguish the partition start from its end. This option only applies when partition_type_within_level is set to 'constant_size'.
 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'.