cvs commit: xml-axkit/lib AxKit.pm

[matts]

matts       2003/01/21 08:11:57

  Modified:    lib      AxKit.pm
  Log:
  Make sure we clean out $r->pnotes(xml_string|dom_tree) when doing axkit: uris
  
  Revision  Changes    Path
  1.34      +3 -1      xml-axkit/lib/AxKit.pm
  
  Index: AxKit.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/AxKit.pm,v
  retrieving revision 1.33
  retrieving revision 1.34
  diff -u -r1.33 -r1.34
  --- AxKit.pm  8 Jan 2003 17:09:55 -0000       1.33
  +++ AxKit.pm  21 Jan 2003 16:11:57 -0000      1.34
  @@ -505,11 +505,13 @@
           # results now in $r->pnotes('xml_string') - probably...
           if (length($r->pnotes('xml_string'))) {
               my $str = $r->pnotes('xml_string');
  +            $r->pnotes('xml_string', undef);
               AxKit::Debug(10, "get_axkit_uri returning (str): '$str'");
               return $str;
           }
           elsif ($r->pnotes('dom_tree')) {
               my $str = $r->pnotes('dom_tree')->toString;
  +            $r->pnotes('dom_tree', undef);
               AxKit::Debug(10, "get_axkit_uri returning (dom): '$str'");
               return $str;
           }