[Cpan-forum-commit] rev 88 - in trunk: lib/CPAN templates

svn at pti.co.il svn at pti.co.il
Sat Feb 5 23:33:58 IST 2005


Author: gabor
Date: 2005-02-05 23:33:56 +0200 (Sat, 05 Feb 2005)
New Revision: 88

Modified:
   trunk/lib/CPAN/Forum.pm
   trunk/templates/pwreminder.tmpl
Log:
put a selction box on the password reminder page

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-02-05 20:57:15 UTC (rev 87)
+++ trunk/lib/CPAN/Forum.pm	2005-02-05 21:33:56 UTC (rev 88)
@@ -1052,6 +1052,7 @@
 	);
 
 	$t->param($errs) if $errs;
+	$t->param($q->param('field') => 1);
 	return $t->output;
 }
 
@@ -1059,16 +1060,12 @@
 sub pwreminder_process {
 	my ($self) = @_;
 	my $q = $self->query;
-	if (not $q->param('nickname') and not $q->param('email')) {
+	my $field = $q->param('field');
+	if (not $field or $field !~ /^username|email$/ or not $q->param('value')) {
 		return $self->pwreminder({"no_data" => 1});
 	}
 
-	my $user;
-	if ($q->param('nickname')) {
-		($user) = CPAN::Forum::Users->search({username => $q->param('nickname')});
-	} else {
-		($user) = CPAN::Forum::Users->search({email    => $q->param('email')});
-	};
+	my ($user) = CPAN::Forum::Users->search({$field => $q->param('value')});
 	return $self->pwreminder({"no_data" => 1}) if not $user;
 
 	# TODO: put this text in a template
@@ -1085,8 +1082,8 @@
 
 MSG
 
-	my ($field) = CPAN::Forum::Configure->search({field => "from"});
-	my $FROM = $field->value;
+	my ($from) = CPAN::Forum::Configure->search({field => "from"});
+	my $FROM = $from->value;
 	$self->log->debug("FROM field set to be $FROM");
 
 	my %mail = (

Modified: trunk/templates/pwreminder.tmpl
===================================================================
--- trunk/templates/pwreminder.tmpl	2005-02-05 20:57:15 UTC (rev 87)
+++ trunk/templates/pwreminder.tmpl	2005-02-05 21:33:56 UTC (rev 88)
@@ -15,12 +15,13 @@
 <form method="post" action="/">
 <p>
 <input type="hidden" name="rm" value="pwreminder_process" />
+<select name="field">
+ <option value="username" <TMPL_IF username>SELECTED</TMPL_IF>>Nickname</option>
+ <option value="email"    <TMPL_IF email>SELECTED</TMPL_IF>>Email</option>
+</select>
+<input name="value" value="<TMPL_VAR value>" /> 
+<input type="submit" value="Remind me" />
 </p>
-	<table>
-	<tr><td>Nickname:</td><td><input name="nickname" value="<TMPL_VAR nickname>" /> or</td></tr>
-	<tr><td>Email:</td><td><input name="email" value="<TMPL_VAR email>" /></td></tr>
-	<tr><td></td><td><input type="submit" value="Remind me" /></td></tr>
-	</table>
 </form>
 </TMPL_IF>
 



More information about the Cpan-forum-commit mailing list