Changeset 23767 for main/trunk/greenstone2/perllib/cgiactions/baseaction.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/cgiactions/baseaction.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -104 +104 @@
     }
 
-
+    
     if (!defined $action_table->{$action}) {
     my $valid_actions = join(", ", keys %$action_table);
@@ -144 +144 @@
     }
     
+
     $self->{'action'} = $action;
     $self->{'collect'} = $collect;
@@ -149 +150 @@
     $self->{'timestamp'} = $timestamp;
     $self->{'site'} = $site;
-
+      
     # Locate and store compulsory arguments
     my $comp_args = $action_table->{$action}->{'compulsory-args'};
@@ -171 +172 @@
     }
 
+    
+    
     # Retrieve infodb-type
     if (defined $collect) {
-    my $inexport = newCGI inexport(ref $self,$collect);
+    
+    my $opt_site = $self->{'site'} || "";
+    
+    my $inexport = newCGI inexport(ref $self,$collect,$gsdl_cgi,$opt_site);
     my ($config_filename,$collect_cfg) = $inexport->read_collection_cfg($collect);   
     $self->{'infodbtype'} = $collect_cfg->{'infodbtype'};
+
     }
     
+    
     return $self;
 }