Changeset 13933 for trunk/gsdl/perllib/classify.pm

Timestamp:

2007-02-20T16:35:13+13:00 (17 years ago)

Author:

shaoqun

Message:

make it check collection specific super classes first

File:

• trunk/gsdl/perllib/classify.pm (modified) (1 diff)

trunk/gsdl/perllib/classify.pm

@@ -73 +73 @@
     my @classify_objects = ();
     my $classify_number  = 1;
+
+     my $colclassdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/classify");
+     unshift (@INC, $colclassdir);
     
     foreach $classifyoption (@$classify_list) {