version 1.28, 2003/11/11 15:48:03
|
version 1.36, 2004/03/01 16:40:44
|
Line 227 sub handler {
|
Line 227 sub handler {
|
} |
} |
my $courseid = $ENV{'request.course.id'}; |
my $courseid = $ENV{'request.course.id'}; |
# |
# |
# Do not allow students to continue if standard grading is in effect. |
# Do not allow students to continue if standard or external grading is in |
|
# effect. |
|
# |
if ($ENV{'request.role'} =~ /^st\./) { |
if ($ENV{'request.role'} =~ /^st\./) { |
if ($ENV{'course.'.$courseid.'.grading'} eq 'standard') { |
if ($ENV{'course.'.$courseid.'.grading'} eq 'standard' || |
|
$ENV{'course.'.$courseid.'.grading'} eq 'external' ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
Line 253 sub handler {
|
Line 256 sub handler {
|
$symb = $ENV{'form.usymb'} if (exists($ENV{'form.usymb'})); |
$symb = $ENV{'form.usymb'} if (exists($ENV{'form.usymb'})); |
my $name = $ENV{'user.name'}; |
my $name = $ENV{'user.name'}; |
my $domain = $ENV{'user.domain'}; |
my $domain = $ENV{'user.domain'}; |
if (exists($ENV{'form.sname'})) { |
if (exists($ENV{'form.sname'}) && $ENV{'form.sname'} ne '') { |
$name = $ENV{'form.sname'}; |
$name = $ENV{'form.sname'}; |
$domain = $ENV{'form.sdomain'}; |
$domain = $ENV{'form.sdomain'}; |
} |
} |
|
$ENV{'form.sname'} = $name; |
|
$ENV{'form.sdomain'} = $domain; |
## |
## |
## Check permissions |
## Check permissions |
my $allowed_to_edit = &Apache::lonnet::allowed('mgr', |
my $allowed_to_edit = &Apache::lonnet::allowed('mgr', |
Line 355 sub handler {
|
Line 360 sub handler {
|
editwin.close(); |
editwin.close(); |
} |
} |
|
|
editwin = window.open($nothing,'CellEditWin','height=280,width=480,scrollbars=no,resizeable=yes,alwaysRaised=yes,dependent=yes',true); |
editwin = window.open($nothing,'CellEditWin','height=280,width=480,scrollbars=no,resizable=yes,alwaysRaised=yes,dependent=yes',true); |
editwin.document.write(edit_text); |
editwin.document.write(edit_text); |
} |
} |
//--> |
//--> |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href => $r->uri, |
|
title => 'Spreadsheet', |
|
text => 'Spreadsheet', |
|
faq => 134, |
|
bug => 'Spreadsheet'}); |
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet'). |
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet'). |
|
&Apache::lonhtmlcommon::breadcrumbs(undef,'Spreadsheet'). |
'<form action="'.$r->uri.'" name="sheet" method="post">'); |
'<form action="'.$r->uri.'" name="sheet" method="post">'); |
$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}). |
$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}). |
&hiddenfield('sdomain',$ENV{'form.sdomain'}). |
&hiddenfield('sdomain',$ENV{'form.sdomain'}). |
Line 467 END
|
Line 480 END
|
$r->rflush(); |
$r->rflush(); |
# |
# |
$r->print("<table><tr>"); |
$r->print("<table><tr>"); |
if ($sheettype eq 'classcalc') { |
$r->print('<td><input type="submit" value="'. |
$r->print('<td><input type="submit" value="'. |
&mt('Generate Spreadsheet').'" />'. |
&mt('Generate Spreadsheet').'" />'. |
'</td>'); |
'</td>'); |
|
} |
|
if ($allowed_to_view) { |
if ($allowed_to_view) { |
$r->print('<td>'. |
$r->print('<td>'. |
&Apache::loncommon::help_open_topic("Spreadsheet_About", |
&Apache::loncommon::help_open_topic("Spreadsheet_About", |