Mailing List Archive

Quoting icottee@bluefountain.com (icottee@bluefountain.com):
> I've received some help with this on the irc chat channel but I
> thought I'd post here to see if anybody else has any insight. I have a
> site with three languages and three currencies. The options to change
> language and currency are situated are located on the left
> navigator. These set the necessary information and then take the user
> to the front page using (for example)
>
> [page process/locale/ja_JP/page/index]Jpn[/page]
>
> Now what I would like to do is redisplay the current page instead of
> taking the user back to the front. I could use @@mv_page@@ but if (for
> example) I am displaying a search result I just get results.html
> back. Same issue with pages displayed with flypage.html
>
> Anybody does this sort of thing or can suggest a way to get the
> current URL and force the locale change using it?
>

The only real way is to use the History, but even that is not
perfect. Remember that you cannot always recreate things from
a URL when you have sessions and the Scratch area.

Try enabling history in catalog.cfg:

History 10

Then look at the History key in the session:

'History' => [.
[.
undef,
{
'mv_nextpage' => 'index',
'mv_session_id' => 'zGxJyFMi',
'mv_username' => undef
}
],
[.
'/scan/st=db/co=yes/sf=category/se=CPU chips/va=link_image=/va=link_banner=.html',
{
'mv_nextpage' => 'results',
'mv_session_id' => 'zGxJyFMi',
'mv_username' => undef
}
],
[.
'/scan/st=db/co=yes/sf=category/se=Motherboards/va=link_image=/va=link_banner=.html',
{
'mv_nextpage' => 'results',
'mv_session_id' => 'zGxJyFMi',
'mv_username' => undef
}
],
[.
'/dump',
{
'mv_nextpage' => 'dump',
'mv_session_id' => 'zGxJyFMi',
'mv_username' => undef
}
]
]
}

You can recreate URLS with something like:

[loop list="en_US ja_JP"]
<A HREF="[loop-calc]
my $hist;
my $locale_string = 'process/locale/[loop-code]/page';
my $current;
$current = 1 if ! $Session->{History};
$current = 1 unless $hist = $Session->{History}->[-1];
my ($path, $parm_hash) = @$hist;
$current = 1 if $path eq 'expired';

return $Tag->area( $locale_string . '/@@MV_PAGE@@')
if $current;

# Prevent successive locale strings from causing error...
$path =~ s{^/process/locale/\w+/page}{};

$path = $locale_string . $path;
my @parms;
foreach my $var (keys %$parm_hash) {
my $val = $parm_hash->{$var};
push @parms, "$var=$val";
}
my $form = undef;
if(@parms) {
$form = join "\n", @parms;
}
return $Tag->area( { href => $path, form => $form || undef } );
[/loop-calc]">[loop-code]</A>
[/loop]

It wouldn't be too hard to build a usertag out of this....but the locale
stuff is pretty custom depending on how you do it. Good one for a user
contribution.

--
Akopia, Inc., 131 Willow Lane, Floor 2, Oxford, OH 45056
phone +1.513.523.7621 fax 7501 <heins@akopia.com>

My wife is great. She doesn't care where I go, just as long as I don't
have any fun. -- Lee Trevino