Re: [mv] Wish-List

[Ryan Hertz <rhertz@gyb.baits.com>]

At 12:22 PM 11/19/1999 , you wrote:
>******    message to minivend-users from "Tech Mail" 
><tech@khouse.org>     ******
>
>Is there a way to make this like an [item-list]?

         You could have the wish-list code put all of the item-codes into 
one var, separated by commas and then use it in a [loop with]



>I want to add code to allow someone to order from the wishlist, or view the
>product page:
>I want to make the wishlist page something like this:
>
>[wish-list username=[scratch wishusername]]
>[item-code]: [page [item-code]][item-field title]</a> - [order
>[item-code]]Order Me</a><p>
>[/wish-list]
>
>
>Date: Fri, 19 Nov 1999 11:02:59 -0500
>From: mike@minivend.com
>Subject: Re: [mv] Userdb without Login???
>
>******    message to minivend-users from mike@minivend.com     ******
>
>Quoting Loy Ellen Gross (design@iinc.com):
> >
> > I want to achieve the following effect:
> >
> > Any user can create a new account for him/herself and save a
> > single cart to that account. So far, so good.
> >
> > Now, I want anyone who wants to be able to view that cart to do
> > so without logging in (without needed the password). I'm not
> > allowing the original user to save personal or credit card info,
> > so security isn't an issue.
> >
> > The purpose is to creat a "Wish List" of items I want for
> > Christmas. With my password, I can go in and change the list.
> > With just my username, my family and friends can go in and look
> > at the list.
> >
> > It's the look-up part I'm having trouble with. Am I on the right
> > track? Can this be done?
> >
>
>With the power of Perl....
>
>UserTag wish-list Order username
>UserTag wish-list Routine <<EOR
>sub {
>         my($username) = @_;
>         my $cart_string;
>         package Vend::Interpolate;
>         return 'No wish list'
>                 unless $cart_string = tag_data('userdb', 'carts', $username);
>         my $safe = new Safe;
>         my $ref = $safe->reval($cart_string);
>         return "Bad cart save." if $@;
>         return "Bad cart save." unless ref $ref;
>         my $list = $ref->{wish_list};
>         my $item;
>         my $out = '';
>         foreach $item (@$list) {
>                 $out .= "Code: $item->{code}<BR>";
>                 $out .= "Item: ";
>                 $out .= tag_data('products','description', $item->{code});
>                 $out .= "<P>";
>         }
>         return 'Nothing in wish list.' unless $out;
>         return $out;
>}
>EOR
>
>- --
>Mike Heins
>
>-
>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


Ryan Hertz                                              tel  800-645-BAIT
Webmaster                                               fax  520-645-2588
Advertising Director                            http://www.insideline.net
Gary Yamamoto Custom Baits, Inc.            http://www.yamamoto.baits.com