You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2003/01/16 06:29:46 UTC
cvs commit: embperl/eg/web/db loginform.epl
richter 2003/01/15 21:29:45
Modified: eg/web/db loginform.epl
Log:
website updates
Revision Changes Path
1.6 +3 -3 embperl/eg/web/db/loginform.epl
Index: loginform.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/loginform.epl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- loginform.epl 9 Jan 2003 06:19:32 -0000 1.5
+++ loginform.epl 16 Jan 2003 05:29:45 -0000 1.6
@@ -29,7 +29,7 @@
<p>[= login1 =]</P>
[$endif$]
- <form action="[+ $param[0] +]" method="POST" name="login" onSubmit="return epform_validate_login()">
+ <form action="[+ $r -> app -> languri($r, $param[0], $r -> param -> language) +]" method="POST" name="login" onSubmit="return epform_validate_login()">
<table>
<tr>
<td class="cText">[= user_email =]</td>
@@ -55,7 +55,7 @@
<P ALIGN="left">[= login3 =]</P>
- <form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param -> uri) .'/'):''+]login.epl" method="POST" name="newuser" onSubmit="return epform_validate_newuser()">
+ <form action="[+ $r -> app -> languri($r, $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param -> uri) .'/'):'', $r -> param -> language) +]login.epl" method="POST" name="newuser" onSubmit="return epform_validate_newuser()">
<table>
<tr>
<td class="cText">[= user_email =]</td>
@@ -70,7 +70,7 @@
</form>
[$ endif $]
[$ else $]
- <form action="[+ $param[0] +]" method="POST">
+ <form action="[+ $r -> app -> languri($r, $param[0], $r -> param -> language) +]" method="POST">
<p>
[= already_logged_in_as =] [+ $udat{user_email} +]
[$ if $udat{user_admin} $]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org