Changeset 12128

Timestamp:

2006-07-10T16:49:10+12:00 (18 years ago)

Author:

kjdon

Message:

output_collection_meta now outputs an empty [collection] entry to gdbm database

File:

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

trunk/gsdl/perllib/basebuilder.pm

@@ -346 +346 @@
     # not in the config file
     $self->output_collection_meta($handle);
-
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
            "", {}, $self->{'buildproc'}, $self->{'maxdocs'},0, $self->{'gli'});
@@ -533 +532 @@
 }
 
-# default is to do nothing
+# default is to output an empty [collection] entry
 sub output_collection_meta {
     my $self = shift(@_);
     my ($handle) = @_;
+    
+    print $handle "[collection]\n". ('-' x 70) . "\n";;
+
 }  
+
 sub print_stats {
     my $self = shift (@_);