Changeset 18455 for gsdl/trunk/perllib/classify.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify.pm
r17288 r18455 280 280 # classify_doc lets each of the classifiers classify a document 281 281 sub classify_doc { 282 my ($classifiers, $doc_obj ) = @_;282 my ($classifiers, $doc_obj, $edit_mode) = @_; 283 283 284 284 foreach my $classobj (@$classifiers) { 285 285 my $title = $classobj->{'title'}; 286 $classobj->classify($doc_obj );286 $classobj->classify($doc_obj,$edit_mode); 287 287 } 288 288 }
Note:
See TracChangeset
for help on using the changeset viewer.