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

interchange.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;