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

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

version 1.4, 2002/02/19 21:50:40 version 1.5, 2002/03/30 17:59:34
Line 98  sub des_decrypt { Line 98  sub des_decrypt {
 ################################################################  ################################################################
 #                       Handler subroutines                    #  #                       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            #  #            password handler subroutines            #
 ######################################################  ######################################################
Line 335  sub handler { Line 354  sub handler {
  &passwordchanger($r);   &passwordchanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {
  &verify_and_change_password($r);   &verify_and_change_password($r);
       } elsif ($ENV{'form.action'} eq 'changescreenname') {
           &screennamechanger($r);
     } else {      } else {
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Line 354  ENDHEADER Line 375  ENDHEADER
 <input type="submit" value="Change password">  <input type="submit" value="Change password">
 </form>  </form>
 ENDPASSWORDFORM  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              # Other preference setting code should be added here
  }   }
     }      }
Removed from v.1.4  
changed lines
  Added in v.1.5

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