Changeset 7953

Timestamp:

2004-08-16T15:58:46+12:00 (20 years ago)

Author:

davidb

Message:

Minor modifications relating to storing buildtype information. Motivated
by introduction of lucenenbuilder.pm

File:

• trunk/gsdl/perllib/mgppbuilder.pm (modified) (3 diffs)

trunk/gsdl/perllib/mgppbuilder.pm

@@ -108 +108 @@
 
 sub new {
-    my ($class, $collection, $source_dir, $build_dir, $verbosity, 
+    my $class = shift(@_);
+
+    my ($collection, $source_dir, $build_dir, $verbosity, 
     $maxdocs, $debug, $keepold, $allclassifications, 
     $outhandle, $no_text, $gli) = @_;
@@ -264 +266 @@
     die "$@" if $@;
 
+    $self->{'buildtype'} = "mgpp";
 
     return $self;
@@ -1115 +1118 @@
     # store the build date
     $build_cfg->{'builddate'} = time;
-    $build_cfg->{'buildtype'} = "mgpp"; #do we need this??
+    $build_cfg->{'buildtype'} = $self->{'buildtype'};
     
     # store the level info