Changeset 23767 for main/trunk/greenstone2/perllib/inexport.pm

Timestamp:

2011-03-09T15:04:33+13:00 (13 years ago)

Author:

davidb

Message:

CGI Perl scripts updated to work with Greenstone 3. This in turn required these supporting routines to optionally handle the 'site' variable

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -130 +130 @@
 {
     my $class = shift (@_);
-    my ($mode,$collect) = @_;
+    my ($mode,$collect,$gsdl_cgi,$opt_site) = @_;
 
     my $self = { 'xml' => 0, 'mode' => $mode };
 
     $self->{'out'} = STDERR;
-    $self->{'site'} = "";
-    $self->{'collectdir'} = &util::filename_cat($ENV{'GSDLHOME'},"collect");
+    
+    if (defined $gsdl_cgi) {
+        $self->{'site'} = $opt_site;
+        my $collect_dir = $gsdl_cgi->get_collection_dir($opt_site);
+        $self->{'collectdir'} = $collect_dir;
+    }
+    else {  
+        $self->{'site'} = "";
+        $self->{'collectdir'} = &util::filename_cat($ENV{'GSDLHOME'},"collect");
+    }
     $self->{'faillog'} = "";
    
@@ -159 +167 @@
     my $site       = $self->{'site'};
     my $out        = $self->{'out'};
- 
+     
     if (($collection = &colcfg::use_collection($site, $collection, $collectdir)) eq "") {
     &PrintUsage::print_txt_usage($options, "{import.params}");