[BACK]Return to lonpreferences.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.5 and 1.6

version 1.5, 2002/03/30 17:59:34 version 1.6, 2002/03/30 23:27:00
Line 105  sub screennamechanger { Line 105  sub screennamechanger {
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my $homeserver = $ENV{'user.home'};      my $homeserver = $ENV{'user.home'};
       my %userenv = &Apache::lonnet::get('environment',['screenname']);
       my $screenname=$userenv{'screenname'};
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 <html>  <html>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
Line 114  $errormessage Line 116  $errormessage
 <p>  <p>
 Change anonymous discussion screen name for $user  Change anonymous discussion screen name for $user
 </p>  </p>
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_screenname" />
   New screenname:
   <input type="text" size="20" value="$screenname" name="screenname" />
   <input type="submit" value="Change" />
   </form>
 </body>  </body>
 </html>  </html>
 ENDSCREEN  ENDSCREEN
 }  }
   
   sub verify_and_change_screenname {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
       my $homeserver = $ENV{'user.home'};
       my $newscreen  = $ENV{'form.screenname'};
       $newscreen=~s/\W//g;
       my $message='';
       if ($newscreen) {
    my %tmp;
           $tmp{'screenname'}=$newscreen;
           &Apache::lonnet::put('environment',\%tmp);
           $message='Set new screenname to '.$newscreen;
       } else {
           &Apache::lonnet::del('environment',['screenname']);
           $message='Reset screenname';
       }
       $r->print(<<ENDVCSCREEN);
   <html>
   <body bgcolor="#FFFFFF">
   <h1>Preferences for $user</h1>
   <h3>$user is a member of domain $domain</h3>
   <p>
   Change anonymous discussion screen name for $user
   </p>
   $message
   </body></html>
   ENDVCSCREEN
   }
   
 ######################################################  ######################################################
 #            password handler subroutines            #  #            password handler subroutines            #
 ######################################################  ######################################################
Line 356  sub handler { Line 396  sub handler {
  &verify_and_change_password($r);   &verify_and_change_password($r);
     } elsif ($ENV{'form.action'} eq 'changescreenname') {      } elsif ($ENV{'form.action'} eq 'changescreenname') {
         &screennamechanger($r);          &screennamechanger($r);
       } elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') {
           &verify_and_change_screenname($r);
     } else {      } else {
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>