version 1.61.6.3, 2021/12/14 12:59:21
|
version 1.62, 2013/01/08 15:48:51
|
Line 241 sub handler {
|
Line 241 sub handler {
|
} |
} |
|
|
# |
# |
# Check if display of course gradebook is blocked |
|
# |
|
|
|
if ($env{'request.course.id'}) { |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
|
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom); |
|
if ($blocked) { |
|
my $checkrole = "cm./$cdom/$cnum"; |
|
if ($env{'request.course.sec'} ne '') { |
|
$checkrole .= "/$env{'request.course.sec'}"; |
|
} |
|
unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) && |
|
($env{'request.role'} !~ m{^st\./$cdom/$cnum})) { |
|
&Apache::lonquickgrades::grades_blocked($r,$blocktext,'spreadsheet'); |
|
return OK; |
|
} |
|
} |
|
} |
|
|
|
# |
|
# Do not allow users without vgr or mgr priv to continue unless |
# Do not allow users without vgr or mgr priv to continue unless |
# grading type is set to spreadsheet. |
# grading type is set to spreadsheet. |
# |
# |
Line 368 sub handler {
|
Line 345 sub handler {
|
## |
## |
my $js; |
my $js; |
if ($allowed_to_edit) { |
if ($allowed_to_edit) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=( |
'ce' => 'Cell', |
'ce' => 'Cell', |
'ac' => 'Save', |
'ac' => 'Accept', |
'dc' => 'Cancel' |
'dc' => 'Discard Changes' |
); |
); |
my $extra_javascript = |
my $extra_javascript = |
&Apache::loncommon::browser_and_searcher_javascript(); |
&Apache::loncommon::browser_and_searcher_javascript(); |
Line 400 sub handler {
|
Line 377 sub handler {
|
// cellformula may contain less-than and greater-than symbols, so |
// cellformula may contain less-than and greater-than symbols, so |
// we need to escape them? |
// we need to escape them? |
edit_text +='$cell_edit_start'; |
edit_text +='$cell_edit_start'; |
edit_text += '<form name="editwinform" action="">'; |
edit_text += '<form name="editwinform">'; |
edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>'; |
edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>'; |
edit_text += '<textarea id="LC_newformula" name="newformula" '; |
edit_text += '<textarea id="LC_newformula" name="newformula" '; |
edit_text += ' cols="60" rows="12"; wrap="off" style="width:100%">'; |
edit_text += ' cols="60" rows="12"; wrap="off" style="width:100%">'; |
edit_text += cellformula+'</textarea>'; |
edit_text += cellformula+'</textarea>'; |
edit_text += '<div id="LC_aftertextarea"><br />'; |
edit_text += '<div id="LC_aftertextarea"><br />'; |
edit_text += '<input type="button" name="accept" value="$lt{'ac'}"'; |
edit_text += '<input type="button" name="accept" value="$lt{'ac'}"'; |
edit_text += ' onclick=\\\'javascript:'; |
edit_text += ' onClick=\\\'javascript:'; |
edit_text += 'opener.document.sheet.cell.value='; |
edit_text += 'opener.document.sheet.cell.value='; |
edit_text += '"'+cellname+'";'; |
edit_text += '"'+cellname+'";'; |
edit_text += 'opener.document.sheet.newformula.value='; |
edit_text += 'opener.document.sheet.newformula.value='; |
Line 417 sub handler {
|
Line 394 sub handler {
|
edit_text += ' '; |
edit_text += ' '; |
edit_text += '<input type="button" name="abort" '; |
edit_text += '<input type="button" name="abort" '; |
edit_text += 'value="$lt{'dc'}"'; |
edit_text += 'value="$lt{'dc'}"'; |
edit_text += ' onclick="javascript:self.close()" />'; |
edit_text += ' onClick="javascript:self.close()" />'; |
edit_text += '</center></div></form>$cell_edit_end'; |
edit_text += '</center></div></form>$cell_edit_end'; |
|
|
if (editwin != null && !(editwin.closed) ) { |
if (editwin != null && !(editwin.closed) ) { |
Line 441 ENDSCRIPT
|
Line 418 ENDSCRIPT
|
bug => 'Spreadsheet'}); |
bug => 'Spreadsheet'}); |
$r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js). |
$r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js). |
&Apache::lonhtmlcommon::breadcrumbs('Spreadsheet', |
&Apache::lonhtmlcommon::breadcrumbs('Spreadsheet', |
'Spreadsheet_About'). |
'Spreadsheet_About')); |
&Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'), |
|
'grading')); |
# |
|
# Tabs |
|
# |
|
&Apache::lonquickgrades::startGradeScreen($r,'spreadsheet'); |
|
|
# |
# |
# Open the form |
# Open the form |
Line 555 ENDSCRIPT
|
Line 535 ENDSCRIPT
|
'</td>'. |
'</td>'. |
'<td valign="center">'.$html."</td></tr></table>\n"); |
'<td valign="center">'.$html."</td></tr></table>\n"); |
if ($action_message ne '') { |
if ($action_message ne '') { |
$r->print( |
$r->print(<<END); |
&Apache::loncommon::confirmwrapper( |
<table> |
&mt('Last Action:') |
<tr><td valign="top"><b>Last Action:</b></td> |
.$action_message) |
<td> </td> |
); |
<td>$action_message</td> |
|
</tr> |
|
</table> |
|
END |
} |
} |
$r->rflush(); |
$r->rflush(); |
} else { |
} else { |
Line 601 ENDSCRIPT
|
Line 584 ENDSCRIPT
|
$spreadsheet->display($r); |
$spreadsheet->display($r); |
} |
} |
$r->print('</form>'); |
$r->print('</form>'); |
|
&Apache::lonquickgrades::endGradeScreen($r); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
$spreadsheet->clear_package(); |
$spreadsheet->clear_package(); |
return OK; |
return OK; |