Changeset 21646 for main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
- Timestamp:
- 2010-01-26T17:30:08+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
r21645 r21646 127 127 if ($is_top) 128 128 { 129 my $dummy_model = new ClassifyTreeModel($collection, "");129 my $dummy_model = new ClassifyTreeModel($collection, $infodbtype, ""); 130 130 my $browselist_node = new ClassifyTreeNode($dummy_model, "browselist"); 131 131 # Add the document … … 221 221 # Create a tree model for this classifier 222 222 print STDERR "* creating a tree model for classifier: CL$clidx\n" unless !$debug; 223 my $tree_model_obj = new ClassifyTreeModel($collection, "CL" . $clidx);223 my $tree_model_obj = new ClassifyTreeModel($collection, $infodbtype, "CL" . $clidx); 224 224 # And store it for later 225 225 push(@classifier_tree_models, $tree_model_obj); … … 415 415 # Create a tree model for this classifier 416 416 print STDERR "* creating a tree model for classifier: CL" . $clidx . " [" . $key . "]\n";# unless !$debug; 417 my $tree_model_obj = new ClassifyTreeModel($collection, "CL" . $clidx);417 my $tree_model_obj = new ClassifyTreeModel($collection, $infodbtype, "CL" . $clidx); 418 418 # And store it against its key for later 419 419 $classifier_tree_models{$key} = $tree_model_obj; … … 442 442 # We also have to remove from browselist - the reverse process of 443 443 # adding to browselist shown above. 444 my $dummy_model = new ClassifyTreeModel($collection, "");444 my $dummy_model = new ClassifyTreeModel($collection, $infodbtype, ""); 445 445 my $browselist_node = new ClassifyTreeNode($dummy_model, "browselist"); 446 446 # Add the document
Note:
See TracChangeset
for help on using the changeset viewer.