loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.205, 2004/08/17 18:30:14
+version 1.206, 2004/08/24 22:47:58
  Line 2523  END
                 '<h1>LON-CAPA: '.$title.'</h1>';
      } elsif ($ENV{'environment.remote'} eq 'off') {
  # No Remote
+ 	my $roleinfo=(<<ENDROLE);
+ <td bgcolor="$tabbg" align="right">
+ <p>
+ <font size="2" face="Arial, Helvetica, sans-serif">
+     $ENV{'environment.firstname'}
+     $ENV{'environment.middlename'}
+     $ENV{'environment.lastname'}
+     $ENV{'environment.generation'}
+     </font>&nbsp;
+ <br />
+ <font size="2" face="Arial, Helvetica, sans-serif">$role</font>&nbsp;
+ <br />
+ <font size="2" face="Arial, Helvetica, sans-serif">$realm</font>&nbsp;
+ </p>
+ </td>
+ ENDROLE
          return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                        $forcereg).
-       '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td bgcolor="'.$tabbg.'"><font face="Arial, Helvetica, sans-serif" size="+3" color="'.$font.'"><b>'.$title.
+       '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td rowspan="3" bgcolor="'.$tabbg.'"><font face="Arial, Helvetica, sans-serif" size="+3" color="'.$font.'"><b>'.$title.
- '</b></font></td></tr></table>';
+ '</b></font></td>'.$roleinfo.'</tr></table>';
      }
  #