[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.52 and 1.54

version 1.52, 2002/08/08 19:27:35 version 1.54, 2002/08/20 21:29:34
Line 844  sub initialize_keywords { Line 844  sub initialize_keywords {
     #   Set up the hash as a database      #   Set up the hash as a database
     my %thesaurus_db;      my %thesaurus_db;
     if (! tie(%thesaurus_db,'GDBM_File',      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 ".          &Apache::lonnet::logthis("Could not tie \%thesaurus_db to ".
                                  $thesaurus_db_file);                                   $thesaurus_db_file);
         return 0;          return 0;
Line 957  sub get_related_words { Line 957  sub get_related_words {
         return ();          return ();
     }      }
     if (! tie(%thesaurus_db,'GDBM_File',      if (! tie(%thesaurus_db,'GDBM_File',
               $thesaurus_db_file,&GDBM_READER,0640)){                $thesaurus_db_file,&GDBM_READER(),0640)){
         return ();          return ();
     }       } 
     my @Words=();      my @Words=();
Line 1194  sub findallcourses { Line 1194  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 {  sub get_unprocessed_cgi {
   my ($query,$possible_names)= @_;    my ($query,$possible_names)= @_;
   # $Apache::lonxml::debug=1;    # $Apache::lonxml::debug=1;
Removed from v.1.52  
changed lines
  Added in v.1.54

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>