2.1. Deprecated Features Previous to Interchange 4
This section needs some serious work.
cart/page from path
-
interchange.PL 308,313
if($path =~ s:/(.*)::) {
$cart = $1;
if($cart =~ s:/(.*)::) {
$page = $1;
}
}
mv_orderpage
-
interchange.PL 321,323
$CGI::values{mv_nextpage} = $CGI::values{mv_orderpage}
|| find_special_page('order')
if ! $CGI::values{mv_nextpage};
$decode
-
interchange.PL 493
HTML::Entities::decode($value) if $decode;
mv_orderpage
-
interchange.PL 854,855
$CGI::values{mv_nextpage} = $CGI::values{mv_orderpage}
if $CGI::values{mv_orderpage};
ROUTINES and LANG
-
intechange.PL 1552,1579
ROUTINES: {
last ROUTINES unless index($Vend::FinalPath, '/process/') == 0;
while ($Vend::FinalPath =~ s:/process/(locale|language|currency)/([^/]*)/:/process/:) {
$::Scratch->{"mv_$1"} = $2;
}
$Vend::FinalPath =~ s:/process/page/:/:;
}
my $locale;
if($locale = $::Scratch->{mv_language}) {
$Global::Variable->{LANG}
= $::Variable->{LANG} = $locale;
}
if ($Vend::Cfg->{Locale} and
$locale = $::Scratch->{mv_locale} and
defined $Vend::Cfg->{Locale_repository}->{$locale}
)
{
$Global::Variable->{LANG}
= $::Variable->{LANG}
= $::Scratch->{mv_language}
= $locale
if ! $::Scratch->{mv_language};
Vend::Util::setlocale( $locale,
($::Scratch->{mv_currency} || undef),
{ persist => 1 } );
}
list_compat
-
lib/Vend/Interpolate.pm 2808
list_compat($opt->{prefix}, \$text);
-
lib/Vend/Interpolate.pm 3538
list_compat($opt->{prefix}, \$text);
-
lib/Vend/Interpolate.pm 3874
list_compat($opt->{prefix}, \$page);
find_sort
-
lib/Vend/Interpolate.pm 3270,3271
$text =~ /^\s*\[sort\s+.*/si
and $opt->{sort} = find_sort(\$text);
mv_order_report
-
lib/Vend/Order.pm 867,868
$body = readin($::Values->{mv_order_report})
if $::Values->{mv_order_report};
mv_error_$var
-
lib/Vend/Order.pm 1030
$::Values->{"mv_error_$var"} = $message;