Changeset 10253 for trunk/gsdl/perllib/classify/DateList.pm

Timestamp:

2005-07-19T16:18:25+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all classifiers, and made modifications (mostly adding 'my') to make them compile

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -43 +43 @@
 use sorttools;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('BasClas');
+    @DateList::ISA = ('BasClas');
 }
 
@@ -88 +91 @@
     my $self = (defined $hashArgOptLists)? new BasClas($classifierslist,$inputargs,$hashArgOptLists): new BasClas($classifierslist,$inputargs);
 
+    if ($self->{'info_only'}) {
+    # don't worry about any options etc
+    return bless $self, $class;
+    }
+
     # Manually set $self parameters.
     $self->{'list'} = {};
@@ -172 +180 @@
     # classifications, unless nogroup is specified
     if ((scalar @$classlistref) <= 39 && !$self->{'nogroup'}) {
-    foreach $subOID (@$classlistref) {
+    foreach my $subOID (@$classlistref) {
         push (@{$classifyinfo->{'contains'}}, {'OID'=>$subOID});
     }
@@ -184 +192 @@
     if (!$self->{'nogroup'}) { # hlist of year+month pairs
         # single level of classifications
-        foreach $classification (@$classlistref) {
+        foreach my $classification (@$classlistref) {
         my $date = $self->{'list'}->{$classification};
         $date =~ s/^(\d\d\d\d)(\d\d).*$/$1&nbsp;_textmonth$2_/;
@@ -196 +204 @@
         
     } else { # don't group - individual years and months
-        foreach $classification (@$classlistref) {
+        foreach my $classification (@$classlistref) {
         my $date = $self->{'list'}->{$classification};
         $date =~ s/^(\d\d\d\d)(\d\d).*$/$1&nbsp;_textmonth$2_/;
@@ -223 +231 @@
             push (@{$yearclassify->{'contains'}}, $monthclassify);
         
-            foreach $subsubOID 
+            foreach my $subsubOID 
             (@{$classhash->{$subclass}->{$subsubclass}}) {
                 push (@{$monthclassify->{'contains'}},
@@ -236 +244 @@
     # not by month
     # first split up the list into separate year classifications
-    foreach $classification (@$classlistref) {
+    foreach my $classification (@$classlistref) {
         my $date = $self->{'list'}->{$classification};
         $date =~ s/^(\d\d\d\d).*$/$1/;
@@ -248 +256 @@
     $classhash = $self->compactlist ($classhash);
     }
-    foreach $subclass (sort keys %$classhash) {
+    foreach my $subclass (sort keys %$classhash) {
     my $tempclassify = $self->get_entry($subclass, "DateList");
-    foreach $subsubOID (@{$classhash->{$subclass}}) {
+    foreach my $subsubOID (@{$classhash->{$subclass}}) {
         push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID});
     }