--- loncom/interface/loncommon.pm	2002/08/08 19:27:35	1.52
+++ loncom/interface/loncommon.pm	2002/08/20 21:29:34	1.54
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.52 2002/08/08 19:27:35 matthew Exp $
+# $Id: loncommon.pm,v 1.54 2002/08/20 21:29:34 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -844,7 +844,7 @@ sub initialize_keywords {
     #   Set up the hash as a database
     my %thesaurus_db;
     if (! tie(%thesaurus_db,'GDBM_File',
-              $thesaurus_db_file,&GDBM_READER,0640)){
+              $thesaurus_db_file,&GDBM_READER(),0640)){
         &Apache::lonnet::logthis("Could not tie \%thesaurus_db to ".
                                  $thesaurus_db_file);
         return 0;
@@ -957,7 +957,7 @@ sub get_related_words {
         return ();
     }
     if (! tie(%thesaurus_db,'GDBM_File',
-              $thesaurus_db_file,&GDBM_READER,0640)){
+              $thesaurus_db_file,&GDBM_READER(),0640)){
         return ();
     } 
     my @Words=();
@@ -1194,6 +1194,74 @@ sub findallcourses {
 
 ###############################################
 
+sub bodytag {
+    my ($function,$title,$addentries)=@_;
+    my $img='';
+    my $pgbg='';
+    my $tabbg='';
+    my $font='';
+    my $link='';
+    my $alink='#CC0000';
+    my $vlink='';
+    if ($function eq 'admin') {
+        $img='admin';
+        $pgbg='#FFFFCC';
+        $tabbg='#CCCC99';
+        $font='#772200';
+        $link='#663300';
+        $vlink='#666600';
+    } elsif ($function eq 'coordinator') {
+        $img='coordinator';
+        $pgbg='#CCFFFF';
+        $tabbg='#CCCCFF';
+        $font='#000033';
+        $link='#003333';
+        $vlink='#006633';
+   } elsif ($function eq 'author') {
+        $img='author';
+        $pgbg='#CCFFFF';
+        $tabbg='#CCFFCC';
+        $font='#003300';
+        $link='#003333';
+        $vlink='#006666';
+    } else {
+        $img='student';
+        $pgbg='#FFFF99';
+        $tabbg='#FF9900';
+        $font='#991100';
+        $link='#993300';
+        $vlink='#996600';
+    }
+    my $role=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]);
+    if ($ENV{'request.course.id'}) {
+	$role.='<br>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    }
+    return(<<ENDBODY);
+<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
+$addentries>
+<table cellspacing="0" border="0" cellpadding="2">
+<tr><td colspan="2" bgcolor="$tabbg">
+<img src="/adm/lonInterFace/$img.jpg" /></td></tr>
+<tr>
+<td rowspan="2" bgcolor="$tabbg">
+<font size="5"><b>$title</b></font>
+<td bgcolor="$tabbg"  align="right">
+<font size="2">
+    $ENV{'environment.firstname'}
+    $ENV{'environment.middlename'}
+    $ENV{'environment.lastname'}
+    $ENV{'environment.generation'}
+</font>
+</td>
+</tr>
+<tr><td bgcolor="$tabbg" align="right">
+<font size="2">$role</font>
+</td></tr>
+</table><br>
+ENDBODY
+}
+###############################################
+
 sub get_unprocessed_cgi {
   my ($query,$possible_names)= @_;
   # $Apache::lonxml::debug=1;

+
+$title +	+ + $ENV{'environment.firstname'} + $ENV{'environment.middlename'} + $ENV{'environment.lastname'} + $ENV{'environment.generation'} + +
	+$role +