Re: [mv] Interchange-4.5.5 -- PATCH Interpolate.pm and widget tag

[Mike Heins <mikeh@minivend.com>]

******    message to minivend-users from Mike Heins <mikeh@minivend.com>     ******

Quoting Ton Verhagen (ton@verhagen.net):
> ******    message to minivend-users from Ton Verhagen <ton@verhagen.net>     ******
> 
> Hi All,
> 
> I made a little patch to tag_accessories in Interpolate.pm

A well considered one. Thanks; I will put this in 4.5.7 virtually unchanged...

> 
> One of my clients who sells build-to-order computers, wanted the price of 
> the accessories (computer components) be displayed in the option list. The 
> option list generated by the accessories tag should look like:
>    <option value="product id"> product description -- ( add $1,450.00)
> 
> However the standard implementation of tag_accessories expects a comma 
> separated option list. So, if you put a formatted price (which contains 
> commas) into the list, it will break the string on the thousand separator 
> of the price. :(
> 
> In order to fix this I,ve added a new option (delimiter) for the 
> accessories tag. When set to e.g. delimiter="!" it will split the option 
> list on "!". If not set/used it will split on the default (comma).
> 
> The same applies to the widget tag.
> 
> ------------------------------------------------------------------------
> --- Interpolate.pm-     Mon Aug 21 09:59:53 2000
> +++ Interpolate.pm      Tue Aug 22 13:15:00 2000
> @@ -1414,6 +1414,7 @@
> 
>          my $p = $opt->{prepend} || '';
>          my $a = $opt->{append} || '';
> +       my $delimiter = $opt->{delimiter} || ',';
> 
>          $type = 'select' unless $type;
>          $field = $attribute unless $field;
> @@ -1458,7 +1459,7 @@
>          }
> 
>          my ($default, $label, $select, $value, $run);
> -       my @opts = split /\s*,\s*/, $data;
> +       my @opts = split /\s*$delimiter\s*/, $data;
> 
>          if($item) {
>                  $default = $item->{$attribute};
> ------------------------------------------------------------------------
> 
> 
> ------------------------------------------------------------------------
> --- widget-      Mon Aug 21 10:35:10 2000
> +++ widget      Mon Aug 21 13:26:32 2000
> @@ -19,6 +19,7 @@
>                                  outboard        => $opt->{key} || undef,
>                                  passed          => $opt->{data} || 
> $opt->{passed} || $string,
>                                  type            => $opt->{type} || 'select',
> +                               delimiter       => $opt->{delimiter} || ',',
>                                  };
>          my $item = { $ref->{attribute} => $value };
>          if($ref->{type} =~ /date/i) {
> ------------------------------------------------------------------------
> 
> 
> Hope you find it useful.
> 
> Best regards,
> 
> Ton Verhagen
> 
> -
> To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
> email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
> Archive of past messages: http://www.minivend.com/minivend/minivend-list

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

Unix version of an Outlook-style virus:
It works on the honor system. Please forward this message to everyone
you know, and delete a bunch of your files at random.
-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list