version 1.56, 2002/08/22 13:39:42
|
version 1.59, 2002/08/26 12:47:28
|
Line 480 sub help_open_topic {
|
Line 480 sub help_open_topic {
|
|
|
# Add the graphic |
# Add the graphic |
$template .= <<"ENDTEMPLATE"; |
$template .= <<"ENDTEMPLATE"; |
<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)"></a> |
<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a> |
ENDTEMPLATE |
ENDTEMPLATE |
|
|
return $template; |
return $template; |
Line 735 sub authform_nochange{
|
Line 735 sub authform_nochange{
|
my $result=''; |
my $result=''; |
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="nochange" checked="checked" |
<input type="radio" name="login" value="nochange" checked="checked" |
onclick="javascript:changed_radio('nochange',$in{'formname'});"> |
onclick="javascript:changed_radio('nochange',$in{'formname'});" /> |
Do not change login data |
Do not change login data |
END |
END |
return $result; |
return $result; |
Line 751 sub authform_kerberos{
|
Line 751 sub authform_kerberos{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="krb" |
<input type="radio" name="login" value="krb" |
onclick="javascript:changed_radio('krb',$in{'formname'});" |
onclick="javascript:changed_radio('krb',$in{'formname'});" |
onchange="javascript:changed_radio('krb',$in{'formname'});"> |
onchange="javascript:changed_radio('krb',$in{'formname'});" /> |
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 769 sub authform_internal{
|
Line 771 sub authform_internal{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="int" |
<input type="radio" name="login" value="int" |
onchange="javascript:changed_radio('int',$args{'formname'});" |
onchange="javascript:changed_radio('int',$args{'formname'});" |
onclick="javascript:changed_radio('int',$args{'formname'});"> |
onclick="javascript:changed_radio('int',$args{'formname'});" /> |
Internally authenticated (with initial password |
Internally authenticated (with initial password |
<input type="text" size="10" name="intarg" value="" |
<input type="text" size="10" name="intarg" value="" |
onchange="javascript:changed_text('int',$args{'formname'});"> |
onchange="javascript:changed_text('int',$args{'formname'});" /> |
END |
END |
return $result; |
return $result; |
} |
} |
Line 787 sub authform_local{
|
Line 789 sub authform_local{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="loc" |
<input type="radio" name="login" value="loc" |
onchange="javascript:changed_radio('loc',$in{'formname'});" |
onchange="javascript:changed_radio('loc',$in{'formname'});" |
onclick="javascript:changed_radio('loc',$in{'formname'});"> |
onclick="javascript:changed_radio('loc',$in{'formname'});" /> |
Local Authentication with argument |
Local Authentication with argument |
<input type="text" size="10" name="locarg" value="" |
<input type="text" size="10" name="locarg" value="" |
onchange="javascript:changed_text('loc',$in{'formname'});"> |
onchange="javascript:changed_text('loc',$in{'formname'});" /> |
END |
END |
return $result; |
return $result; |
} |
} |
Line 805 sub authform_filesystem{
|
Line 807 sub authform_filesystem{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="fsys" |
<input type="radio" name="login" value="fsys" |
onchange="javascript:changed_radio('fsys',$in{'formname'});" |
onchange="javascript:changed_radio('fsys',$in{'formname'});" |
onclick="javascript:changed_radio('fsys',$in{'formname'});"> |
onclick="javascript:changed_radio('fsys',$in{'formname'});" /> |
Filesystem authenticated (with initial password |
Filesystem authenticated (with initial password |
<input type="text" size="10" name="fsysarg" value="" |
<input type="text" size="10" name="fsysarg" value="" |
onchange="javascript:changed_text('fsys',$in{'formname'});"> |
onchange="javascript:changed_text('fsys',$in{'formname'});"> |
Line 1147 sub findallcourses {
|
Line 1149 sub findallcourses {
|
|
|
############################################### |
############################################### |
|
|
|
sub domainlogo { |
|
# Determine domain |
|
my $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" />'; |
|
} else { |
|
return $Apache::lonnet::domaindescription{$domain}; |
|
} |
|
} |
|
|
sub bodytag { |
sub bodytag { |
my ($title,$function,$addentries)=@_; |
my ($title,$function,$addentries)=@_; |
unless ($function) { |
unless ($function) { |
Line 1208 sub bodytag {
|
Line 1223 sub bodytag {
|
} |
} |
unless ($realm) { $realm=' '; } |
unless ($realm) { $realm=' '; } |
# Set messages |
# Set messages |
my $messages=localtime(); |
my $messages=&domainlogo(); |
# Output |
# Output |
return(<<ENDBODY); |
return(<<ENDBODY); |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
Line 1425 return HTML code to select file and spec
|
Line 1440 return HTML code to select file and spec
|
|
|
sub upfile_select_html { |
sub upfile_select_html { |
return (<<'ENDUPFORM'); |
return (<<'ENDUPFORM'); |
<input type="file" name="upfile" size="50"> |
<input type="file" name="upfile" size="50" /> |
<br />Type: <select name="upfiletype"> |
<br />Type: <select name="upfiletype"> |
<option value="csv">CSV (comma separated values, spreadsheet)</option> |
<option value="csv">CSV (comma separated values, spreadsheet)</option> |
<option value="space">Space separated</option> |
<option value="space">Space separated</option> |