version 1.508, 2007/02/28 16:30:40
|
version 1.513, 2007/03/03 01:40:28
|
Line 1265 sub create_text_file {
|
Line 1265 sub create_text_file {
|
## Home server <option> list generating code ## |
## Home server <option> list generating code ## |
############################################################### |
############################################################### |
|
|
=pod |
|
|
|
=head1 Home Server option list generating code |
|
|
|
=over 4 |
|
|
|
=item * get_domains() |
|
|
|
Returns an array containing each of the domains listed in the hosts.tab |
|
file. |
|
|
|
=cut |
|
|
|
#------------------------------------------- |
|
sub get_domains { |
|
# The code below was stolen from "The Perl Cookbook", p 102, 1st ed. |
|
my @domains; |
|
my %seen; |
|
foreach my $dom (sort(values(%Apache::lonnet::hostdom))) { |
|
push(@domains,$dom) unless $seen{$dom}++; |
|
} |
|
return @domains; |
|
} |
|
|
|
# ------------------------------------------ |
# ------------------------------------------ |
|
|
sub domain_select { |
sub domain_select { |
my ($name,$value,$multiple)=@_; |
my ($name,$value,$multiple)=@_; |
my %domains=map { |
my %domains=map { |
$_ => $_.' '.$Apache::lonnet::domaindescription{$_} |
$_ => $_.' '.$Apache::lonnet::domaindescription{$_} |
} &get_domains; |
} &Apache::lonnet::all_domains(); |
if ($multiple) { |
if ($multiple) { |
$domains{''}=&mt('Any domain'); |
$domains{''}=&mt('Any domain'); |
return &multiple_select_form($name,$value,4,\%domains); |
return &multiple_select_form($name,$value,4,\%domains); |
Line 1459 selected");
|
Line 1435 selected");
|
#------------------------------------------- |
#------------------------------------------- |
sub select_dom_form { |
sub select_dom_form { |
my ($defdom,$name,$includeempty) = @_; |
my ($defdom,$name,$includeempty) = @_; |
my @domains = get_domains(); |
my @domains = &Apache::lonnet::all_domains(); |
if ($includeempty) { @domains=('',@domains); } |
if ($includeempty) { @domains=('',@domains); } |
my $selectdomain = "<select name=\"$name\" size=\"1\">\n"; |
my $selectdomain = "<select name=\"$name\" size=\"1\">\n"; |
foreach my $dom (@domains) { |
foreach my $dom (@domains) { |
Line 1475 sub select_dom_form {
|
Line 1451 sub select_dom_form {
|
|
|
=pod |
=pod |
|
|
=item * get_library_servers($domain) |
|
|
|
Returns a hash which contains keys like '103l3' and values like |
|
'kirk.lite.msu.edu'. All of the keys will be for machines in the |
|
given $domain. |
|
|
|
=cut |
|
|
|
#------------------------------------------- |
|
sub get_library_servers { |
|
my $domain = shift; |
|
my %library_servers; |
|
foreach my $hostid (keys(%Apache::lonnet::libserv)) { |
|
if ($Apache::lonnet::hostdom{$hostid} eq $domain) { |
|
$library_servers{$hostid} = $Apache::lonnet::hostname{$hostid}; |
|
} |
|
} |
|
return %library_servers; |
|
} |
|
|
|
#------------------------------------------- |
|
|
|
=pod |
|
|
|
=item * home_server_option_list($domain) |
=item * home_server_option_list($domain) |
|
|
returns a string which contains an <option> list to be used in a |
returns a string which contains an <option> list to be used in a |
Line 1509 returns a string which contains an <opti
|
Line 1461 returns a string which contains an <opti
|
#------------------------------------------- |
#------------------------------------------- |
sub home_server_option_list { |
sub home_server_option_list { |
my $domain = shift; |
my $domain = shift; |
my %servers = &get_library_servers($domain); |
my %servers = &Apache::lonnet::get_servers($domain,'library'); |
my $result = ''; |
my $result = ''; |
foreach my $hostid (sort(keys(%servers))) { |
foreach my $hostid (sort(keys(%servers))) { |
$result.= |
$result.= |
Line 2270 sub track_student_link {
|
Line 2222 sub track_student_link {
|
# ===================================================== Display a student photo |
# ===================================================== Display a student photo |
|
|
|
|
sub studentimagetag { |
sub student_image_tag { |
my ($domain,$user)=@_; |
my ($domain,$user)=@_; |
my $imgsrc=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
my $imgsrc=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
if (($imgsrc) && ($imgsrc ne '/adm/lonKaputt/lonlogo_broken.gif')) { |
if (($imgsrc) && ($imgsrc ne '/adm/lonKaputt/lonlogo_broken.gif')) { |
Line 3675 sub standard_css {
|
Line 3627 sub standard_css {
|
return <<END; |
return <<END; |
h1, h2, h3, th { font-family: $sans } |
h1, h2, h3, th { font-family: $sans } |
a:focus { color: red; background: yellow } |
a:focus { color: red; background: yellow } |
table.thinborder { border-collapse: collapse; } |
table.thinborder, |
table.thinborder tr th { border-style: solid; border-width: 1px; background: $tabbg;} |
table.LC_optres_prior { |
table.thinborder tr td { border-style: solid; border-width: 1px} |
border-collapse: collapse; |
|
} |
|
table.thinborder tr th { |
|
border-style: solid; |
|
border-width: 1px; |
|
background: $tabbg; |
|
} |
|
table.thinborder tr td, |
|
table.LC_optres_prior tr td { |
|
border-style: solid; |
|
border-width: 1px |
|
} |
|
|
form, .inline { display: inline; } |
form, .inline { display: inline; } |
.center { text-align: center; } |
.center { text-align: center; } |