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

Diff for /loncom/interface/lonpreferences.pm between versions 1.9 and 1.10

version 1.9, 2002/08/19 13:10:55 version 1.10, 2002/08/21 17:18:08
Line 108  sub screennamechanger { Line 108  sub screennamechanger {
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['screenname']);      my %userenv = &Apache::lonnet::get('environment',['screenname']);
     my $screenname=$userenv{'screenname'};      my $screenname=$userenv{'screenname'};
       my $bodytag=&Apache::loncommon::bodytag(
                                            'Change Your Anonymous Screen Name');
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 <html>  <html>
 <body bgcolor="#FFFFFF">  $bodytag
 <h1>Preferences for $user</h1>  
 <h3>$user is a member of domain $domain</h3>  
 <p>  
 Change anonymous discussion screen name for $user  
 </p>  
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_screenname" />  <input type="hidden" name="action" value="verify_and_change_screenname" />
 New screenname:  New screenname:
Line 143  sub verify_and_change_screenname { Line 141  sub verify_and_change_screenname {
         &Apache::lonnet::delenv('environment\.screenname');          &Apache::lonnet::delenv('environment\.screenname');
         $message='Reset screenname';          $message='Reset screenname';
     }      }
       my $bodytag=&Apache::loncommon::bodytag(
                                            'Change Your Anonymous Screen Name');
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 <html>  <html>
 <body bgcolor="#FFFFFF">  $bodytag
 <h1>Preferences for $user</h1>  
 <h3>$user is a member of domain $domain</h3>  
 <p>  
 Change anonymous discussion screen name for $user  
 </p>  </p>
 $message  $message
 </body></html>  </body></html>
Line 198  sub passwordchanger { Line 194  sub passwordchanger {
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
       my $bodytag=&Apache::loncommon::bodytag('Change Password','',
                                            'onLoad="init();"');
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 </head>  </head>
 <body bgcolor="#FFFFFF" onLoad="init();">  $bodytag
   
 <script language="JavaScript">  <script language="JavaScript">
   
Line 228  sub passwordchanger { Line 226  sub passwordchanger {
     }      }
   
 </script>  </script>
 <h1>Preferences for $user</h1>  
 <h3>$user is a member of domain $domain</h3>  
 $errormessage  $errormessage
 <p>  
 Change password for $user  
 </p>  
 <p>  <p>
 <!-- We seperate the forms into 'server' and 'client' in order to  <!-- We seperate the forms into 'server' and 'client' in order to
      ensure that unencrypted passwords will not be sent out by a       ensure that unencrypted passwords will not be sent out by a
Line 401  sub handler { Line 395  sub handler {
 <head>  <head>
 <title>LON-CAPA Preferences</title>  <title>LON-CAPA Preferences</title>
 </head>  </head>
 <body bgcolor="#FFFFFF" >  
 <h1>Preferences for $user</h1>  
 <h3>$user is a member of domain $domain</h3>  
 ENDHEADER  ENDHEADER
           $r->print(&Apache::loncommon::bodytag('Change Your Preferences'));
  # Determine current authentication method   # Determine current authentication method
  my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);   my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
  if ($currentauth =~ /^(unix|internal):/) {   if ($currentauth =~ /^(unix|internal):/) {
Removed from v.1.9  
changed lines
  Added in v.1.10

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