version 1.140, 2006/05/30 12:46:50
|
version 1.146, 2007/12/20 13:57:13
|
Line 318 the chart page.
|
Line 318 the chart page.
|
####################################################### |
####################################################### |
sub CreateInterface { |
sub CreateInterface { |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart'); |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data'); |
# $Str .= &CreateLegend(); |
# $Str .= &CreateLegend(); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; |
&Apache::loncommon::help_open_topic("Chart_Sections"). |
$Str .= '<td align="center"><b>'.&mt('Student Data</b>').'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Student Data</b>'). |
|
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Sequences"). |
|
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
'</td>'; |
'</td>'; |
Line 363 sub CreateInterface {
|
Line 372 sub CreateInterface {
|
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= |
$Str .= |
&mt('Status [_1]', |
&mt('Status [_1]', |
'<input type="text" name="stats_status" size="60" value="" />'); |
'<input type="text" name="stats_status" size="60" value="" readonly="readonly" />'); |
$Str .= '<br />'; |
$Str .= '<br />'; |
return $Str; |
return $Str; |
} |
} |
Line 662 sub html_initialize {
|
Line 671 sub html_initialize {
|
# If we're showing links, show a checkbox to open in new |
# If we're showing links, show a checkbox to open in new |
# windows. |
# windows. |
if ($show_links ne 'no') { |
if ($show_links ne 'no') { |
|
my $labeltext = &mt('Show links in new window:'); |
$r->print(<<NEW_WINDOW_CHECKBOX); |
$r->print(<<NEW_WINDOW_CHECKBOX); |
<script type="text/javascript">new_window = true;</script> |
<script type="text/javascript">new_window = true;</script> |
<p><label>Show links in new window: |
<p><label>$labeltext |
<input type="checkbox" checked="1" onclick="new_window=this.checked" /> |
<input type="checkbox" checked="1" onclick="new_window=this.checked" /> |
</label></p> |
</label></p> |
NEW_WINDOW_CHECKBOX |
NEW_WINDOW_CHECKBOX |
Line 675 NEW_WINDOW_CHECKBOX
|
Line 685 NEW_WINDOW_CHECKBOX
|
" ".localtime(time)."</h3>"); |
" ".localtime(time)."</h3>"); |
# |
# |
if ($chosen_output->{'base'} !~ /^final table/) { |
if ($chosen_output->{'base'} !~ /^final table/) { |
$r->print("<h3>".$chosen_output->{'shortdesc'}."</h3>"); |
$r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>"); |
} |
} |
my $Str = "<pre>\n"; |
my $Str = "<pre>\n"; |
# First, the @StudentData fields need to be listed |
# First, the @StudentData fields need to be listed |
Line 741 NEW_WINDOW_CHECKBOX
|
Line 751 NEW_WINDOW_CHECKBOX
|
$r->rflush(); |
$r->rflush(); |
|
|
$r->print(<<JS); |
$r->print(<<JS); |
<script> |
<script type="text/javascript"> |
// get the left offset of a given widget as an absolute position |
// get the left offset of a given widget as an absolute position |
function getLeftOffset (element) { |
function getLeftOffset (element) { |
return collect(element, "offsetLeft"); |
return collect(element, "offsetLeft"); |
Line 762 function collect(element, att) {
|
Line 772 function collect(element, att) {
|
} |
} |
|
|
var currentDiv; |
var currentDiv; |
var oldBorder; |
|
var currentElement; |
var currentElement; |
function popup_score(element, score) { |
function popup_score(element, score) { |
popdown_score(); |
popdown_score(); |
var left = getLeftOffset(element); |
var left = getLeftOffset(element); |
var top = getTopOffset(element); |
var top = getTopOffset(element); |
var div = document.createElement("div"); |
var div = document.createElement("div"); |
div.style.border = "1px solid #8888FF"; |
div.className = "LC_chrt_popup"; |
div.style.backgroundColor = "#CCCCFF"; |
|
div.appendChild(document.createTextNode(score)); |
div.appendChild(document.createTextNode(score)); |
div.style.position = "absolute"; |
div.style.position = "absolute"; |
div.style.top = (top - 25) + "px"; |
div.style.top = (top - 25) + "px"; |
div.style.left = (left - 10) + "px"; |
div.style.left = (left - 10) + "px"; |
currentDiv = div; |
currentDiv = div; |
document.body.insertBefore(div, document.body.childNodes[0]); |
document.body.insertBefore(div, document.body.childNodes[0]); |
oldBorder = element.style.border; |
element.className = "LC_chrt_popup_up"; |
element.style.border = "1px solid yellow"; |
|
currentElement = element; |
currentElement = element; |
} |
} |
|
|
Line 787 function popdown_score() {
|
Line 794 function popdown_score() {
|
document.body.removeChild(currentDiv); |
document.body.removeChild(currentDiv); |
} |
} |
if (currentElement) { |
if (currentElement) { |
currentElement.style.border = oldBorder; |
currentElement.className = 'LC_chrt_popup_exists'; |
} |
} |
currentDiv = undefined; |
currentDiv = undefined; |
} |
} |
Line 837 sub html_outputstudent {
|
Line 844 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 1832 sub show_star {
|
Line 1844 sub show_star {
|
# Escape the popup for JS. |
# Escape the popup for JS. |
$popup =~ s/([^-a-zA-Z0-9:;,._ ()|!\/?=&*])/'\\' . sprintf("%lo", ord($1))/ge; |
$popup =~ s/([^-a-zA-Z0-9:;,._ ()|!\/?=&*])/'\\' . sprintf("%lo", ord($1))/ge; |
|
|
return "<span onmouseover='popup_score(this, \"$popup\");return false;' onmouseout='popdown_score();return false;' style='border: 1px solid #339933; margin: -1px;'>$symbol</span>"; |
return "<span class=\"LC_chrt_popup_exists\" onmouseover='popup_score(this, \"$popup\");return false;' onmouseout='popdown_score();return false;'>$symbol</span>"; |
} |
} |
|
|
####################################################### |
####################################################### |
Line 1945 sub student_tries_on_sequence {
|
Line 1957 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'}. |