Changeset 11540

Timestamp:

2006-03-30T10:47:33+12:00 (18 years ago)

Author:

kjdon

Message:

now uses buttonname or metadata to generate the title, rather than always being called Date

File:

• trunk/gsdl/perllib/classify/DateList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/DateList.pm

@@ -106 +106 @@
     $self->{'meta_list'} = \@meta_list;
  
+    $self->{'buttonname'} = $self->generate_title_from_metadata($self->{'metadata'}) unless ($self->{'buttonname'});
+
     return bless $self, $class;
 }
@@ -194 +196 @@
     !$self->{'nogroup'}) {$childtype = "DateList";}
 
-    my $classifyinfo = $self->get_entry ("Date", $childtype, "Invisible");
+    my $classifyinfo = $self->get_entry ($self->{'buttonname'}, $childtype, "Invisible");
     # don't need to do any splitting if there are less than 39 (max + min -1)
     # classifications, unless nogroup is specified