Re: [mv] [MV] MV4.0alpha4 -- Accessing variables in UserTag

[Mike Heins <mike@minivend.com>]

Quoting Ton Verhagen (ton@verhagen.net):

> Code:
> -----
> UserTag Look_and_Feel Order theme
> UserTag Look_and_Feel Routine <<EOLFCODE
  package Vend::Interpolate;
> sub {
>     my $theme = shift @_;
>     foreach (sort keys %$Variable) {
>  next unless /^LF_/i;
>  my @themes = split /\s+/, $Variable->{ $_ };
>  next if $theme > $#themes || $theme < 0;
>  s/^LF_//i;
>  $Variable->{$_} = $themes[$theme];
>     }
> }
> EOLFCODE

-- 
Mike Heins                          http://www.minivend.com/  ___ 
                                    Internet Robotics        |_ _|____
If you like what you're gettin',    131 Willow Lane, Floor 2  | ||  _ \
keep doin' what you're doin'.       Oxford, OH  45056         | || |_) |
 -- Hector                          <mikeh@minivend.com>     |___|  _ <
                                    513.523.7621 FAX 7501        |_| \_\