This question is best answered (and discussed) on [EMAIL PROTECTED]
since that's a much more technical list.
Charles Daminato
TUCOWS Product Manager
[EMAIL PROTECTED]
On Thu, 17 Jan 2002, POWERHOUSE wrote:
> I downloaded 2.47 Yesterday, and spent like 11 hours from 10 mins after they
>uploaded it, to about 5 this morning trying to get it to work.
>
> Can someone tell me what I've done wrong here...
>
> Here is what I've added...
>
> to the top in use vars qw( I added $merchID $price $Tprice $domprice
>
> Ok. Now in
>
> sub verify_order {
> I added a line to put a variable in the html code to show that price at the verify
>order. Here is what I added and where...
> # this was already in there, under this is what I added
>
> my $problems;
> foreach my $type (qw(owner billing tech)) {
> foreach my $field (qw(phone fax)) {
> my $number = $in{"${type}_$field"};
> next if ($number eq undef);
>
> if ($number !~ /^\+\d{1,3}\.\d{1,12}(x\d{1,4})?$/){
> # tell the registrant about the bad phone number
> $problems .= "<BR>$type $field $number - ERROR - Format must be
>+1.4165551212\n";
> }
> }
> }
> throw Exception "Register", "Error in data: $problems" if $problems;
>
> # If email bundle is not selected, remove the email address
> delete $in{f_email} unless $in{email_bundle};
>
> # Here is what I added...
>
> if ($in{email_bundle} == 1) {
> my $Tprice = 26.95*$in{period};
> } else {
> my $Tprice = 13.95*$in{period};
> }
> # I added $Tprice to the var at the top. It's just to show a price in the html, that
>is it.
>
> # Here is where one of my problems lay... The last part of this subroutine...
>
> print_form(template=>"$path_templates/verify_order.html",
> data =>{
> domain => $in{domain},
> Tprice => $REG_SYSTEM{Tprice}, # Here is what I've added. I
>have tried every variation of it, but it won't show the value in the html.
> custom_tech_contact => $REG_SYSTEM{custom_tech_contact},
> custom_nameservers => $REG_SYSTEM{custom_nameservers},
> affiliate_id => $in{affiliate_id},
> %in,
> tech_country => CODE_2_Country($in{tech_country}),
> billing_country => CODE_2_Country($in{billing_country}),
> owner_country => CODE_2_Country($in{owner_country}),
> %owner, %billing, %tech,
> crypted_in => $XML_Client->crypt_string(Dumper(\%in)),
> },
> );
> }
> }
>
> That is one problem. I don't want to confuse anyone, so I'll make another different
>discussion of my other problem.
>
> Can someone tell me please what I've done wrong here.
>
> Thank you in advance for any answers you help me with!
> Richard Jones.
>
