loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.58 and 1.61

-version 1.58, 2002/08/22 21:05:25
+version 1.61, 2002/08/27 16:49:20
  Line 932  sub get_related_words {
  ##              End Thesaurus Functions                      ##
  ###############################################################
+ # -------------------------------------------------------------- Plaintext name
+ sub plainname {
+     my ($uname,$udom)=@_;
+     my %names=&Apache::lonnet::get('environment',
+                     ['firstname','middlename','lastname','generation'],
+ 					 $udom,$uname);
+     return $names{'firstname'}.' '.$names{'middlename'}.' '.
+ 	$names{'lastname'}.' '.$names{'generation'};
+ }
+ # ------------------------------------------------------------------ Screenname
+ sub screenname {
+     my ($uname,$udom)=@_;
+     my %names=
+  &Apache::lonnet::get('environment',['screenname'],$udom,$uname);
+     return $names{'screenname'};
+ }
  # ---------------------------------------------------------------- Language IDs
  sub languageids {
      return sort(keys(%language));
- Line 1148  sub findallcourses {
+ Line 1168  sub findallcourses {
  }
  ###############################################
+ ###############################################
+ =pod
+ =item &domainlogo()
+ Inputs: $domain (usually will be undef)
+ Returns: A link to a domain logo, if the domain logo exists.
+ If the domain logo does not exist, a description of the domain.
+ =cut
+ ###############################################
+ ###############################################
+ sub domainlogo {
+     my ($domain) = @_;
+     if (! $domain) {
+         # Determine domain if we have not been given one
+         $domain = $Apache::lonnet::perlvar{'lonDefDomain'};
+         if ($ENV{'user.domain'}) { $domain=$ENV{'user.domain'}; }
+         if ($ENV{'request.role.domain'}) {
+             $domain=$ENV{'request.role.domain'};
+         }
+     }
+     # See if there is a logo
+     if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') {
+         return '<img src="/adm/lonDomLogos/'.$domain.'.gif" />';
+     } elsif(exists($Apache::lonnet::domaindescription{$domain})) {
+         return $Apache::lonnet::domaindescription{$domain};
+     } else {
+         return '';
+     }
+ }
+ ###############################################
+ ###############################################
+ =pod
+ =item &bodytag()
+ Returns a uniform header for LON-CAPA web pages.
+ Inputs:
+  $title, A title to be displayed on the page.
+  $function, the current role (can be undef).
+  $addentries, extra parameters for the <body> tag.
+  $bodyonly, if defined, only return the <body> tag.
+  $domain, if defined, force a given domain.
+ Returns: A uniform header for LON-CAPA web pages.
+ If $bodyonly is nonzero, a string containing a <body> tag will be returned.
+ If $bodyonly is undef or zero, an html string containing a <body> tag and
+ other decorations will be returned.
+ =cut
+ ###############################################
+ ###############################################
  sub bodytag {
-     my ($title,$function,$addentries)=@_;
+     my ($title,$function,$addentries,$bodyonly,$domain)=@_;
      unless ($function) {
  	$function='student';
          if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
- Line 1210  sub bodytag {
+ Line 1290  sub bodytag {
      }
      unless ($realm) { $realm='&nbsp;'; }
  # Set messages
-     my $messages=localtime();
+     my $messages=&domainlogo($domain);
  # Output
-     return(<<ENDBODY);
+     my $bodytag = <<END;
  <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
  $addentries>
+ END
+     if ($bodyonly) {
+         return $bodytag;
+     } else {
+         return(<<ENDBODY);
+ $bodytag
  <table width="100%" cellspacing="0" border="0" cellpadding="0">
  <tr><td bgcolor="$font">
  <img src="/adm/lonInterFace/$img.jpg" /></td>
- Line 1239  $addentries>
+ Line 1325  $addentries>
  <td bgcolor="$tabbg" align="right"><font size="2">$realm</font>&nbsp;</td></tr>
  </table><br>
  ENDBODY
+     }
  }
  ###############################################

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

Removed from v.1.58
changed lines
	Added in v.1.61