Changeset 33477

Timestamp:

2019-09-16T12:30:47+12:00 (5 years ago)

Author:

kjdon

Message:

need to call setup_custom_sort to allow for collection's customsorttools.pm

Location:

main/trunk/greenstone2/perllib

Files:

• classify/AZSectionList.pm (modified) (1 diff)
• classify/BaseClassifier.pm (modified) (2 diffs)
• plugouts/BasePlugout.pm (modified) (1 diff)

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

@@ -33 +33 @@
 # must now iterate through each section, adding each
 # to the classification
-
-# 12/05/02 Added usage datastructure - John Thompson
 
 package AZSectionList;

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

@@ -54 +54 @@
 use printusage;
 use parse2;
+use sorttools;
 
 # suppress the annoying "subroutine redefined" warning that various
@@ -277 +278 @@
     delete $self->{"info_only"};
 
+    &sorttools::setup_custom_sort();
 # We now ensure that when text files (and even colcfg) are read in, 
 # they are straightaway made to be Unicode aware strings in Perl

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -191 +191 @@
     }
     undef $self->{'no_auxiliary_databases'};
+
+    &sorttools::setup_custom_sort();
     return bless $self, $class;