http://qs1969.pair.com?node_id=263534


in reply to Mandatory Fields

Make it a bit more readable while you're at it.

$Mandatory_Fields= '*' . join( '*', 'Customer Name', 'Customer Email', 'Phone Number', 'Payment Method', 'BillingAddressLine1', 'BillingCity', 'BillingPostCode', param( 'Payment Method' ) eq 'Credit Card' ? qw( CardStartDate CardIssueNo CardSecurityCode ) : () );

Update: I see that Anonymous wants a '*' before each entry including the first one, not just as a delimeter.

Replies are listed 'Best First'.
Re: Re: Mandatory Fields
by Anonymous Monk on Jun 25, 2003 at 22:25 UTC
    Hi, I have just tried:
    $Mandatory_Fields= '*' . join( '*', 'Customer Name', 'Customer Email', 'Phone Number', 'Payment Method', 'BillingAddressLine1', 'BillingCity', 'BillingPostCode', param( 'payMethods' ) eq 'Credit Card' ? qw( CardStartDate CardIssueNo CardSecurityCode ) : () );
    But I am getting an internal server error when trying it out. Any ideas please?

      Try running:

      perl -c scriptname

      Internal server errors are usually the result of your code not compiling. If that is the case, running perl -c will give you a more helpful error message.