version 1.53.2.1, 2002/08/22 21:20:23
|
version 1.54, 2002/08/20 21:29:34
|
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 1196 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; |