Changeset 14112 for trunk/gsdl/perllib/classify.pm
- Timestamp:
- 2007-05-30T17:55:36+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify.pm
r13933 r14112 49 49 50 50 # find the classifier 51 my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 52 "perllib/classify", 53 "${classifier}.pm"); 54 my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'}, 55 "perllib/classify", 56 "${classifier}.pm"); 57 58 if (-e $colclassname) { require $colclassname; } 51 my $customclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 52 "perllib", "classify", "${classifier}.pm"); 53 my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "perllib", "classify", "${classifier}.pm"); 54 my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'}, "perllib", "classify", "${classifier}.pm"); 55 56 if (-e $customclassname) { require $customclassname; } 57 elsif (-e $colclassname) { require $colclassname; } 59 58 elsif (-e $mainclassname) { require $mainclassname; } 60 59 else { … … 84 83 85 84 # find the classifier 86 my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/classify", 87 "${classname}.pm"); 88 my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'},"perllib/classify", 89 "${classname}.pm"); 90 91 if (-e $colclassname) { require $colclassname; } 85 my $customclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 86 "perllib", "classify", "${classname}.pm"); 87 my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "perllib", "classify", "${classname}.pm"); 88 my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'}, "perllib", "classify", "${classname}.pm"); 89 90 if (-e $customclassname) { require $customclassname; } 91 elsif (-e $colclassname) { require $colclassname; } 92 92 elsif (-e $mainclassname) { require $mainclassname; } 93 93 else { &gsprintf(STDERR, "{classify.could_not_find_classifier}\n", $classname) && die "\n"; 94 94 # die "ERROR - couldn't find classifier \"$classname\"\n"; 95 95 } 96 96 97 97 # create the classify object
Note:
See TracChangeset
for help on using the changeset viewer.