Evgeniy,
Thanks for the help on this! I had tried that code, but couldn't figure out
why I wasn't getting anything (useful) back. It turns out I had been testing
with the "use admin contact" so $data->{billing} just gets back a pointer to
owner. So it turns out I needed to write a little loop like this:
if ($in{flag_billing_use_admin}){
%mydata = (
billing_first_name => $data->{owner}->{first_name},
# etc, pass anything else you need
);
} else {
%mydata = (
billing_first_name => $data->{billing}->{first_name},
# etc, pass anything else you need
);
}
to make sure I could pass billing info for payment. Hope this makes sense
and is useful to anyone trying to do development on reg_system.info.cgi.
--
John Keegan
[EMAIL PROTECTED]
http://RackShare.com
> From: Evgeniy Pirogov <[EMAIL PROTECTED]>
> Date: Tue, 17 Jul 2001 20:46:48 +0000
> To: John Keegan <[EMAIL PROTECTED]>
> Cc: [EMAIL PROTECTED]
> Subject: Re: Perl Question for 2.41 info.cgi
>
> Owner first name
> $data->{owner}->{first_name}
>
> Try to use Data::Dumper to see actual structure of the $data
>
> use Data::Dumper;
> print Dumper($data);
>
> it will give you an idea how to extract information from a reference on hash
>
> John Keegan wrote:
>
>> I need some help from a Perl guru... In the process_order sub of
>> register.info.cgi, right before the $xcp_request to register the domain, are
>> this lines:
>>
>> $data->{owner}=$owner;
>> $data->{billing}=$billing;
>> $data->{tech}=$tech;
>>
>> How do I retrieve the billing information from $data? billing_first_name,
>> billing_last_name, etc.?
>>
>> --
>> John Keegan
>> [EMAIL PROTECTED]
>> http://RackShare.com
>
> --
> Evgeniy
> OpenSRS developer
>
>
>
