version 1.325, 2014/09/14 15:21:43
|
version 1.333.2.1, 2015/03/19 08:40:38
|
Line 235 sub start_textfield {
|
Line 235 sub start_textfield {
|
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval); |
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval); |
$result=''; |
$result=''; |
my $tagident = 'HWVAL_' . $resid; |
my $tagident = 'HWVAL_' . $resid; |
|
my $itemid = 'HWVAL_'.$partid.'_'.$resid; |
if ($addchars) { |
if ($addchars) { |
$result.=&addchars($tagident, $addchars); |
$result.=&addchars($tagident, $addchars); |
} |
} |
Line 243 sub start_textfield {
|
Line 244 sub start_textfield {
|
'externalresponse')) { |
'externalresponse')) { |
$textareaclass = 'class="LC_richDetectHtml spellchecked"'; |
$textareaclass = 'class="LC_richDetectHtml spellchecked"'; |
} |
} |
$result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' . |
$result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$itemid.'" ' . |
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass |
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass |
.'>'. |
.'>'. |
&HTML::Entities::encode($oldresponse,'<>&"'); |
&HTML::Entities::encode($oldresponse,'<>&"'); |
Line 325 sub end_textfield {
|
Line 326 sub end_textfield {
|
my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval); |
my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval); |
$Apache::lonxml::evaluate++; |
$Apache::lonxml::evaluate++; |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
|
my $partid=$Apache::inputtags::part; |
my $resid = $Apache::inputtags::response[-1]; |
my $resid = $Apache::inputtags::response[-1]; |
my $tagident = 'HWVAL_' . $resid; |
my $itemid = 'HWVAL_' . $partid . '_' . $resid; |
my $result = "</textarea>"; |
my $result = "</textarea>"; |
$result .= &spellcheck_onblur($tagident, $spellcheck); |
$result .= &spellcheck_onblur($itemid, $spellcheck); |
return $result; |
return $result; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
Line 457 sub start_textline {
|
Line 459 sub start_textline {
|
$readonly=''; |
$readonly=''; |
} |
} |
my $name = 'HWVAL_'.$id; |
my $name = 'HWVAL_'.$id; |
|
my $itemid = 'HWVAL_'.$partid.'_'.$id; |
if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') { |
$name = "none"; |
$name = "none"; |
} |
} |
$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"' |
$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"' |
. ' type="text" ' |
. ' onfocus="javascript:disableAutoComplete(\''.$itemid.'\');"' |
. $readonly.' name="'. $name . '"' |
. ' type="text" '.$readonly.' name="'. $name . '"' |
. ' id="' . $name . '"' |
. ' id="' . $itemid . '"' |
. ' value="'. $oldresponse.'"' |
. ' value="'. $oldresponse.'"' |
. ' class="spellchecked" size="'.$size.'"'.$maxlength |
. ' class="LC_textline spellchecked" size="'.$size.'"'.$maxlength.' />'; |
. '/>'; |
|
|
|
$result .= &spellcheck_onblur($name, $spellcheck); |
$result .= &spellcheck_onblur($itemid, $spellcheck); |
} |
} |
if ($Apache::lonhomework::type eq 'exam' |
if ($Apache::lonhomework::type eq 'exam' |
&& &needs_exam_box($tagstack)) { |
&& &needs_exam_box($tagstack)) { |
Line 875 END
|
Line 877 END
|
sub valid_award { |
sub valid_award { |
my ($award) =@_; |
my ($award) =@_; |
foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR', |
foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR', |
'NO_RESPONSE', |
'NO_RESPONSE','WRONG_NUMBOXESCHECKED', |
'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR', |
'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR', |
'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE', |
'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE', |
'UNIT_FAIL', 'NO_UNIT', |
'UNIT_FAIL', 'NO_UNIT', |
Line 895 sub valid_award {
|
Line 897 sub valid_award {
|
|
|
{ |
{ |
my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE', |
my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE', |
'TOO_LONG', |
'WRONG_NUMCHECKEDBOXES','TOO_LONG', |
'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT', |
'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT', |
'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT', |
'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT', |
'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA', 'NOT_FUNCTION', |
'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA', 'NOT_FUNCTION', |
Line 1122 sub decideoutput {
|
Line 1124 sub decideoutput {
|
} |
} |
$css_class=$possible_class{'not_charged_try'}; |
$css_class=$possible_class{'not_charged_try'}; |
$button = 1; |
$button = 1; |
|
} elsif ($award eq 'WRONG_NUMBOXESCHECKED') { |
|
$message = &mt('Number of boxes checked outside permissible range (either too few or too many).'); |
|
if ($target ne 'tex') { |
|
$message .= &Apache::loncommon::help_open_topic('Wrong_Num_Boxes_Checked'); |
|
} |
|
$css_class=$possible_class{'not_charged_try'}; |
|
$button = 1; |
} elsif ($award eq 'ERROR') { |
} elsif ($award eq 'ERROR') { |
$message = &mt('An error occurred while grading your answer.'); |
$message = &mt('An error occurred while grading your answer.'); |
$css_class=$possible_class{'not_charged_try'}; |
$css_class=$possible_class{'not_charged_try'}; |
Line 1493 sub setgradedata {
|
Line 1502 sub setgradedata {
|
$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type; |
$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type; |
$Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate"); |
$Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate"); |
$Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries"); |
$Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries"); |
$Apache::lonhomework::results{"resourse.$id.version"} = &Apache::lonnet::usedversion(); |
$Apache::lonhomework::results{"resource.$id.version"} = &Apache::lonnet::usedversion(); |
|
$Apache::lonhomework::results{"resource.$id.maxtries"} = &Apache::lonnet::EXT("resource.$id.maxtries"); |
} |
} |
|
|
sub find_which_previous { |
sub find_which_previous { |
Line 1720 sub previous_tries {
|
Line 1730 sub previous_tries {
|
|
|
my $count; |
my $count; |
my %count_lookup; |
my %count_lookup; |
my $lastrndseed; |
my ($lastrndseed,$lasttype); |
my $numstamps = 0; |
my $numstamps = 0; |
|
|
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
my $prefix = $i.":resource.$id"; |
my $prefix = $i.":resource.$id"; |
my $is_anon; |
my $is_anon; |
|
my $curr_type = $Apache::lonhomework::history{"$prefix.type"}; |
if (defined($env{'form.grade_symb'})) { |
if (defined($env{'form.grade_symb'})) { |
if (($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurvey') || |
if (($curr_type eq 'anonsurvey') || ($curr_type eq 'anonsurveycred')) { |
($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurveycred')) { |
|
$is_anon = 1; |
$is_anon = 1; |
} |
} |
} |
} |
Line 1767 sub previous_tries {
|
Line 1777 sub previous_tries {
|
{$1 <strong>$txt_correct</strong>. $3}s; |
{$1 <strong>$txt_correct</strong>. $3}s; |
} |
} |
my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")"; |
my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")"; |
if (($curr_rndseed || $lastrndseed) && ($i > 1)) { |
if (($curr_rndseed ne '') && ($lastrndseed ne '')) { |
if ($curr_rndseed ne $lastrndseed) { |
if (($curr_rndseed ne $lastrndseed) && |
|
(($curr_type eq 'randomizetry') || ($lasttype eq 'randomizetry'))) { |
$trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>'; |
$trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>'; |
} |
} |
} |
} |
Line 1809 sub previous_tries {
|
Line 1820 sub previous_tries {
|
} |
} |
$output.=&Apache::loncommon::end_data_table_row()."\n"; |
$output.=&Apache::loncommon::end_data_table_row()."\n"; |
$lastrndseed = $curr_rndseed; |
$lastrndseed = $curr_rndseed; |
|
$lasttype = $curr_type; |
} |
} |
return if ($output eq ''); |
return if ($output eq ''); |
my $headers = '<tr>'. |
my $headers = '<tr>'. |