[interchange-cvs] interchange - racke modified dist/lib/UI/usertag/regenerate.tag

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2001-10-07 13:06:52 GMT
Modified:  dist/lib/UI/usertag regenerate.tag
Log:
preserve VendURL
we need full path name for links on static pages

Revision  Changes    Path
2.3       +3 -2      interchange/dist/lib/UI/usertag/regenerate.tag


rev 2.3, prev_rev 2.2
Index: regenerate.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/lib/UI/usertag/regenerate.tag,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -r2.2 -r2.3
--- regenerate.tag	2001/10/07 11:55:18	2.2
+++ regenerate.tag	2001/10/07 13:06:51	2.3
@@ -217,14 +217,15 @@
 	::response("\n\n        Generating....\n");
 	# we need to restore some settings from the original configuration
 	# for static page building first
-	my @confsafe = ('ImageDir', 'ImageDirSecure');
+	my @confsafe = ('ImageDir', 'ImageDirSecure', 'VendURL');
 	my %safehash;
 	for (@confsafe) {$safehash{$_} = $Vend::Cfg->{$_}}
 	$Vend::Cfg->{ImageDir} = $Vend::Cfg->{ImageDirOriginal}; 
 	$Vend::Cfg->{ImageDirSecure} = $Vend::Cfg->{ImageDirSecureOriginal}; 
+	$Vend::Cfg->{VendURL} = $Vend::Cfg->{VendURLOriginal}; 
 
 	my $umask = umask(022);
-	my $statpath = $Vend::Cfg->{StaticPath};
+	my $statpath = 'http://' . $::Variable->{SERVER_NAME} . $Vend::Cfg->{StaticPath};
 	my @bad;
 	my $base = $Vend::Cfg->{StaticDir};
 	eval {