version 1.504, 2007/01/24 21:42:01
|
version 1.509, 2007/02/28 21:45:43
|
Line 1315 Returns a string containing a <select> e
|
Line 1315 Returns a string containing a <select> e
|
|
|
Args: |
Args: |
$name - name of the <select> element |
$name - name of the <select> element |
$value - sclara or array ref of values that should already be selected |
$value - scalar or array ref of values that should already be selected |
$size - number of rows long the select element is |
$size - number of rows long the select element is |
$hash - the elements should be 'option' => 'shown text' |
$hash - the elements should be 'option' => 'shown text' |
(shown text should already have been &mt()) |
(shown text should already have been &mt()) |
$order - (optional) array ref of the order to show the elments in |
$order - (optional) array ref of the order to show the elements in |
|
|
=cut |
=cut |
|
|
Line 1336 sub multiple_select_form {
|
Line 1336 sub multiple_select_form {
|
} |
} |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
my @order; |
my @order; |
if ($order) { |
if (ref($order) eq 'ARRAY') { |
@order = ref($order) ? @$order |
@order = @{$order}; |
: sort(keys(%$hash)); |
} else { |
|
@order = sort(keys(%$hash)); |
} |
} |
if (exists($$hash{'select_form_order'})) { |
if (exists($$hash{'select_form_order'})) { |
@order = @{$$hash{'select_form_order'}}; |
@order = @{$$hash{'select_form_order'}}; |
Line 2266 sub track_student_link {
|
Line 2267 sub track_student_link {
|
&help_open_topic('View_recent_activity'); |
&help_open_topic('View_recent_activity'); |
} |
} |
|
|
|
# ===================================================== Display a student photo |
|
|
|
|
|
sub student_image_tag { |
|
my ($domain,$user)=@_; |
|
my $imgsrc=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
|
if (($imgsrc) && ($imgsrc ne '/adm/lonKaputt/lonlogo_broken.gif')) { |
|
return '<img src="'.$imgsrc.'" align="right" />'; |
|
} else { |
|
return ''; |
|
} |
|
} |
|
|
=pod |
=pod |
|
|
=back |
=back |
Line 3835 table.LC_data_table, table.LC_mail_list
|
Line 3849 table.LC_data_table, table.LC_mail_list
|
.LC_data_table_dense { |
.LC_data_table_dense { |
font-size: small; |
font-size: small; |
} |
} |
|
table.LC_nested_outer { |
|
border: 1px solid #000000; |
|
border-collapse: separate; |
|
border-spacing: 0px; |
|
width: 100%; |
|
} |
|
table.LC_nested { |
|
border: 0px; |
|
border-collapse: separate; |
|
border-spacing: 0px; |
|
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 { |
font-weight: bold; |
font-weight: bold; |
background-color: $data_table_head; |
background-color: $data_table_head; |
Line 3853 table.LC_data_table tr.LC_data_table_hig
|
Line 3879 table.LC_data_table tr.LC_data_table_hig
|
background-color: $data_table_darker; |
background-color: $data_table_darker; |
} |
} |
table.LC_data_table tr.LC_empty_row td, |
table.LC_data_table tr.LC_empty_row td, |
table.LC_whatsnew tr.LC_empty_row td { |
table.LC_nested tr.LC_empty_row td { |
background-color: #FFFFFF; |
background-color: #FFFFFF; |
font-weight: bold; |
font-weight: bold; |
font-style: italic; |
font-style: italic; |
text-align: center; |
text-align: center; |
padding: 8px; |
padding: 8px; |
} |
} |
table.LC_whatsnew tr.LC_empty_row td { |
table.LC_nested tr.LC_empty_row td { |
padding: 4ex |
padding: 4ex |
} |
} |
table.LC_whatsnew { |
table.LC_nested_outer tr th { |
|
font-weight: bold; |
|
background-color: $data_table_head; |
|
font-size: smaller; |
|
border-bottom: 1px solid #000000; |
} |
} |
|
table.LC_nested_outer tr td.LC_subheader { |
table.LC_whatsnew tr th, |
background-color: $data_table_head; |
table.LC_whatsnew tr.LC_info_row td { |
|
background-color: #CCC; |
|
font-weight: bold; |
font-weight: bold; |
font-size: small; |
font-size: small; |
|
border-bottom: 1px solid #000000; |
text-align: right; |
text-align: right; |
} |
} |
table.LC_whatsnew tr td { |
table.LC_nested tr.LC_info_row td { |
background-color: #FFF; |
background-color: #CCC; |
|
font-weight: bold; |
font-size: small; |
font-size: small; |
text-align: right; |
text-align: center; |
} |
} |
table.LC_whatsnew tr td.LC_first_item { |
table.LC_nested tr.LC_info_row td.LC_left_item { |
text-align: left; |
text-align: left; |
} |
} |
|
table.LC_nested td { |
|
background-color: #FFF; |
|
font-size: small; |
|
} |
|
table.LC_nested_outer tr th.LC_right_item, |
|
table.LC_nested tr.LC_info_row td.LC_right_item, |
|
table.LC_nested tr.LC_odd_row td.LC_right_item, |
|
table.LC_nested tr td.LC_right_item { |
|
text-align: right; |
|
} |
|
|
table.LC_whatsnew tr.LC_odd_row td { |
table.LC_nested tr.LC_odd_row td { |
background-color: #EEE; |
background-color: #EEE; |
} |
} |
|
|
Line 6564 sub group_term {
|
Line 6604 sub group_term {
|
|
|
sub icon { |
sub icon { |
my ($file)=@_; |
my ($file)=@_; |
my $curfext = (split(/\./,$file))[-1]; |
my $curfext = lc((split(/\./,$file))[-1]); |
my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif'; |
my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif'; |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) { |
if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) { |