Changeset 11653 for trunk

Timestamp:

2006-04-19T13:23:41+12:00 (18 years ago)

Author:

kjdon

Message:

added a new opiton for DateList: no_special_formatting, which makes greenstone think its not a datelist and so it doens't display the year and month info in the vlist

Location:

trunk/gsdl/perllib

Files:

• classify/DateList.pm (modified) (7 diffs)
• strings.properties (modified) (1 diff)

trunk/gsdl/perllib/classify/DateList.pm

@@ -71 +71 @@
     'desc' => "{DateList.nogroup}",
     'type' => "flag",
+    'reqd' => "no" },
+      { 'name' => "no_special_formatting",
+    'desc' => "{DateList.no_special_formatting}",
+    'type' => "flag",
     'reqd' => "no" }
+      
       ];
 
@@ -108 +113 @@
     $self->{'buttonname'} = $self->generate_title_from_metadata($self->{'metadata'}) unless ($self->{'buttonname'});
 
+    $self->{'childtype'} = "DateList";
+    if ($self->{'no_special_formatting'}) {
+    $self->{'childtype'} = "VList";
+    }
+    
     return bless $self, $class;
 }
@@ -194 +204 @@
 
     if (scalar (@$classlistref) <= 39 &&
-    !$self->{'nogroup'}) {$childtype = "DateList";}
+    !$self->{'nogroup'}) {$childtype = $self->{'childtype'};}
 
     my $classifyinfo = $self->get_entry ($self->{'buttonname'}, $childtype, "Invisible");
@@ -253 +263 @@
               $monthname="_textmonth" . $monthname . "_";
               }
-              my $monthclassify=$self->get_entry($monthname, "DateList");
+              my $monthclassify=$self->get_entry($monthname, $self->{'childtype'});
               push (@{$yearclassify->{'contains'}}, $monthclassify);
               
@@ -275 +285 @@
               $monthname="_textmonth" . $monthname . "_";
               }
-              my $monthclassify=$self->get_entry($monthname, "DateList");
+              my $monthclassify=$self->get_entry($monthname, $self->{'childtype'});
               push (@{$yearclassify->{'contains'}}, $monthclassify);
               
@@ -311 +321 @@
     if ($self->{'reverse_sort'} && $self->{'nogroup'} ) {
     foreach my $subclass (reverse sort keys %$classhash) {
-        my $tempclassify = $self->get_entry($subclass, "DateList");
+        my $tempclassify = $self->get_entry($subclass, $self->{'childtype'});
         foreach my $subsubOID (@{$classhash->{$subclass}}) {
         push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID});
@@ -320 +330 @@
     else{
     foreach my $subclass (sort keys %$classhash) {
-        my $tempclassify = $self->get_entry($subclass, "DateList");
+        my $tempclassify = $self->get_entry($subclass, $self->{'childtype'});
         foreach my $subsubOID (@{$classhash->{$subclass}}) {
         push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID});

trunk/gsdl/perllib/strings.properties

@@ -438 +438 @@
 DateList.nogroup:Make each year an individual entry in the horizontal list, instead of spanning years with few entries. (This can also be used with the -bymonth option to make each month a separate entry instead of merging).
 
+DateList.no_special_formatting:Don't display Year and Month information in the document list.
+
 DateList.sort:An extra metadata field to sort by in the case where two documents have the same date.