richter 2004/03/07 12:10:06
Modified: . Changes.pod epcmd2.c
test/cmp geturlsess.htm
test/html/sidurl geturlsess.htm
Log:
fix a without href session id
Revision Changes Path
1.235 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.234
retrieving revision 1.235
diff -u -r1.234 -r1.235
--- Changes.pod 7 Mar 2004 20:04:15 -0000 1.234
+++ Changes.pod 7 Mar 2004 20:10:06 -0000 1.235
@@ -22,6 +22,8 @@
Reported by Jochen Topf.
- Fixed problem with relativ cookie expires time.
Patch from Torsten Luettgert.
+ - Fixed problem with <a> tag without href attribute when session ids
+ are embedded into the url. Reported by Torsten Luettgert.
=head1 2.0b10 23. Jan 2004
1.12 +3 -1 embperl/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/epcmd2.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- epcmd2.c 23 Jan 2004 06:50:54 -0000 1.11
+++ epcmd2.c 7 Mar 2004 20:10:06 -0000 1.12
@@ -521,6 +521,8 @@
pNode = Node_self(pDomTree,xNode) ;
nAttrLen = strlen (sAttrName) ;
pAttr = Element_selfGetAttribut (r -> pApp, pDomTree, pNode, sAttrName,
nAttrLen) ;
+ if (!pAttr)
+ return ok ;
pAttrValue = Attr_selfValue (r -> pApp, pDomTree, pAttr, nRepeatLevel,
&pAttrString) ;
1.3 +2 -0 embperl/test/cmp/geturlsess.htm
Index: geturlsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/geturlsess.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- geturlsess.htm 22 Oct 2002 05:29:09 -0000 1.2
+++ geturlsess.htm 7 Mar 2004 20:10:06 -0000 1.3
@@ -35,6 +35,8 @@
^ <form action="cont.htm"><input type=\"hidden\" name=\"EMBPERL_UID\"
value=\"[a-f0-9]*?:[a-f0-9]+\">
</form>
+ <a name="no">blabla</a>
+
</body>
</html>
1.2 +2 -0 embperl/test/html/sidurl/geturlsess.htm
Index: geturlsess.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/sidurl/geturlsess.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- geturlsess.htm 13 Aug 2001 10:53:45 -0000 1.1
+++ geturlsess.htm 7 Mar 2004 20:10:06 -0000 1.2
@@ -74,5 +74,7 @@
<form action="cont.htm">
</form>
+
+ <a name="no">blabla</a>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
