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

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2001-10-09 11:20:39 GMT
Modified:  dist/lib/UI/usertag regenerate.tag
Log:
we need to mangle the real Scratch space

Revision  Changes    Path
2.6       +10 -4     interchange/dist/lib/UI/usertag/regenerate.tag


rev 2.6, prev_rev 2.5
Index: regenerate.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/lib/UI/usertag/regenerate.tag,v
retrieving revision 2.5
retrieving revision 2.6
diff -u -r2.5 -r2.6
--- regenerate.tag	2001/10/09 05:45:07	2.5
+++ regenerate.tag	2001/10/09 11:20:38	2.6
@@ -31,13 +31,10 @@
 	$Vend::Session = {
 		'ohost'		=> 'REGENERA',
 		'browser'	=> "Interchange $::VERSION regenerator",
-		'scratch'	=> { %{$Vend::Cfg->{ScratchDefault}},
-							mv_no_session_id => 1,
-							mv_no_count => 1,
-							},
 		'values'	=> { %{$Vend::Cfg->{ValuesDefault}} },
 		'carts'		=> {main => []},
 	};
+$::Scratch->{mv_no_session_id} = 1;
 	my ($key, $value);
 	while (($key, $value) = each (%{$Vend::Cfg->{StaticSessionDefault}})) {
         $Vend::Session->{$key} = $value;
@@ -78,9 +75,18 @@
 	return unless defined $page;
 
 	my $pageref;
+    my $scratch = $::Scratch;
+	$::Scratch = { %{$Vend::Cfg->{ScratchDefault}},
+					mv_no_session_id => 1,
+					mv_no_count => 1,
+				 };
+
 	eval {
 		($pageref) = ::cache_html($page, 1);
 	};
+
+	$::Scratch = $scratch;
+
 #::logDebug(<<EOF);
 #finished regen_build:
 #	out=$regen_out