richter 2002/11/20 13:29:38
Modified: eg/web messages.pl
eg/web/db content.epl epwebapp.pl loginform.epl
Log:
website
Revision Changes Path
1.4 +23 -2 embperl/eg/web/messages.pl
Index: messages.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/messages.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- messages.pl 20 Nov 2002 06:56:27 -0000 1.3
+++ messages.pl 20 Nov 2002 21:29:38 -0000 1.4
@@ -75,12 +75,33 @@
'mail_subj_newpw' => 'Ihr neues Pa�wort auf der Embperl Webseite',
# Errors
-
+ 'err_email_needed' => "Sie m�ssen eine E-Mail Adresse eingeben.",
+ 'err_access_denied' => 'Zugriff verweigert. Entweder die E-Mail Adresse oder
das Kennwort sind falsch.',
+ 'err_user_exists' => 'Benutzer existiert bereits. Vielleicht m�chten Sie ein
neues Kennwort an diese Adresse senden?',
+ 'err_user_not_exists' => "Benutzer existiert nicht. Vielleicht haben Sie sich
vertippt oder sich unter einer anderen E-Mail Adresse registriert?",
+ 'err_user_mail' => 'Mail kann nicht an den Benutzer gesendet werden.',
+ 'err_pw_mail' => 'Kennwort kann nicht per Mail an den Benutzer versendet
werden.',
+ 'err_db' => 'Datenbankfehler',
+ 'err_update_db' => 'Datenbankfehler beim Update',
+ 'err_update_lang_db' => 'Datenbankehler w�rend Update der Sprachversionen',
+ 'err_cannot_update_no_id' => 'Update fehlgeschlagen: Zugriff verweigert',
+ 'err_cannot_update_maybe_wrong_user' => 'Update fehlgeschlagen: Berechtigung
fehlt',
+ 'err_cannot_delete_no_id' => 'L�schen fehlgeschlagen: Berechtigung fehlt',
+ 'err_cannot_delete_maybe_wrong_user_or_no_such_item' => 'L�schen
fehlgeschlagen: Berechtigung fehlt',
+ 'err_cannot_delete_db_error' => 'L�schen fehlgeschlagen: Datenbankfehler',
+ 'err_item_not_found_or_access_denied' => 'Eintrag nicht gefunden oder Zugriff
verweigert',
# Warnings
-
+ 'warn_url_removed_white_space' => 'Leerzeichen wurden aus URL entfernt',
+ 'warn_url_added_http' => '"http://"; zu URL hinzugef�gt',
# Success
+ 'suc_login' => 'Anmeldung erfolgreich',
+ 'suc_logout' => 'Abmeldung erfolgreich',
+ 'suc_password_sent' => 'Das Kennwort wurde erfolgreich versendet',
+ 'suc_item_deleted' => 'Eintrag erfolgreich gel�scht',
+ 'suc_item_updated' => 'Eintrag erfolgreich ge�ndert',
+ 'suc_item_created' => 'Eintrag erfolgreich erstellt',
},
'en' =>
{
1.4 +3 -0 embperl/eg/web/db/content.epl
Index: content.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/content.epl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- content.epl 20 Nov 2002 06:56:27 -0000 1.3
+++ content.epl 20 Nov 2002 21:29:38 -0000 1.4
@@ -1,8 +1,11 @@
+[#
<hr>
<center><font color="red" size=3>[= under_construction =]</font><br></center>
+#]
<hr>
[- $r = shift -]
+
[$ if $r->{error} $]
<p align="center"><font color="#ff0000" size="3"><b>
1.4 +3 -3 embperl/eg/web/db/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/epwebapp.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- epwebapp.pl 20 Nov 2002 06:56:27 -0000 1.3
+++ epwebapp.pl 20 Nov 2002 21:29:38 -0000 1.4
@@ -14,6 +14,9 @@
my $ret ;
+ $r -> {error} = $fdat{-error} ;
+ $r -> {success} = $fdat{-success} ;
+
$self -> SUPER::init ($r) ;
$self -> initdb ($r) ;
@@ -26,9 +29,6 @@
$r -> {language_set} = DBIx::Recordset -> Search ({'!DataSource' => $db,
'!Table' => 'language'}) ;
-
- $r -> {error} = $fdat{-error} ;
- $r -> {success} = $fdat{-success} ;
if ($fdat{-add_category})
1.3 +2 -2 embperl/eg/web/db/loginform.epl
Index: loginform.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/loginform.epl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- loginform.epl 20 Nov 2002 07:00:18 -0000 1.2
+++ loginform.epl 20 Nov 2002 21:29:38 -0000 1.3
@@ -22,7 +22,7 @@
[$ if not $udat{user_id}$]
- [$ if $fdat{-newuser} || $dat{-newpassword} $]
+ [$ if ($fdat{-newuser} || $dat{-newpassword}) && !$r -> {error}$]
<p>[= loginnew =]</P>
[$else$]
<p>[= login1 =]</P>
@@ -47,7 +47,7 @@
<p>[= cookie_note =]</p>
- [$ if !$fdat{-newuser} && !$dat{-newpassword} $]
+ [$ if (!$fdat{-newuser} && !$dat{-newpassword}) ||$r -> {error} $]
<hr>
<P ALIGN="left">[= login2 =]</P>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
