[ic] order.profile logic commands

[interchange-users@interchange.redhat.com (Dan Browning)]

At 07:08 PM 4/29/2002 -0700, you wrote:
>I was trying to perform some checks on some numbers for checking a date of
>birth to see if it is past a certain age.  I tried this and it didn't work,
>this code is from the orders.profile, all I get is
>
>(elsif): No format check routine for 'value'
>
>when I go through an order.  I guess that means the order profile is not
>working, but I can't think of what could be wrong, from what I've seen from
>the other order profiles, ITL can be used there without any problems, Any
>help would be appreciated!
>
>profiles.order    code follows:
>
>__NAME__                            credit_card
>fname=required
>lname=required
>address1=required
>city=required
>country=required
>&set = timeyear [calc][time]%Y[/time]-18[/calc]
>&set = timemonth [time]%m[/time]
>&set = timeday [time]%d[/time]
>[if value dob_year < timeyear]
>         [then]
>                 &set = DOB_check 1
>         [/then]
>         [elsif value dob_year == timeyear]
>                 [if value dob_month == timemonth]
>                         [then]
>                         [if value dob_day == timeday]
>                                         &set = DOB_check 1
>                                 [elsif scratch dob_day < timeday]
>                                         &set = DOB_check 1
>                                 [/elsif]
>                         [/if]
>                         [/then]
>                 [elsif value dob_month < timemonth]
>                         &set = DOB_check 1
>                 [/elsif]
>                 [/if]
>         [/elsif]
>[/if]
>DOB_check=required You cannot continue since you are under 18.
>phone_check=required
>[if !value phone_check == ""]
>   [then]
>     [if !value phone_day == ""]
>     phone_day=phone
>     [/if]
>
>     [if !value phone_night == ""]
>     phone_night=phone
>     [/if]
>
>     [if !value phone_mobile == ""]
>     phone_mobile=phone
>     [/if]
>    [/then]
>   [/if]
>[if value country =~ /^(US|CA)$/i]
>         state=state_province
>         zip=postcode
>[/if]
>
>&fatal = yes
>email=required
>email=email
>
>&set = mv_payment Incomplete
>
>[if variable MV_PAYMENT_MODE]
>&credit_card=standard keep __CREDIT_CARDS_ACCEPTED__
>&charge=[var MV_PAYMENT_MODE][cgi mv_payment_test]
>&set=mv_payment Real-time Credit Card (%c -- [var MV_PAYMENT_MODE])
>[else]
>&credit_card=standard __CREDIT_CARDS_ACCEPTED__
>&set=mv_payment Credit Card (%c)
>[/else]
>[/if]
>
>&calc = $Values->{mv_payment} =~ s/\%c/$Values->{mv_credit_card_type}/g; 1;
>&final = yes
>&setcheck=mv_email [value email]
>
>-----------------------------------------
>Brendan Crosser-McGay

I would recommend that you first test your code outside the profile with 
test parameters to make sure you don't have any bugs (it seems to be 
missing a little bit of logic in your if statements).  Then I would either 
create a new filter with this code in it (to be used with a filter 
directive in the profile), or create a globalsub that runs this code in the 
profile.  This is documented in the Ed LaFrance's ic_ecommerce (which can 
be found in man format in VENDROOT/doc, man2html can convert to 
HTML).  Here is an example of a globalsub that checks if a certain date is 
in the past, note the use of < as well as == when checking dates, that may 
be your problem.

GlobalSub <<EOF
     sub set_up_extra_check {
         BEGIN {
             package Vend::Order;
                         sub _date_past {
                                 my($ref, $var, $val) = @_;

                                 $_ = $val;
                                 my ($mo, $da, $yr) = 
/(^\d{1,2}).(\d{1,2}).(\d\d\d\d|\d\d)/;

                                 my ($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
                                 $YEAR += 1900;

                                 my $error_msg = "must be in the past";
                                 if ($yr < $YEAR){
                                         return (1, $var, '');
                                 } elsif ($yr == $YEAR){
                                         if ($mo < $MONTH){
                                                 return (1, $var, '');
                                         } elsif ($mo == $MONTH){
                                                 if ($da < $DAY){
                                                         return (1, $var, '');
                                                 } else {
                                                         return (undef, 
$var, $error_msg);
                                                 }
                                         } else {
                                                 return (undef, $var, 
$error_msg);
                                         }
                                 } else {
                                         return (undef, $var, $error_msg);
                                 }
                                 return (1, $var, '');
                         }
                 }
         }
EOF

HTH,

+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Dan Browning, Kavod Technologies <db@kavod.com>
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"I'll rob that rich person and give it to some poor deserving slob.
That will *prove* I'm Robin Hood."
                 -- Daffy Duck, "Robin Hood Daffy", [1958, Chuck Jones]