Changeset 811 for trunk

Timestamp:

1999-12-07T10:47:13+13:00 (24 years ago)

Author:

sjboddie

Message:

classifiers are loaded up more like plugins

File:

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

trunk/gsdl/perllib/classify.pm

@@ -33 +33 @@
 $next_classify_num = 1;
 
-# load_classifier will load one classifier. $classinfo is an
-# array containing information about the classifier to load. The
-# first element of the array is the name of the classifier, the
-# rest of the elements are classifier specific.
-sub load_classifier {
-    my ($classinfo) = @_;
+sub load_classifiers {
+    my ($classify_list) = @_;
+    my @classify_objects = ();
+    
+    foreach $classifyoption (@$classify_list) {
 
-    # get the classifier name
-    my $classname = shift(@$classinfo);
-    return undef unless defined $classname;
+    # get the classifier name
+    my $classname = shift @$classifyoption;
+    next unless defined $classname;
     
-    # find the classifier
-    my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/classify", 
-                       "${classname}.pm");
-    my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'},"perllib/classify", 
-                        "${classname}.pm");
-    if (-e $colclassname) { require $colclassname; }
-    elsif (-e $mainclassname) { require $mainclassname; }
-    else { die "ERROR - couldn't find classifier \"$classname\"\n"; }
+    # find the classifier
+    my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/classify", 
+                           "${classname}.pm");
+    my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'},"perllib/classify", 
+                        "${classname}.pm");
 
-    # create the classify object
-    my ($classobj);
-    map { $_ = "\"$_\""; } @$classinfo;
-    my $options = join (",", @$classinfo);
-    eval ("\$classobj = new $classname($options)");
-    die "$@" if $@;
+    if (-e $colclassname) { require $colclassname; }
+    elsif (-e $mainclassname) { require $mainclassname; }
+    else { die "ERROR - couldn't find classifier \"$classname\"\n"; }
 
-    return $classobj;
+    # create the classify object
+    my ($classobj);
+    map { $_ = "\"$_\""; } @$classifyoption;
+    my $options = join (",", @$classifyoption);
+    eval ("\$classobj = new \$classname($options)");
+    die "$@" if $@;
+    
+    # add this object to the list
+    push (@classify_objects, $classobj);
+    }
+
+    return \@classify_objects;
 }