Changeset 23402

Timestamp:

2010-12-07T17:00:02+13:00 (13 years ago)

Author:

max

Message:

New "psuedo" constructor added that is useful to call from CGI Perl scripts

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/inexport.pm

@@ -126 +126 @@
 }
 
+# Simplified version of the contstructor for use with CGI scripts
+sub newCGI 
+{
+    my $class = shift (@_);
+    my ($mode,$collect) = @_;
+
+    my $self = { 'xml' => 0, 'mode' => $mode };
+
+    $self->{'out'} = STDERR;
+    $self->{'site'} = "";
+    $self->{'collectdir'} = &util::filename_cat($ENV{'GSDLHOME'},"collect");
+    $self->{'faillog'} = "";
+   
+    $self->{'collection'} = $collect;
+
+    return bless $self, $class;
+}
 sub get_collection
 {