Changeset 898

Timestamp:

2000-02-02T14:31:20+13:00 (24 years ago)

Author:

sjboddie

Message:

fixed small bug (groupsize had no default)

File:

• trunk/gsdl/perllib/docsave.pm (modified) (2 diffs)

trunk/gsdl/perllib/docsave.pm

@@ -43 +43 @@
     my $self = new docproc ();
 
+
+    $groupsize=1 unless defined $groupsize;
     $self->{'collection'} = $collection;
     $self->{'archive_info'} = $archive_info;
     $self->{'verbosity'} = $verbosity;
     $self->{'gzip'} = $gzip;
+    
     $self->{'groupsize'} = $groupsize;
     $self->{'gs_count'} = 0;
@@ -136 +139 @@
         
         if (!open (OUTDOC, ">$doc_file")) {
-        print STDERR "docsave::process could not write to file $docfile\n";
+        print STDERR "docsave::process could not write to file $doc_file\n";
         return;
         }