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

Diff for /loncom/interface/lonpreferences.pm between versions 1.14 and 1.15

version 1.14, 2002/09/13 19:32:09 version 1.15, 2002/10/14 20:41:07
Line 378  ENDHEADER Line 378  ENDHEADER
  "Password data was blank.\n</p>");   "Password data was blank.\n</p>");
  return;   return;
     }      }
     # Get the keys      # Get the keysecen my $lonhost = $r->dir_config('lonHostID');
     my $lonhost = $r->dir_config('lonHostID');  
     my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost);      my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost);
     if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) {      if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) {
         # I do not a have a better idea about how to handle this          # I do not a have a better idea about how to handle this
Line 478  sub handler { Line 477  sub handler {
         &msgforwardchanger($r);          &msgforwardchanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {
         &verify_and_change_msgforward($r);          &verify_and_change_msgforward($r);
       } elsif ($ENV{'form.action'} eq 'debugtoggle') {
    if ($ENV{'user.name'} eq 'albertel' ) {
       if ($ENV{'user.debug'}) {
    &Apache::lonnet::delenv('user\.debug');
       } else {
    &Apache::lonnet::appenv('user.debug' => 1);
       }
    }
     } else {      } else {
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Line 511  ENDSCREENNAMEFORM Line 518  ENDSCREENNAMEFORM
 </form>  </form>
 ENDMSGFORWARDFORM  ENDMSGFORWARDFORM
 # The "about me" page  # The "about me" page
             my $aboutmeaction=   my $aboutmeaction=
         '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';      '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';
     $r->print(<<ENDABOUTME);   $r->print(<<ENDABOUTME);
 <form name="client" action="$aboutmeaction" method="post">  <form name="client" action="$aboutmeaction" method="post">
 <input type="hidden" name="action" value="changescreenname" />  <input type="hidden" name="action" value="changescreenname" />
 <input type="submit" value="Edit the 'About Me' Personal Information Screen" />  <input type="submit" value="Edit the 'About Me' Personal Information Screen" />
 </form>  </form>
 ENDABOUTME  ENDABOUTME
             # Other preference setting code should be added here   if ($ENV{'user.name'} eq 'albertel') {
       $r->print(<<ENDDEBUG);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="debugtoggle" />
   <input type="submit" value="Toggle Debug" />
   Current Debug status is -$ENV{'user.debug'}-.
   </form>
   ENDDEBUG
    }
    # Other preference setting code should be added here
     }      }
     $r->print(<<ENDFOOTER);      $r->print(<<ENDFOOTER);
 </body>  </body>
Removed from v.1.14  
changed lines
  Added in v.1.15

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