Changeset 6635

Timestamp:

2004-01-28T14:41:31+13:00 (20 years ago)

Author:

kjdon

Message:

added mdtype to the classfier nodes - specifies what Date metadata (eg dc.Date) that the classifier was built on

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -159 +159 @@
     my %classifyinfo = ('childtype'=>$childtype,
             'Title'=>$title,
-            'contains'=>[]);
+            'contains'=>[],
+            'mdtype'=>$self->{'datemeta'});
     $classifyinfo{'thistype'} = $thistype 
     if defined $thistype && $thistype =~ /\w/;
@@ -179 +180 @@
     !$self->{'nogroup'}) {$childtype = "DateList";}
     my $classifyinfo = $self->get_entry ("Date", $childtype, "Invisible");
-
     # don't need to do any splitting if there are less than 39 (max + min -1)
     # classifications, unless nogroup is specified
@@ -242 +242 @@
         push (@{$classifyinfo->{'contains'}}, $yearclassify);
         }
-        # not sure if this is needed... AZCompactList has it :p
-        $classifyinfo->{'mdtype'}=$self->{'datemeta'};
         return $classifyinfo;
     } # nogroup