Changeset 27955 for main

Timestamp:

2013-08-01T16:15:11+12:00 (11 years ago)

Author:

kjdon

Message:

supports_memberof needs to be called from self otherwise we don't get to see the class variables

File:

• main/trunk/greenstone2/perllib/classify/RecentDocumentsList.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/classify/RecentDocumentsList.pm

@@ -173 +173 @@
 
     # may or may not support memberof, depending on options set
-    $classifyinfo{'supportsmemberof'} = &supports_memberof();
+    $classifyinfo{'supportsmemberof'} = $self->supports_memberof();
 
     # get either all documents (sorted by date), or the top X docs
@@ -204 +204 @@
 sub supports_memberof {
     my $self = shift(@_);
-
     if ($self->{'classify_by_date'}) {
     return "true";