version 1.136, 2006/05/30 12:46:09
|
version 1.140, 2008/09/16 12:32:18
|
Line 76 use Apache::lonpercentage;
|
Line 76 use Apache::lonpercentage;
|
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
use Apache::lonsurveyreports(); |
use Apache::lonsurveyreports(); |
use Apache::longradinganalysis(); |
use Apache::longradinganalysis(); |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
####################################################### |
####################################################### |
Line 313 sub PrepareClasslist {
|
Line 312 sub PrepareClasslist {
|
if ($env{'request.course.sec'} !~ /^\s*$/) { |
if ($env{'request.course.sec'} !~ /^\s*$/) { |
@Sections = ($env{'request.course.sec'}); |
@Sections = ($env{'request.course.sec'}); |
} else { |
} else { |
@Sections = sort {$a cmp $b} keys(%Sections); |
@Sections = sort { |
|
if ($a == $a && $b == $b ) { return $a <=> $b; } |
|
return $a cmp $b; |
|
} keys(%Sections); |
|
|
unshift(@Sections,'all'); # Put 'all' at the front of the list |
unshift(@Sections,'all'); # Put 'all' at the front of the list |
} |
} |
# Sort the groups |
# Sort the groups |
Line 432 sub get_selected_groups {
|
Line 435 sub get_selected_groups {
|
=item §ion_and_enrollment_description |
=item §ion_and_enrollment_description |
|
|
Returns a string describing the currently selected section(s), group(s) and |
Returns a string describing the currently selected section(s), group(s) and |
enrollment status. |
access status. |
|
|
Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized') |
Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized') |
'plaintext' is used for example in Excel spreadsheets. |
'plaintext' is used for example in Excel spreadsheets. |
Line 449 sub section_and_enrollment_description {
|
Line 452 sub section_and_enrollment_description {
|
my @groups = &Apache::lonstatistics::get_selected_groups(); |
my @groups = &Apache::lonstatistics::get_selected_groups(); |
my $description; |
my $description; |
if ($mode eq 'localized') { |
if ($mode eq 'localized') { |
$description = &mt('Unable to determine section, groups and enrollment'); |
$description = &mt('Unable to determine section, groups and access status'); |
} elsif ($mode eq 'plaintext') { |
} elsif ($mode eq 'plaintext') { |
$description = 'Unable to determine section, groups and enrollment'; |
$description = 'Unable to determine section, groups and access status'; |
} else { |
} else { |
$description = 'Bad parameter passed to lonstatistics::section_and_enrollment_description'; |
$description = 'Bad parameter passed to lonstatistics::section_and_enrollment_description'; |
&Apache::lonnet::logthis($description); |
&Apache::lonnet::logthis($description); |
Line 459 sub section_and_enrollment_description {
|
Line 462 sub section_and_enrollment_description {
|
$description = §ion_or_group_text($mode,'section',@sections). |
$description = §ion_or_group_text($mode,'section',@sections). |
' '.§ion_or_group_text($mode,'group',@groups); |
' '.§ion_or_group_text($mode,'group',@groups); |
if ($mode eq 'localized') { |
if ($mode eq 'localized') { |
$description .= &mt(' [_1] enrollment status.',$env{'form.Status'}); |
$description .= &mt(' [_1] access status.',$env{'form.Status'}); |
} elsif ($mode eq 'plaintext') { |
} elsif ($mode eq 'plaintext') { |
$description .= ' '.$env{'form.Status'}.' enrollment status.'; |
$description .= ' '.$env{'form.Status'}.' access status.'; |
} |
} |
return $description; |
return $description; |
} |
} |
Line 704 sub selected_sequences_with_assessments
|
Line 707 sub selected_sequences_with_assessments
|
# |
# |
my @sequences = $navmap->retrieveResources(undef, |
my @sequences = $navmap->retrieveResources(undef, |
sub { shift->is_map(); },1,0,1); |
sub { shift->is_map(); },1,0,1); |
|
my $toplevelseq = $navmap->getById('0.0'); |
|
if (!grep(/^\Q$toplevelseq\E$/,@sequences)) { |
|
unshift(@sequences,$toplevelseq); |
|
} |
|
|
my @sequences_with_assessments; |
my @sequences_with_assessments; |
for my $sequence ($navmap->getById('0.0'), @sequences) { |
foreach my $sequence (@sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
push(@sequences_with_assessments,$sequence); |
push(@sequences_with_assessments,$sequence); |
} |
} |
Line 931 sub DisplayClasslist {
|
Line 939 sub DisplayClasslist {
|
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Enrollment Status').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Access Status').'</b></th>'; |
$Str .= '</tr>'.$/; |
$Str .= '</tr>'.$/; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td>'. |
$Str .= '<td>'. |
Line 1173 ENDSTYLE
|
Line 1181 ENDSTYLE
|
# |
# |
if (! &Apache::lonmysql::verify_sql_connection()) { |
if (! &Apache::lonmysql::verify_sql_connection()) { |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
$r->print('<h2><font color="Red">'. |
$r->print('<h2 class="LC_error">'. |
&mt('Unable to connect to database!'). |
&mt('Unable to connect to database!'). |
'</font></h2>'); |
'</h2>'); |
$r->print('<p>'. |
$r->print('<p>' |
&mt('Please notify the server administrator '). |
.&mt('Please notify the server administrator [_1]', |
'<b>'.$serveradmin.'</b></p>'); |
,'<b>'.$serveradmin.'</b>') |
|
.'</p>'); |
$r->print('<p>'. |
$r->print('<p>'. |
&mt('Course Statistics and Charts cannot be '. |
&mt('Course Statistics and Charts cannot be '. |
'retrieved until the database is restarted. '. |
'retrieved until the database is restarted. '. |