version 1.75, 2013/11/20 18:40:09
|
version 1.77, 2013/12/30 01:33:21
|
Line 643 sub additional_filters {
|
Line 643 sub additional_filters {
|
date => 'immediately prior to specific date:', |
date => 'immediately prior to specific date:', |
); |
); |
my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts'); |
my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts'); |
$output .= '<span id="choosewasacctext">'; |
$output .= '<span id="choosewasacctext" class="LC_nobreak">'; |
if ($checked) { |
if ($checked) { |
$output .= &get_wasactive_text(); |
$output .= &get_wasactive_text(); |
} |
} |
Line 951 sub construct_data_table {
|
Line 951 sub construct_data_table {
|
$output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>'; |
$output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>'; |
&Apache::loncommon::end_data_table_header_row(); |
&Apache::loncommon::end_data_table_header_row(); |
my (%numbers,%creditsum); |
my (%numbers,%creditsum); |
my ($showcredits,$defofficial,$defunofficial); |
my ($showcredits,$defofficial,$defunofficial,$deftextbook); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
unless ($env{'form.currcat_0'} eq 'communities::0') { |
unless ($env{'form.currcat_0'} eq 'communities::0') { |
if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) { |
if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) { |
$showcredits = 1; |
$showcredits = 1; |
$defofficial = $domdefaults{'officialcredits'}; |
$defofficial = $domdefaults{'officialcredits'}; |
$defunofficial = $domdefaults{'unofficialcredits'}; |
$defunofficial = $domdefaults{'unofficialcredits'}; |
|
$deftextbook = $domdefaults{'textbookcredits'}; |
} |
} |
} |
} |
my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$details, |
my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$details, |
$usersections,\@fields,\%fieldtitles, |
$usersections,\@fields,\%fieldtitles, |
$wasactiveon,\%numbers,\%creditsum, |
$wasactiveon,\%numbers,\%creditsum, |
$showcredits,$defofficial,$defunofficial); |
$showcredits,$defofficial,$defunofficial,$deftextbook); |
my %Sortby; |
my %Sortby; |
foreach my $course (sort(keys(%{$courses}))) { |
foreach my $course (sort(keys(%{$courses}))) { |
if ($env{'form.sortby'} eq 'code') { |
if ($env{'form.sortby'} eq 'code') { |