version 1.57, 2002/08/22 21:02:49
|
version 1.60, 2002/08/26 14:32:29
|
Line 755 sub authform_kerberos{
|
Line 755 sub authform_kerberos{
|
Kerberos authenticated with domain |
Kerberos authenticated with domain |
<input type="text" size="10" name="krbarg" value="" |
<input type="text" size="10" name="krbarg" value="" |
onchange="javascript:changed_text('krb',$in{'formname'});" /> |
onchange="javascript:changed_text('krb',$in{'formname'});" /> |
|
<input type="radio" name="krbver" value="4" checked="on" />Version 4 |
|
<input type="radio" name="krbver" value="5" />Version 5 |
END |
END |
return $result; |
return $result; |
} |
} |
Line 1146 sub findallcourses {
|
Line 1148 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 { |
sub bodytag { |
my ($title,$function,$addentries)=@_; |
my ($title,$function,$addentries,$bodyonly,$domain)=@_; |
unless ($function) { |
unless ($function) { |
$function='student'; |
$function='student'; |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
Line 1208 sub bodytag {
|
Line 1270 sub bodytag {
|
} |
} |
unless ($realm) { $realm=' '; } |
unless ($realm) { $realm=' '; } |
# Set messages |
# Set messages |
my $messages=localtime(); |
my $messages=&domainlogo($domain); |
# Output |
# Output |
return(<<ENDBODY); |
my $bodytag = <<END; |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
$addentries> |
$addentries> |
|
END |
|
if ($bodyonly) { |
|
return $bodytag; |
|
} else { |
|
return(<<ENDBODY); |
|
$bodytag |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<tr><td bgcolor="$font"> |
<tr><td bgcolor="$font"> |
<img src="/adm/lonInterFace/$img.jpg" /></td> |
<img src="/adm/lonInterFace/$img.jpg" /></td> |
Line 1237 $addentries>
|
Line 1305 $addentries>
|
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
</table><br> |
</table><br> |
ENDBODY |
ENDBODY |
|
} |
} |
} |
############################################### |
############################################### |
|
|