version 1.636, 2010/08/30 09:47:32
|
version 1.638, 2010/10/22 15:29:57
|
Line 3861 ENDPICK
|
Line 3861 ENDPICK
|
} |
} |
|
|
sub checkforfile_js { |
sub checkforfile_js { |
my $alertmsg = &mt('Please use the "Choose File" button to select a file from your local directory.'); |
my $alertmsg = &mt('Please use the browse button to select a file from your local directory.'); |
my $result = &Apache::lonhtmlcommon::scripttag(<<CSVFORMJS); |
my $result = &Apache::lonhtmlcommon::scripttag(<<CSVFORMJS); |
function checkUpload(formname) { |
function checkUpload(formname) { |
if (formname.upfile.value == "") { |
if (formname.upfile.value == "") { |
Line 4057 sub csvuploadassign {
|
Line 4057 sub csvuploadassign {
|
my $pcr=$entries{$fields{$dest}} / $wgt; |
my $pcr=$entries{$fields{$dest}} / $wgt; |
my $award=($pcr == 0) ? 'incorrect_by_override' |
my $award=($pcr == 0) ? 'incorrect_by_override' |
: 'correct_by_override'; |
: 'correct_by_override'; |
|
if ($pcr>1) { |
|
push(@skipped,&mt("[_1]: point value larger than weight","$username:$domain")); |
|
} |
$grades{"resource.$part.awarded"}=$pcr; |
$grades{"resource.$part.awarded"}=$pcr; |
$grades{"resource.$part.solved"}=$award; |
$grades{"resource.$part.solved"}=$award; |
$points{$part}=1; |
$points{$part}=1; |
Line 9182 sub handler {
|
Line 9185 sub handler {
|
&Apache::lonenc::check_decrypt(\$symb); |
&Apache::lonenc::check_decrypt(\$symb); |
|
|
$ssi_error = 0; |
$ssi_error = 0; |
if ($symb eq '' || $command eq '') { |
if (($symb eq '' || $command eq '') && ($env{'request.course.id'})) { |
# |
# |
# Not called from a resource |
# Not called from a resource, but inside a course |
# |
# |
&startpage($request,undef,[],1,1); |
&startpage($request,undef,[],1,1); |
&select_problem($request); |
&select_problem($request); |