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

[bisitz]

bisitz		Wed Jun  4 18:48:54 2008 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  - Highlighted selection for course action by adding a table
  - Localized course type selection
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.72 loncom/interface/lonpickcourse.pm:1.73
--- loncom/interface/lonpickcourse.pm:1.72	Fri May 30 20:50:00 2008
+++ loncom/interface/lonpickcourse.pm	Wed Jun  4 18:48:54 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.72 2008/05/31 00:50:00 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.73 2008/06/04 22:48:54 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -228,14 +228,23 @@
                  $menuchk = ' checked="checked" ';
             }
             $r->print(
+                '<table class="LC_pick_box">'.
+                '<tr class="LC_pick_box_row">'.
+                '<td class="LC_pick_box_title" rowspan="2">'.&mt('Action').'</td>'.
+                '<td class="LC_evenrow_value">'.
                 '<span class="LC_nobreak"><label>'.
                 '<input type="radio" name="phase" value="ccrole"'.$ccrolechk.'/>'.
                 '&nbsp;'.&mt('Enter the course with the role of [_1].',$cctitle).
-                '</label>'.('&nbsp;'x3).'</span><br />'.
+                '</label>'.('&nbsp;'x3).'</span>'.
+                '</td></tr>'.
+                '<tr class="LC_pick_box_row">'.
+                '<td class="LC_oddrow_value">'.
                 '<span class="LC_nobreak"><label>'.
                 '<input type="radio" name="phase" value="menu"'.$menuchk.'/>&nbsp;'.
                 &mt('View or modify course settings which only a [_1] may modify.',$dctitle).
-                '</label></span><br /><br />');
+                '</label></span>'.
+                '</td></tr></table>'.
+                '<br />');
         }
     }
     my %by_descrip;
@@ -444,7 +453,7 @@
     }
     foreach my $posstype ('Course','Non-standard Course') {
         $typeselectform.='<option value="'.$posstype.'"'.
-            ($posstype eq $type ? ' selected="selected" ' : ''). ">$posstype</option>\n";
+            ($posstype eq $type ? ' selected="selected" ' : ''). ">".&mt($posstype)."</option>\n";
     }
     $typeselectform.="</select>";
     my $output = qq|