version 1.142, 2006/07/03 03:54:32
|
version 1.145, 2007/10/03 17:39:13
|
Line 330 sub CreateInterface {
|
Line 330 sub CreateInterface {
|
$Str .= '<td align="center"><b>'.&mt('Student Data</b>'). |
$Str .= '<td align="center"><b>'.&mt('Student Data</b>'). |
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). |
&Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). |
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'. |
Line 843 sub html_outputstudent {
|
Line 843 sub html_outputstudent {
|
my @tmp = &Apache::loncoursedata::get_current_state |
my @tmp = &Apache::loncoursedata::get_current_state |
($student->{'username'},$student->{'domain'},undef, |
($student->{'username'},$student->{'domain'},undef, |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:(.*)/)) { |
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} else { |
if (scalar(@tmp) < 1) { |
my $error = $1; |
|
if (scalar(@tmp) < 1) { |
|
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
|
} else { |
|
$Str .= '<span class="LC_error">Error getting student data ('. |
|
$error.') </span>'."\n"; |
|
} |
$nodata_count++; |
$nodata_count++; |
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
|
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
Line 1951 sub student_tries_on_sequence {
|
Line 1956 sub student_tries_on_sequence {
|
# |
# |
if ( ($links eq 'yes' && $symbol ne ' ') || |
if ( ($links eq 'yes' && $symbol ne ' ') || |
($links eq 'all')) { |
($links eq 'all')) { |
if (length($symbol) > 1) { |
|
&Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1'); |
|
} |
|
my $link = '/adm/grades'. |
my $link = '/adm/grades'. |
'?symb='.&escape($resource->symb). |
'?symb='.&escape($resource->symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |