version 1.518, 2007/04/04 00:10:01
|
version 1.525, 2007/04/16 23:25:04
|
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|res)/) { |
|
$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 3284 sub designparm {
|
Line 3290 sub designparm {
|
} |
} |
$domain=&determinedomain($domain); |
$domain=&determinedomain($domain); |
my %domdesign = &get_domainconf($domain); |
my %domdesign = &get_domainconf($domain); |
|
my $output; |
if ($domdesign{$domain.'.'.$which} ne '') { |
if ($domdesign{$domain.'.'.$which} ne '') { |
return $domdesign{$domain.'.'.$which}; |
$output = $domdesign{$domain.'.'.$which}; |
} else { |
} else { |
return $defaultdesign{$which}; |
$output = $defaultdesign{$which}; |
} |
} |
|
if (($which =~ /^(student|coordinator|author|admin)\.img$/) || |
|
($which =~ /login\.(img|logo|domlogo)/)) { |
|
if ($output =~ /^\/(adm|res)\//) { |
|
$output = &lonhttpdurl($output); |
|
} |
|
} |
|
return $output; |
} |
} |
|
|
############################################### |
############################################### |
Line 3676 sub standard_css {
|
Line 3690 sub standard_css {
|
my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' |
my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' |
: '0px 3px 0px 4px'; |
: '0px 3px 0px 4px'; |
|
|
|
|
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, |
table.thinborder, |
table.LC_optres_prior { |
|
border-collapse: collapse; |
|
} |
|
table.thinborder tr th { |
table.thinborder tr th { |
border-style: solid; |
border-style: solid; |
border-width: 1px; |
border-width: 1px; |
background: $tabbg; |
background: $tabbg; |
} |
} |
table.thinborder tr td, |
table.thinborder tr td { |
table.LC_optres_prior tr td { |
|
border-style: solid; |
border-style: solid; |
border-width: 1px |
border-width: 1px |
} |
} |
Line 3829 td.LC_table_cell_checkbox {
|
Line 3841 td.LC_table_cell_checkbox {
|
text-align: center; |
text-align: center; |
} |
} |
|
|
|
table#LC_mainmenu td.LC_mainmenu_column { |
|
vertical-align: top; |
|
} |
|
|
.LC_menubuttons_inline_text { |
.LC_menubuttons_inline_text { |
color: $font; |
color: $font; |
font-family: $sans; |
font-family: $sans; |
font-size: smaller; |
font-size: smaller; |
} |
} |
|
|
|
.LC_menubuttons_category { |
|
color: $font; |
|
font-family: $sans; |
|
font-size: larger; |
|
font-weight: bold; |
|
} |
|
|
td.LC_menubuttons_text { |
td.LC_menubuttons_text { |
color: $font; |
color: $font; |
font-family: $sans; |
font-family: $sans; |
Line 3876 table.LC_nested {
|
Line 3899 table.LC_nested {
|
border-spacing: 0px; |
border-spacing: 0px; |
width: 100%; |
width: 100%; |
} |
} |
table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th { |
table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th, |
|
table.LC_prior_tries tr th { |
font-weight: bold; |
font-weight: bold; |
background-color: $data_table_head; |
background-color: $data_table_head; |
font-size: smaller; |
font-size: smaller; |
Line 4254 span.LC_feedback_link {
|
Line 4278 span.LC_feedback_link {
|
} |
} |
|
|
table.LC_prior_tries { |
table.LC_prior_tries { |
border-width: 1px; |
border: 1px solid #000000; |
border-style: solid; |
border-collapse: separate; |
border-color: gray; |
border-spacing: 1px; |
border-collapse: collapse; |
|
} |
} |
table.LC_prior_tries th, |
|
table.LC_prior_tries td { |
table.LC_prior_tries td { |
border-width: 1px; |
padding: 2px; |
border-style: solid; |
} |
border-color: gray; |
|
padding: 3px; |
.LC_answer_correct { |
} |
background: #AAFFAA; |
table.LC_prior_tries tr.LC_correct { |
color: black; |
font-weight: bold; |
} |
background: #aaffaa; |
.LC_answer_charged_try { |
|
background: #FFAAAA ! important; |
|
color: black; |
|
} |
|
.LC_answer_not_charged_try, |
|
.LC_answer_no_grade, |
|
.LC_answer_late { |
|
background: #FFFFAA; |
|
color: black; |
|
} |
|
.LC_answer_previous { |
|
background: #AAAAFF; |
|
color: black; |
|
} |
|
.LC_answer_no_message { |
|
background: #FFFFFF; |
|
color: black; |
|
} |
|
.LC_answer_unknown { |
|
background: orange; |
|
color: black; |
} |
} |
|
|
|
|
span.LC_prior_numerical { |
span.LC_prior_numerical { |
font-family: monospace; |
font-family: monospace; |
white-space: pre; |
white-space: pre; |
|
} |
|
|
|
span.LC_prior_string { |
|
font-family: monospace; |
|
white-space: pre; |
|
} |
|
|
|
table.LC_prior_option { |
|
width: 100%; |
|
border-collapse: collapse; |
|
} |
|
table.LC_prior_option tr td { |
|
border: 1px solid #000000; |
|
} |
|
|
|
span.LC_nobreak { |
|
white-space: nowrap; |
} |
} |
|
|
END |
END |
Line 4317 sub headtag {
|
Line 4379 sub headtag {
|
my $bgcolor = $args->{'bgcolor'} || &designparm($function.'.pgbg',$domain); |
my $bgcolor = $args->{'bgcolor'} || &designparm($function.'.pgbg',$domain); |
my $url = join(':',$env{'user.name'},$env{'user.domain'}, |
my $url = join(':',$env{'user.name'},$env{'user.domain'}, |
$Apache::lonnet::perlvar{'lonVersion'}, |
$Apache::lonnet::perlvar{'lonVersion'}, |
#time(), |
time(), |
$env{'environment.color.timestamp'}, |
$env{'environment.color.timestamp'}, |
$function,$domain,$bgcolor); |
$function,$domain,$bgcolor); |
|
|