Re: [mv] Order Profile in GlobalSub

[Mike Heins <mikeh@minivend.com>]

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

Quoting Oscar Tapia (macross@interplace.com.pe):
> ******    message to minivend-users from Oscar Tapia <macross@interplace.com.pe>     ******
> 
> Greetings
> 
> 
> 
> I am using the emal as the username , and in an order profile that  use
> a GlobalSub , I check that the email has never submited before .
> The GlobalSub is like this :

Hmm. Tricky... it looks like you have read the documentation well.

> GlobalSub <<EOF
> sub set_up_extra {
>  BEGIN {
>   package Vend::Order;
>      sub _alreadyregistred {

	package Vend::Interpolate;

>   my $myemail=$Values->{email};

   # Use CGI object
   my $myemail=$CGI->{email};

>   my $myemailchecked=$Tag->data('userdb','username',$myemail);
>   if (q{$myemailchecked}) {
>       return 0;
>    }
>    else {
>       return 1;
>    }
>   }
>  }
> }
> EOF
> 

The $Tag object is not present in Vend::Order. You could also use:

   my $myemail = $Vend::Interpolate::CGI->{email};
   my $myemailchecked = $Vend::Interpolate::Tag->data('userdb','username',$myemail);

There may be other problems, but I see this one. A quick scan didn't
see any others....

-
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