Ignore:
Timestamp:
2000-02-02T14:31:20+13:00 (24 years ago)
Author:
sjboddie
Message:

fixed small bug (groupsize had no default)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/docsave.pm

    r834 r898  
    4343    my $self = new docproc ();
    4444
     45
     46    $groupsize=1 unless defined $groupsize;
    4547    $self->{'collection'} = $collection;
    4648    $self->{'archive_info'} = $archive_info;
    4749    $self->{'verbosity'} = $verbosity;
    4850    $self->{'gzip'} = $gzip;
     51   
    4952    $self->{'groupsize'} = $groupsize;
    5053    $self->{'gs_count'} = 0;
     
    136139       
    137140        if (!open (OUTDOC, ">$doc_file")) {
    138         print STDERR "docsave::process could not write to file $docfile\n";
     141        print STDERR "docsave::process could not write to file $doc_file\n";
    139142        return;
    140143        }
Note: See TracChangeset for help on using the changeset viewer.