[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm
www
lon-capa-cvs@mail.lon-capa.org
Sat, 30 Mar 2002 17:59:34 -0000
www Sat Mar 30 12:59:34 2002 EDT
Modified files:
/loncom/interface lonpreferences.pm
Log:
Working towards screen name in anonymous discussions
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.4 loncom/interface/lonpreferences.pm:1.5
--- loncom/interface/lonpreferences.pm:1.4 Tue Feb 19 16:50:40 2002
+++ loncom/interface/lonpreferences.pm Sat Mar 30 12:59:34 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.4 2002/02/19 21:50:40 matthew Exp $
+# $Id: lonpreferences.pm,v 1.5 2002/03/30 17:59:34 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -98,7 +98,26 @@
################################################################
# Handler subroutines #
################################################################
-
+sub screennamechanger {
+ my $r = shift;
+ my $errormessage = shift;
+ $errormessage = ($errormessage || '');
+ my $user = $ENV{'user.name'};
+ my $domain = $ENV{'user.domain'};
+ my $homeserver = $ENV{'user.home'};
+ $r->print(<<ENDSCREEN);
+<html>
+<body bgcolor="#FFFFFF">
+<h1>Preferences for $user</h1>
+<h3>$user is a member of domain $domain</h3>
+$errormessage
+<p>
+Change anonymous discussion screen name for $user
+</p>
+</body>
+</html>
+ENDSCREEN
+}
######################################################
# password handler subroutines #
######################################################
@@ -335,6 +354,8 @@
&passwordchanger($r);
} elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {
&verify_and_change_password($r);
+ } elsif ($ENV{'form.action'} eq 'changescreenname') {
+ &screennamechanger($r);
} else {
$r->print(<<ENDHEADER);
<html>
@@ -354,6 +375,13 @@
<input type="submit" value="Change password">
</form>
ENDPASSWORDFORM
+# Change screen name
+ $r->print(<<ENDSCREENNAMEFORM);
+<form name="client" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="changescreenname">
+<input type="submit" value="Change anonymous discussion screen name">
+</form>
+ENDSCREENNAMEFORM
# Other preference setting code should be added here
}
}