[interchange-cvs] interchange - racke modified 2 files

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-05-01 22:27:42 GMT
Modified:  code/UI_Tag mm_locale.coretag
Modified:  lib/Vend/Table Shadow.pm
Log:
introduced mv_shadowpass scratch variable which instructs
the Shadow database code to return the original database record
minimal optimization in mm_locale

Revision  Changes    Path
1.2       +6 -3      interchange/code/UI_Tag/mm_locale.coretag


rev 1.2, prev_rev 1.1
Index: mm_locale.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/mm_locale.coretag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- mm_locale.coretag	29 Jan 2002 05:52:40 -0000	1.1
+++ mm_locale.coretag	1 May 2003 22:27:42 -0000	1.2
@@ -3,6 +3,9 @@
 	my $locale = $Values->{ui_locale} || $Tag->var('UI_LOCALE', 2);
 	my $lref;
 
+	# tell Shadow database to return the unmangled database records
+	$Tag->tmp('mv_shadowpass', 1);
+
 	# first delete locale settings from catalog
 	$Vend::Cfg->{Locale_repository} = {};
 
@@ -10,11 +13,11 @@
 		$lref = $Vend::Cfg->{Locale_repository}{"$locale"} 
 			= $Global::Locale_repository->{$locale};
 		$Tag->setlocale("$locale");
-		$Tag->tmp({name => 'mv_locale'}, $locale);
+		$Tag->tmp('mv_locale', $locale);
 		if ($lref->{MV_LANG_DIRECTION}) {
-			$Tag->tmp({name => 'ui_language_direction'}, qq{ dir="$lref->{MV_LANG_DIRECTION}"});
+			$Tag->tmp('ui_language_direction', qq{ dir="$lref->{MV_LANG_DIRECTION}"});
 		}
 	}	
 	1;
 }
-EOR
\ No newline at end of file
+EOR



1.36      +4 -3      interchange/lib/Vend/Table/Shadow.pm


rev 1.36, prev_rev 1.35
Index: Shadow.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Shadow.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Shadow.pm	22 Apr 2003 08:07:36 -0000	1.35
+++ Shadow.pm	1 May 2003 22:27:42 -0000	1.36
@@ -1,6 +1,6 @@
 # Vend::Table::Shadow - Access a virtual "Shadow" table
 #
-# $Id: Shadow.pm,v 1.35 2003/04/22 08:07:36 racke Exp $
+# $Id: Shadow.pm,v 1.36 2003/05/01 22:27:42 racke Exp $
 #
 # Copyright (C) 2002-2003 Stefan Hornburg (Racke) <racke@linuxia.de>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::Shadow;
-$VERSION = substr(q$Revision: 1.35 $, 10);
+$VERSION = substr(q$Revision: 1.36 $, 10);
 
 # TODO
 #
@@ -508,7 +508,8 @@
 
 	my $locale = $::Scratch->{mv_locale} || 'default';
 
-	if (! $mapentry && exists $s->[$CONFIG]->{MAP}->{$column}->{$locale}) {
+	if (! $mapentry && ! $::Scratch->{mv_shadowpass}
+		&& exists $s->[$CONFIG]->{MAP}->{$column}->{$locale}) {
 		$mapentry = $s->[$CONFIG]->{MAP}->{$column};
 	}