version 1.518, 2007/04/04 00:10:01
|
version 1.519, 2007/04/05 21:36:15
|
Line 1272 sub domain_select {
|
Line 1272 sub domain_select {
|
|
|
=pod |
=pod |
|
|
|
=head1 Routines for form select boxes |
|
|
|
=over 4 |
|
|
|
=cut |
|
|
=item * multiple_select_form($name,$value,$size,$hash,$order) |
=item * multiple_select_form($name,$value,$size,$hash,$order) |
|
|
Returns a string containing a <select> element int multiple mode |
Returns a string containing a <select> element int multiple mode |
Line 1461 sub home_server_option_list {
|
Line 1467 sub home_server_option_list {
|
|
|
=pod |
=pod |
|
|
=back |
|
|
|
=cut |
=cut |
|
|
############################################################### |
############################################################### |
Line 3218 sub get_domainconf {
|
Line 3222 sub get_domainconf {
|
} |
} |
} |
} |
if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') { |
if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') { |
$designhash{$udom.'.login.domlogo'} = |
$designhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif"; |
&lonhttpdurl("/adm/lonDomLogos/$udom.gif"); |
|
} |
} |
} |
} |
&Apache::lonnet::do_cache_new('domainconfig',$udom,\%designhash, |
&Apache::lonnet::do_cache_new('domainconfig',$udom,\%designhash, |
Line 3244 sub domainlogo {
|
Line 3247 sub domainlogo {
|
my %designhash = &get_domainconf($domain); |
my %designhash = &get_domainconf($domain); |
# See if there is a logo |
# See if there is a logo |
if ($designhash{$domain.'.login.domlogo'} ne '') { |
if ($designhash{$domain.'.login.domlogo'} ne '') { |
return '<img src="'.$designhash{$domain.'.login.domlogo'}. |
my $imgsrc = $designhash{$domain.'.login.domlogo'}; |
'" alt="'.$domain.'" />'; |
if ($imgsrc =~ /^\/adm/) { |
|
$imgsrc = &lonhttpdurl($imgsrc); |
|
} |
|
return '<img src="'.$imgsrc.'" alt="'.$domain.'" />'; |
} elsif (defined(&Apache::lonnet::domain($domain,'description'))) { |
} elsif (defined(&Apache::lonnet::domain($domain,'description'))) { |
return &Apache::lonnet::domain($domain,'description'); |
return &Apache::lonnet::domain($domain,'description'); |
} else { |
} else { |
Line 4275 span.LC_prior_numerical {
|
Line 4281 span.LC_prior_numerical {
|
white-space: pre; |
white-space: pre; |
} |
} |
|
|
|
span.LC_nobreak { |
|
white-space: nowrap; |
|
} |
|
|
END |
END |
} |
} |
|
|