Changeset 23118
- Timestamp:
- 2010-10-12T13:55:43+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify.pm
r21564 r23118 278 278 # classify_doc lets each of the classifiers classify a document 279 279 sub classify_doc { 280 my ($classifiers, $doc_obj , $edit_mode) = @_;280 my ($classifiers, $doc_obj) = @_; 281 281 282 282 foreach my $classobj (@$classifiers) { 283 283 my $title = $classobj->{'title'}; 284 284 285 $classobj->classify($doc_obj ,$edit_mode);285 $classobj->classify($doc_obj); 286 286 } 287 287 } … … 355 355 # empty contents were made undefined by clean_contents() 356 356 next unless defined $tempinfo; 357 358 357 if (!defined ($tempinfo->{'classifyOID'}) || 359 358 $tempinfo->{'classifyOID'} ne "oai") {
Note:
See TracChangeset
for help on using the changeset viewer.