--- loncom/auth/lonroles.pm	2008/11/12 20:01:09	1.210
+++ loncom/auth/lonroles.pm	2008/12/04 08:53:04	1.211
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.210 2008/11/12 20:01:09 jms Exp $
+# $Id: lonroles.pm,v 1.211 2008/12/04 08:53:04 tempelho Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -369,7 +369,7 @@ $swinfo
 <form method="post">
 <input type="hidden" name="selectrole" value="1" />
 <input type="hidden" name="$trolecode" value="1" />
-<font size="+2">$message</font><br />
+<span class="LC_fontsize_large">$message</span><br />
 <input type="submit" value="$buttontext" />
 </form>
 $end_page
@@ -759,9 +759,9 @@ ENDHEADER
                         $twhere=$env{'course.'.$tcourseid.'.description'};
 			$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;
                         unless ($twhere eq &mt('Currently not available')) {
-			    $twhere.=' <font size="-2">'.
+			    $twhere.=' <span class="LC_fontsize_small">'.
         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).
-                                    '</font>';
+                                    '</span>';
 			}
                     } else {
                         my %newhash=&Apache::lonnet::coursedescription($tcourseid);
@@ -769,9 +769,9 @@ ENDHEADER
 			    $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
 				"\0".$envkey;
                             $twhere=$newhash{'description'}.
-                              ' <font size="-2">'.
+                              ' <span class="LC_fontsize_small">'.
         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).
-                              '</font>';
+                              '</span>';
                             $ttype = $newhash{'type'};
                             $trole = &Apache::lonnet::plaintext($role,$ttype);
                         } else {
@@ -839,8 +839,8 @@ ENDHEADER
             } else {
                 $r->print('<tr bgcolor="#77FF77">');
             }
-            $r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
-                      '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
+            $r->print('<td></td><td colspan="3"><span style="color:'.$tfont.';"><span class="LC_rolesinfo">'.&mt('No role specified').
+                      '</span></font></td><td><span style="color:'.$tfont.';">'.$tremark.
                       '&nbsp;</font></td></tr>'."\n");
 
             $r->print('</table>');
@@ -871,8 +871,8 @@ ENDHEADER
             } 
 	}
 	if ($output) {
-	    $r->print("<tr><td align='center' colspan='5'><font face='arial'>".
-		      &mt('Recent Roles')."</font></td></tr>");
+	    $r->print("<tr><td align='center' colspan='5'>".
+		      &mt('Recent Roles')."</td></tr>");
 	    $r->print($output);
             $doheaders ++;
 	}
@@ -902,9 +902,9 @@ ENDHEADER
 	        $r->print('<td>&nbsp;</td>');
 	    }
         }
-        $r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
-                  '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
-                  '&nbsp;</font></td></tr>'."\n");
+        $r->print('<td colspan="3"><span style="color:'.$tfont.';"><span class="LC_rolesinfo">'.&mt('No role specified').
+                  '</span></span></td><td><span style="color:'.$tfont.';">'.$tremark.
+                  '&nbsp;</span></td></tr>'."\n");
     } 
     $r->print('</table>');
     unless ($nochoose) {
@@ -982,8 +982,8 @@ sub print_rolerows {
             if ($output) {
                 if ($doheaders > 0) {
                     $r->print("<tr>".
-                              "<td align='center' colspan='5'><font face='arial'>".
-                              &mt($type)."</font></td></tr>");
+                              "<td align='center' colspan='5'>".
+                              &mt($type)."</td></tr>");
                 }
                 $r->print($output);
             }
@@ -1139,14 +1139,14 @@ sub build_roletext {
 	$tremark.=&Apache::lonannounce::showday(time,1,
 			 &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
     }
-    $roletext.='<td><font color="'.$tfont.'">'.$trole.
-	       '</font></td><td><font color="'.$tfont.'">'.$twhere.
-               '</font></td><td><font color="'.$tfont.'">'.$tpstart.
-               '</font></td><td><font color="'.$tfont.'">'.$tpend.
-               '</font></td></tr>';
+    $roletext.='<td><span style="color:'.$tfont.';">'.$trole.
+	       '</span></td><td><span style="color:'.$tfont.';">'.$twhere.
+               '</span></td><td><span style="color:'.$tfont.';">'.$tpstart.
+               '</span></td><td><span style="color:'.$tfont.';">'.$tpend.
+               '</span></td></tr>';
     if (!$is_dc) {
-	$roletext.='<tr bgcolor="'.$tbg.'"><td colspan="4"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.$tremark.
-	    '</span>&nbsp;</font></td></tr><tr><td colspan="5" height="3"></td></tr>'."\n";
+	$roletext.='<tr bgcolor="'.$tbg.'"><td colspan="4"><span style="color:'.$tfont.';"><span class="LC_rolesinfo">'.$tremark.
+	    '</span>&nbsp;</span></td></tr><tr><td colspan="5" height="3"></td></tr>'."\n";
     }
     return $roletext;
 }
@@ -1368,9 +1368,9 @@ sub display_cc_role {
             my %newhash=&Apache::lonnet::coursedescription($tcourseid);
             if (%newhash) {
                 $twhere=$newhash{'description'}.
-                        ' <font size="-2">'.
+                        ' <span style="LC_fontsize_small">'.
                         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
-                        '</font>';
+                        '</span>';
                 $ttype = $newhash{'type'};
             } else {
                 $twhere=&mt('Currently not available');