removed the notion of scripturl since it's no longer necessary with the modperl handler

lib/WebGUI/Asset/Wobject/DataForm.pm

@@ -341,7 +341,7 @@ sub getListTemplateVars {
 	$fields->finish;
 	$var->{field_loop} = \@fieldLoop;
 	my @recordLoop;
-	$entries = WebGUI::SQL->read("select ipAddress,username,userid,submissionDate,DataForm_entryId from DataForm_entry 
+	my $entries = WebGUI::SQL->read("select ipAddress,username,userid,submissionDate,DataForm_entryId from DataForm_entry 
 		where assetId=".quote($self->getId)." order by submissionDate desc");
 	while (my $record = $entries->hashRef) {
 		my @dataLoop;

lib/WebGUI/Commerce/Payment/ITransact.pm

@@ -468,7 +468,7 @@ sub configurationForm {
 		-value	=> '<br />'
 		);
 	$f->readOnly(
-		-value	=> $i18n->get('extra info').'<br /><b>https://'.$session{config}{defaultSitename}.WebGUI::URL::getScriptURL().'?op=confirmRecurringTransaction;gateway='.$self->namespace
+		-value	=> $i18n->get('extra info').'<br /><b>https://'.$session{config}{defaultSitename}.'/?op=confirmRecurringTransaction;gateway='.$self->namespace
 		);
 		
 	return $self->SUPER::configurationForm($f->printRowsOnly);

lib/WebGUI/Config.pm

@@ -163,10 +163,6 @@ sub readConfig {
 	if (ref $data{shippingPlugins} ne "ARRAY") {
 		$data{shippingPlugins} = [$data{shippingPlugins}] if ($data{shippingPlugins});
 	}
-        if( defined( $data{scripturl} ) ) {
-                # get rid of leading "/" if present.
-                $data{scripturl} =~ s/^\///;
-        }
         if (ref $data{sitename} eq "ARRAY") {
                 $data{defaultSitename} = $data{sitename}[0];
         } else {

lib/WebGUI/Macro/PageUrl.pm

@@ -16,9 +16,7 @@ use WebGUI::URL;
 
 #-------------------------------------------------------------------
 sub process {
-	my $pathinfo = $session{wguri};
-        $pathinfo =~ s#^/##;
-        return WebGUI::URL::getScriptURL().$pathinfo;
+	return $session{wguri};
 }
 
 

lib/WebGUI/Macro/Slash_gatewayUrl.pm

@@ -11,12 +11,10 @@ package WebGUI::Macro::Slash_gatewayUrl;
 #-------------------------------------------------------------------
 
 use strict;
-use WebGUI::Session;
-use WebGUI::URL;
 
 #-------------------------------------------------------------------
 sub process {
-	return WebGUI::URL::getScriptURL();
+	return "/";
 }
 
 

lib/WebGUI/URL.pm

@@ -121,7 +121,7 @@ Name value pairs to add to the URL in the form of:
 
 sub gateway {
 	$_[0] =~ s/^\///;
-        my $url = getScriptURL().$_[0];
+        my $url = '/'.$_[0];
         if ($session{setting}{preventProxyCache} == 1) {
                 $url = append($url,"noCache=".randint(0,1000).';'.time());
         }
@@ -167,25 +167,6 @@ sub setSiteURL {
 
 #-------------------------------------------------------------------
 
-=head2 getScriptURL {
-
-Returns the URL for the gateway script.
-
-=cut
-
-sub getScriptURL {
-	my $scripturl;
-	if (exists $session{config}{scripturl}) {
-        	$scripturl = $session{config}{scripturl};
-	} else {
-		$scripturl = $session{wguri};
-	}
-	$scripturl .= '/';
-	return $scripturl;
-}
-
-#-------------------------------------------------------------------
-
 =head2 getSiteURL ( )
 
 Returns a constructed site url. The returned
@@ -262,7 +243,7 @@ sub page {
         if ($useFullUrl) {
                 $url = getSiteURL();
         }
-        $url .= getScriptURL();
+        $url .= '/';
 	my $pathinfo;
         if ($session{asset}) {
                 $pathinfo = $session{asset}->get("url");