# Copyright 2002-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.

UserTag mm_locale Version 1.5
UserTag mm_locale Routine <<EOR
sub {
	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} = {};

	if ($locale && exists $Global::Locale_repository->{$locale}) {
		$lref = $Vend::Cfg->{Locale_repository}{"$locale"} 
			= $Global::Locale_repository->{$locale};
		$Tag->setlocale("$locale");
		$Tag->tmp('mv_locale', $locale);
		if ($lref->{MV_LANG_DIRECTION}) {
			$Tag->tmp('ui_language_direction', qq{ dir="$lref->{MV_LANG_DIRECTION}"});
		}
	}	
	1;
}
EOR
