Added Export Page functionality

This commit is contained in:
Len Kranendonk 2004-08-06 12:57:24 +00:00
parent b662855cff
commit b6d8797a5d
13 changed files with 616 additions and 48 deletions

View file

@ -174,7 +174,8 @@ Returns a constructed site url from protocol to gateway.
=cut
sub getSiteURL {
sub getSiteURL {
return $session{var}{altSiteURL} if (defined $session{var}{altSiteURL});
my $site;
my @sitenames;
if (ref $session{config}{sitename} eq "ARRAY") {