Changeset 38299

Timestamp:

2023-10-06T18:17:44+13:00 (7 months ago)

Author:

davidb

Message:

Away to have site name accessible in builderproc

Location:

main/trunk/greenstone2/perllib

Files:

• basebuilder.pm (modified) (1 diff)
• basebuildproc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/basebuilder.pm

@@ -262 +262 @@
     # We call set_infodbtype() now so the buildproc knows the infodbtype for all phases of the build
     $self->{'buildproc'}->set_infodbtype($self->{'infodbtype'});
+    $self->{'buildproc'}->set_site($self->{'site'});
     
    $self->generate_index_options();

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -242 +242 @@
 }
 
+sub set_site
+{
+    my $self = shift(@_);
+    my $site = shift(@_);
+    $self->{'site'} = $site;
+}
+
 sub set_index {
     my $self = shift (@_);