[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm

[albertel]

albertel		Thu Jun 16 18:11:18 2005 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  - adding <label>
  - the 'Course Init Pref' was alays checking the one that we hadn't selected, which seems confusing to me
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.64 loncom/interface/lonpreferences.pm:1.65
--- loncom/interface/lonpreferences.pm:1.64	Tue Jun 14 16:18:26 2005
+++ loncom/interface/lonpreferences.pm	Thu Jun 16 18:11:13 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.64 2005/06/14 20:18:26 albertel Exp $
+# $Id: lonpreferences.pm,v 1.65 2005/06/16 22:11:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -110,8 +110,8 @@
 <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="set_wysiwyg" />
 <br />
-<input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff<br />
-<input type="radio" name="wysiwyg" value="on" $offselect /> $switchon
+<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
+<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
 ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
 }
@@ -985,7 +985,7 @@
 
     my $firstselect='checked="checked"';
     my $whatsnewselect='';
-    if ($userenv{'course_init_display'} eq 'firstres') {
+    if ($userenv{'course_init_display'} eq 'whatsnew') {
         $firstselect='';
         $whatsnewselect='checked="checked"';
     }
@@ -996,8 +996,8 @@
     $r->print(<<ENDLSCREEN);
 <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_coursepage" />
-<input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off<br />
-<input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on
+<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
+<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label>
 ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" />
 </form>');