On May 17, 2005, at 3:51 AM, Tom Schindl wrote:
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1
S. Woodside schrieb: | The following code in Provider.pm get_xml_info(): | | if($@) { | my $str_ref = $self->get_strref(); | $r->pnotes('xml_string', ${$str_ref}); | @ret = parse_xml_info( $r, undef, $str_ref, $media, | $pref_style); | } | return @ret; |
Where do you put these statements?
if($@) {
my $str_ref = $self->get_strref();
# this gives output:
AxKit::Debug(10, "SIMON get_xml_info str_ref = ".${$str_ref});
$r->pnotes('xml_string', ${$str_ref});
# this gives nothing:
AxKit::Debug(10, "SIMON get_xml_info pnotes('xml_string') =".$r->pnotes('xml_string'));
@ret = parse_xml_info( $r, undef, $str_ref, $media, $pref_style);
# this gives nothing:
AxKit::Debug(10, "SIMON get_xml_info pnotes('xml_string') =".$r->pnotes('xml_string'));
}
incidentally, ${$str_ref} == $$str_ref right?simon
| Now if I add a debug statement like this:
| AxKit::Debug(10, "SIMON get_xml_info str_ref = ".${$str_ref});
| I get what I'd expect, e.g. the XML document printed out.
|
| But if I add this:
| AxKit::Debug(10, "SIMON get_xml_info pnotes('xml_string') =
| ".$r->pnotes('xml_string'));
| then I get nothing. What am I doing wrong?
|
| simon
|
|
-----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.0 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org
iD8DBQFCiaJzkVPeOFLgZFIRAqROAJ0Ym22lfKIJ1fwSwrhx7eSDbUSBbgCgvhWz DOP20qdwZtqM22I/Q9KAXYM= =SNdq -----END PGP SIGNATURE-----
-- Simon Woodside - Founder Semacode Corporation http://semacode.com
