Changeset 24495 for main/trunk/greenstone2/perllib

Timestamp:

2011-08-26T17:31:50+12:00 (13 years ago)

Author:

davidb

Message:

Introduction of $site variable passed into the XXbuilder.pm perl code for indexing (needed to support Solr in Greenstone3)

File:

• main/trunk/greenstone2/perllib/basebuilder.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/basebuilder.pm

@@ -55 +55 @@
 
 sub new {
-    my ($class, $collection, $source_dir, $build_dir, $verbosity, 
+    my ($class, $site, $collection, $source_dir, $build_dir, $verbosity, 
     $maxdocs, $debug, $keepold, $incremental, $incremental_mode,
     $remove_empty_classifications, 
@@ -65 +65 @@
 
     # create a builder object
-    my $self = bless {'collection'=>$collection,
+    my $self = bless {'site'=>$site, # will be undef for Greenstone 2
+              'collection'=>$collection,
               'source_dir'=>$source_dir,
               'build_dir'=>$build_dir,