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

Diff for /loncom/interface/lonpreferences.pm between versions 1.64 and 1.65

version 1.64, 2005/06/14 20:18:26 version 1.65, 2005/06/16 22:11:13
Line 110  sub wysiwygchanger { Line 110  sub wysiwygchanger {
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="set_wysiwyg" />  <input type="hidden" name="action" value="set_wysiwyg" />
 <br />  <br />
 <input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff<br />  <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
 <input type="radio" name="wysiwyg" value="on" $offselect /> $switchon  <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
 ENDLSCREEN  ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');      $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
 }  }
Line 985  sub coursedisplaychanger { Line 985  sub coursedisplaychanger {
   
     my $firstselect='checked="checked"';      my $firstselect='checked="checked"';
     my $whatsnewselect='';      my $whatsnewselect='';
     if ($userenv{'course_init_display'} eq 'firstres') {      if ($userenv{'course_init_display'} eq 'whatsnew') {
         $firstselect='';          $firstselect='';
         $whatsnewselect='checked="checked"';          $whatsnewselect='checked="checked"';
     }      }
Line 996  sub coursedisplaychanger { Line 996  sub coursedisplaychanger {
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <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_coursepage" />  <input type="hidden" name="action" value="verify_and_change_coursepage" />
 <input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off<br />  <label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
 <input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on  <label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label>
 ENDLSCREEN  ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" />      $r->print('<br /><input type="submit" value="'.&mt('Change').'" />
 </form>');  </form>');
Removed from v.1.64  
changed lines
  Added in v.1.65

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