[mv] Routine when all checks have passed

[Jose Luis <macross@mixmail.com>]

******    message to minivend-users from Jose Luis <macross@mixmail.com>     ******

> Greeting  , Can anybody say how to do a routine only when all checks
> have passed , I was trying something like    this  (below)   but the
> routine always execute . Please help me .  thanks
>
> The profile is =
>
> [set new_address]
>
> sfname=required
> slname=required
> saddress1=required
> scity=required
> scountry=required
> [if value scountry =~ /^(US|CA)$/i]
>  sstate=state_province "[value sstate]" is not a valid US/Canada state
> or province.
>  szip=postcode "[value szip]" is not a valid US/Canada postal code.
>  sphone=phone Must have evening or day phone_number
> [else]
>  sphone=phone Must have evening or day phone_number
> [/else]
> [/if]
>
> &fatal = yes
>
> [perl tables=address_book global=1 interpolate=1]
>
> my $ad_num=$Session->{arg};
> my $user=$Session->{username};
> my $dbh = $Sql{address_book};
> my $insert=qq!insert into address_book
>           values
>            ('$user',
>             '[calc][value saddress_number]+1[/calc]',
>             '[value filter=strip name=sfname]',
>             '[value filter=strip name=slname]',
>             '[value filter=strip name=saddress1]  ',
>             '[value filter=strip name=saddress2]',
>             '[value filter=strip name=scity]',
>      '[value name=sstate filter="strip uc"]',
>      '[value name=szip filter=digits]',
>      '[value scountry]',
>      '[value filter=strip name=sphone]'  )!;
>
> my $sth = $dbh->prepare($insert);
> $sth->execute();
> }
> [/perl]
>
> [/set]

-
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