2.1. Deprecated Features Previous to Interchange 4

This section needs some serious work.

cart/page from path

            if($path =~ s:/(.*)::) {
                    $cart = $1;
                    if($cart =~ s:/(.*)::) {
                            $page = $1;
                    }
            }

mv_orderpage

            $CGI::values{mv_nextpage} = $CGI::values{mv_orderpage}
                                                                    || find_special_page('order')
                    if ! $CGI::values{mv_nextpage};

$decode

                            HTML::Entities::decode($value) if $decode;

mv_orderpage

                                            $CGI::values{mv_nextpage} = $CGI::values{mv_orderpage}
                                                    if $CGI::values{mv_orderpage};

ROUTINES and LANG

            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

            list_compat($opt->{prefix}, \$text);
            list_compat($opt->{prefix}, \$text);
            list_compat($opt->{prefix}, \$page);

find_sort

            $text =~ /^\s*\[sort\s+.*/si
                    and $opt->{sort} = find_sort(\$text);

mv_order_report

        $body = readin($::Values->{mv_order_report})
                    if $::Values->{mv_order_report};

mv_error_$var

                            $::Values->{"mv_error_$var"} = $message;