Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.271.2.1 and 1.333.2.7

version 1.271.2.1, 2010/11/09 17:41:47	version 1.333.2.7, 2019/08/11 17:16:25
Line 60 use LONCAPA;	Line 60 use LONCAPA;


BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::inputtags',('hiddenline','textfield','textline'));	&Apache::lonxml::register('Apache::inputtags',('hiddensubmission','hiddenline','textfield','textline'));
}	}

=pod	=pod
Line 125 sub initialize_inputtags {	Line 125 sub initialize_inputtags {
%Apache::inputtags::submission_display=();	%Apache::inputtags::submission_display=();
}	}

	#
	# provides the onblur binding for spellchecking. This could be an
	# empty string if spellchecking was not enabled.
	# Jquery selector binding is done rather than setting an onblur
	# attribute because we'll need to set the element's spellcheck language
	# option dynamically so we need $(this) to be defined.
	#
	# @param id - The element id to bind.
	# @param lang - Language in which spellchecking is desired.
	# if undef, nothing is generated.
	# @return string - onblur specification to do the requested spellchecking.
	#
	sub spellcheck_onblur {
	my ($id, $lang) = @_;
	my $result = '';
	if ($lang) {

	$result = <<JAVASCRIPT;
	<script type="text/javascript">
	\$('\#$id').blur(function() {
	doSpellcheck('\#$id', '$lang');
	});
	</script>

	JAVASCRIPT


	}
	return $result;
	}

sub check_for_duplicate_ids {	sub check_for_duplicate_ids {
my %check;	my %check;
foreach my $id (@Apache::inputtags::partlist,	foreach my $id (@Apache::inputtags::partlist,
Line 175 sub start_textfield {	Line 206 sub start_textfield {
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');	my ($oldresponse,$newvariation);
	if ((($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry') \|\|
	($Apache::lonhomework::type eq 'randomizetry')) &&
	($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
	if ($env{'form.'.$partid.'.rndseed'} ne
	$Apache::lonhomework::history{"resource.$partid.rndseed"}) {
	$newvariation = 1;
	}
	}
	unless ($newvariation) {
	if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) \|\|
	(($env{'form.grade_username'} eq $env{'user.name'}) &&
	($env{'form.grade_domain'} eq $env{'user.domain'}))) {
	$oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
	} elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') \|\|
	($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {
	$oldresponse = '* '.&mt('(only shown to submitter)').' *';
	} else {
	$oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
	}
	}
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);	my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
if ( $cols eq '') { $cols = 80; }	if ( $cols eq '') { $cols = 80; }
Line 183 sub start_textfield {	Line 234 sub start_textfield {
if ( $rows eq '') { $rows = 16; }	if ( $rows eq '') { $rows = 16; }
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 $itemid = 'HWVAL_'.$partid.'_'.$resid;
if ($addchars) {	if ($addchars) {
$result.=&addchars('HWVAL_'.$resid,$addchars);	$result.=&addchars($tagident, $addchars);
}	}
my $textareaclass = 'class="LC_richDetectHtml"';	my $textareaclass;
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.	unless (&Apache::londefdef::is_inside_of($tagstack,
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.	'externalresponse')) {
$oldresponse;	$textareaclass = 'class="LC_richDetectHtml spellchecked"';
	}
	$result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$itemid.'" ' .
	'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
	.'>'.
	&HTML::Entities::encode($oldresponse,'<>&"');
if ($oldresponse ne '') {	if ($oldresponse ne '') {

#get rid of any startup text if the user has already responded	#get rid of any startup text if the user has already responded
Line 201 sub start_textfield {	Line 259 sub start_textfield {
&& &Apache::londefdef::is_inside_of($tagstack,	&& &Apache::londefdef::is_inside_of($tagstack,
'essayresponse') ) {	'essayresponse') ) {
$result='<table class="LC_pastsubmission"><tr><td>'.	$result='<table class="LC_pastsubmission"><tr><td>'.
$oldresponse.'</td></tr></table>';	&HTML::Entities::encode($oldresponse,'"<>&').
	'</td></tr></table>';
}	}
#get rid of any startup text	#get rid of any startup text
&Apache::lonxml::get_all_text("/textfield",$parser,$style);	&Apache::lonxml::get_all_text("/textfield",$parser,$style);
Line 222 sub start_textfield {	Line 281 sub start_textfield {
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,	my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
$style);	$style);
$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);	$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
	my $spell_langs = &spelling_languages();
	$result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
	$spell_langs, $token);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
$safeeval,'rows','cols',	$safeeval,'rows','cols',
'addchars');	'addchars', 'spellcheck');
if ($constructtag) {	if ($constructtag) {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
} else {	} else {
Line 240 sub start_textfield {	Line 302 sub start_textfield {
for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}	for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
$result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';	$result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
} else {	} else {
my $TeXwidth=$width_of_box/80;	if ($env{'form.pdfFormFields'} eq 'yes') {
$result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';	my $fieldname = $env{'request.symb'}.
for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}	'&part_'. $Apache::inputtags::part.
$result.='}}}\vskip 2 mm ';	'&textresponse'.
	'&HWVAL_' . $Apache::inputtags::response['-1'];
	$result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85 .85 .85}]\\';
	} else {
	my $TeXwidth=$width_of_box/80;
	$result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
	for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
	$result.='}}}\vskip 2 mm ';
	}
}	}
}	}
return $result;	return $result;
Line 253 sub end_textfield {	Line 323 sub end_textfield {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {
	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') {
return "</textarea>";	my $partid=$Apache::inputtags::part;
	my $resid = $Apache::inputtags::response[-1];
	my $itemid = 'HWVAL_' . $partid . '_' . $resid;
	my $result = "</textarea>";
	$result .= &spellcheck_onblur($itemid, $spellcheck);
	return $result;
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
Line 319 sub start_textline {	Line 395 sub start_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result = "";	my $result = "";
my $input_id = &start_input($parstack,$safeeval);	my $input_id = &start_input($parstack,$safeeval);

	# The spellcheck attribute
	# 1. enables spellchecking.
	# 2. Provides the language code in which the spellchecking will be performed.

	my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval);
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
Line 331 sub start_textline {	Line 413 sub start_textline {
$maxlength = ' maxlength="'.$size.'"';	$maxlength = ' maxlength="'.$size.'"';
}	}
}	}
my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};	my ($oldresponse,$newvariation);
&Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));	if ((($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry') \|\|
	($Apache::lonhomework::type eq 'randomizetry')) &&
if (ref($oldresponse) eq 'ARRAY') {	($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
$oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];	if ($env{'form.'.$partid.'.rndseed'} ne
}	$Apache::lonhomework::history{"resource.$partid.rndseed"}) {
$oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');	$newvariation = 1;
$oldresponse =~ s/^\s+//;	}
$oldresponse =~ s/\s+$//;	}
$oldresponse =~ s/\s+/ /g;	unless ($newvariation) {
	if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) \|\|
	(($env{'form.grade_username'} eq $env{'user.name'}) &&
	($env{'form.grade_domain'} eq $env{'user.domain'}))) {
	$oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
	} elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') \|\|
	($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') \|\|
	($Apache::lonhomework::type eq 'anonsurvey') \|\|
	($Apache::lonhomework::type eq 'anonsurveycred')) {
	$oldresponse = '* '.&mt('(only shown to submitter)').' *';
	} else {
	$oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
	}
	&Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));
	if (ref($oldresponse) eq 'ARRAY') {
	$oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
	}
	$oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');
	$oldresponse =~ s/^\s+//;
	$oldresponse =~ s/\s+$//;
	$oldresponse =~ s/\s+/ /g;
	}
if ($Apache::lonhomework::type ne 'exam') {	if ($Apache::lonhomework::type ne 'exam') {
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);	my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
$result='';	$result='';
Line 356 sub start_textline {	Line 459 sub start_textline {
$readonly='';	$readonly='';
}	}
my $name = 'HWVAL_'.$id;	my $name = 'HWVAL_'.$id;
	my $itemid = 'HWVAL_'.$partid.'_'.$id;
	my $input_tag_id = $itemid.'_'.$input_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.'\');" type="text" '.$readonly.' name="'.$name.'" value="'.	$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"'
$oldresponse.'" size="'.$size.'"'.$maxlength.' />';	. ' onfocus="javascript:disableAutoComplete(\''.$input_tag_id.'\');"'
	. ' type="text" '.$readonly.' name="'. $name . '"'
	. ' id="' . $input_tag_id . '"'
	. ' value="'. $oldresponse.'"'
	. ' class="LC_textline spellchecked" size="'.$size.'"'.$maxlength.' />';

	$result .= &spellcheck_onblur($itemid, $spellcheck);
	if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&
	(($tagstack->[-2] eq 'formularesponse') \|\| ($tagstack->[-2] eq 'mathresponse')) &&
	(&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {
	$result.=&edit_mathresponse_button($input_tag_id);
	}
}	}
if ($Apache::lonhomework::type eq 'exam'	if ($Apache::lonhomework::type eq 'exam'
&& &needs_exam_box($tagstack)) {	&& &needs_exam_box($tagstack)) {
Line 379 sub start_textline {	Line 495 sub start_textline {
'addchars',$token,10);	'addchars',$token,10);
$result.=&Apache::edit::select_arg('Readonly:','readonly',	$result.=&Apache::edit::select_arg('Readonly:','readonly',
['no','yes'],$token);	['no','yes'],$token);
	my $spell_langs = &spelling_languages();
	$result.=&Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
	$spell_langs, $token);
$result.=&Apache::edit::end_row();	$result.=&Apache::edit::end_row();
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
$safeeval,'size',	$safeeval,'size',
'addchars','readonly');	'addchars','readonly', 'spellcheck');
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
} elsif ($target eq 'tex'	} elsif ($target eq 'tex'
&& $Apache::lonhomework::type ne 'exam') {	&& $Apache::lonhomework::type ne 'exam') {
Line 457 sub end_hiddenline {	Line 576 sub end_hiddenline {
return "";	return "";
}	}


	sub start_hiddensubmission {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	my $result = "";
	my $input_id = &start_input($parstack,$safeeval);
	if ($target eq 'web') {
	$Apache::lonxml::evaluate--;
	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
	my $partid=$Apache::inputtags::part;
	my $id=$Apache::inputtags::response[-1];
	if ($Apache::lonhomework::type ne 'exam') {
	my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
	$value = &HTML::Entities::encode($value,'<>&"');
	$result= '<input type="hidden" name="HWVAL_'.$id.'" value="'.$value.'" />';
	}
	}
	} elsif ($target eq 'edit') {
	$result=&Apache::edit::tag_start($target,$token);
	$result.=&Apache::edit::text_arg('Value:','value',$token,'15');
	$result.=&Apache::edit::end_row();
	$result.=&Apache::edit::end_table();
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
	$safeeval,'value');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
	}

	if ( ($target eq 'web' \|\| $target eq 'tex')
	&& $Apache::lonhomework::type eq 'exam'
	&& &needs_exam_box($tagstack)) {
	$result.=&exam_box($target);
	}
	return $result;
	}

	sub end_hiddensubmission {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	if ($target eq 'web') { $Apache::lonxml::evaluate++; }
	elsif ($target eq 'edit') { return ('','no'); }
	&end_input();
	return "";
	}

=pod	=pod

=item file_selector()	=item file_selector()
Line 498 sub file_selector {	Line 660 sub file_selector {
&mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';	&mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';
}	}
if ($maxfilesize) {	if ($maxfilesize) {
$constraints .= &mt('Combined size of all files not to exceed: [_1] MB[_2].',	$constraints .= &mt('Combined size of all files not to exceed: [_1] MB.',
'<b>'.$maxfilesize.'</b>').'<br />';	'<b>'.$maxfilesize.'</b>').'<br />';
}	}
if ($constraints) {	if ($constraints) {
$result .= $constraints.'<br />';	$result .= $constraints.'<br />';
}	}
if ($which eq 'uploadonly' \|\| $which eq 'both') {	if ($which eq 'uploadonly' \|\| $which eq 'both') {
$result.=&mt('Submit a file: (only one file per submission)').	my $free_space = $maxfilesize * 1048576;
' <br /><input type="file" size="50" name="HWFILE'.	$result .= &mt('Submit a file: (only one file per submission)').
$jspart.'_'.$id.'" /><br />';	' <br /><input type="file" size="50" name="HWFILE'.$jspart.'_'.$id.
	'" id="HWFILE'.$jspart.'_'.$id.'" class="LC_flUpload LC_hwkfile" />'.
	'<input type="hidden" id="LC_free_space_'.$jspart.'_'.$id.'"'.
	' value="'.$free_space.'" /><br />';
}	}
if ( $which eq 'both') {	if ( $which eq 'both') {
$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
}	}
if ($which eq 'portfolioonly' \|\| $which eq 'both') {	if ($which eq 'portfolioonly' \|\| $which eq 'both') {
$result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname='.$env{'form.request.prefix'}.'HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.	my $symb = $env{'request.symb'};
	(undef,undef,my $res)=&Apache::lonnet::decode_symb($symb);
	my $showsymb;
	# If resource is a .task and URL is unencrypted, include symb in query string
	# for url opened in portfolio file selection window. Can be used to override
	# blocking of portfolio access resulting from an exam event in a different course.
	if ($res =~ /\.task$/i) {
	my $encsymb = &Apache::lonenc::check_encrypt($symb);
	if ($symb eq $encsymb) {
	$showsymb = $symb;
	}
	}
	$result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname='.$env{'form.request.prefix'}.'HWPORT'.$jspart.'_'.$id.'&symb='.$showsymb.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
&mt('Select Portfolio Files: (one or more files per submission)').'</a><br />'.	&mt('Select Portfolio Files: (one or more files per submission)').'</a><br />'.
'<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.	'<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
'<br />';	'<br />';

}	}
$result.=&Apache::lonhtmlcommon::row_closure(1);	$result.=&Apache::lonhtmlcommon::row_closure(1);
return $result;	return $result;
Line 530 sub current_file_submissions {	Line 706 sub current_file_submissions {
my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};	my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};
my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};	my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};
return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));	return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));
my $header = &Apache::loncommon::start_data_table().	my $header = &portpath_popup_js().
	&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row();	&Apache::loncommon::start_data_table_header_row();
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
$header .= '<th>'.&mt('Delete?').'</th>';	$header .= '<th>'.&mt('Delete?').'</th>';
Line 574 sub current_file_submissions {	Line 751 sub current_file_submissions {
}	}
}	}
}	}
	my $num = 0;
foreach my $name (sort(keys(%okfiles))) {	foreach my $name (sort(keys(%okfiles))) {
if (ref($okfiles{$name}) eq 'ARRAY') {	if (ref($okfiles{$name}) eq 'ARRAY') {
my $num = 0;
foreach my $url (@{$okfiles{$name}}) {	foreach my $url (@{$okfiles{$name}}) {
if (ref($rows{$url}) eq 'HASH') {	if (ref($rows{$url}) eq 'HASH') {
my $link = $rows{$url}{link};	my $link = $rows{$url}{link};
Line 596 sub current_file_submissions {	Line 773 sub current_file_submissions {
' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";	' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";
$num ++;	$num ++;
}	}
my $showname = $rows{$url}{path}.$name;	my $pathid = 'HWFILE'.$jspart.'_'.$id.'_'.$num.'_path';
	my $pathidtext = $pathid.'text';
	my ($showname,$showpath);
if ($legacy{$url}) {	if ($legacy{$url}) {
$showname = $name.' '.&mt('not in portfolio');	$showname = $name.' '.&mt('not in portfolio');
	} else {
	$showname = $name;
	$showpath = '<br />'.
	'<span id="'.$pathidtext.'" class="LC_cusr_subheading">'.
	'<a href="javascript:showPortPath('."'$pathid','$pathidtext'".');" '.
	'class="LC_menubuttons_link">'.
	&mt('(Show path)').'</a></span>'.
	'<div id="'.$pathid.'" class="LC_dccid">'.$rows{$url}{path}.$name.
	'</div>';
}	}
$result .=	$result .=
'<td><a href="'.$link.'"><img src="'.$icon.	'<td><a href="'.$link.'"><img src="'.$icon.
'" border="0" />'.$showname.'</a></td>'."\n".	'" border="0" alt="" />'.$showname.'</a>'.$showpath.'</td>'."\n".
'<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".	'<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".
'<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".	'<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
Line 612 sub current_file_submissions {	Line 800 sub current_file_submissions {
}	}
}	}
if ($header_shown) {	if ($header_shown) {
$result .= &Apache::loncommon::end_data_table().	$result .= &Apache::loncommon::end_data_table();
'<br /><span class="LC_warning">'.	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
&mt('Items checked for deletion will not be included amongst the files evaluated when your submission is graded.').'</span>';	$result .= '<br /><span class="LC_warning">'.
	&mt('Exclude existing file(s) from grading by checking the "Delete?" checkbox(es) and clicking "Submit Answer"').'</span>';
	}
}	}
if (@bad_file_list) {	if (@bad_file_list) {
my $bad_files = '<span class="LC_filename">'.	my $bad_files = '<span class="LC_filename">'.
Line 655 sub current_file_info {	Line 845 sub current_file_info {
return ($status,\%info,$error);	return ($status,\%info,$error);
}	}

	sub portpath_popup_js {
	my %lt = &Apache::lonlocal::texthash(
	show => '(Show path)',
	hide => '(Hide)',
	);
	return <<"END";
	<script type="text/javascript">
	// <![CDATA[

	function showPortPath(id,idtext) {
	document.getElementById(id).style.display='block';
	document.getElementById(id).style.textAlign='left';
	document.getElementById(id).style.textFace='normal';
	if (document.getElementById(idtext)) {
	document.getElementById(idtext).innerHTML ='<a href="javascript:hidePortPath(\\''+id+'\\',\\''+idtext+'\\'); '+
	'"class="LC_menubuttons_link">$lt{'hide'}</a> ';
	}
	return;
	}

	function hidePortPath(id,idtext) {
	if (document.getElementById(id)) {
	document.getElementById(id).style.display='none';
	}
	if (document.getElementById(idtext)) {
	document.getElementById(idtext).innerHTML ='<a href="javascript:showPortPath(\\''+id+'\\',\\''+idtext+'\\');" '+
	'class="LC_menubuttons_link">$lt{'show'}</a>';
	}
	return;
	}

	// ]]>
	</script>

	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',
'UNIT_NOTNEEDED', 'WANTED_NUMERIC',	'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
'BAD_FORMULA', 'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT',	'BAD_FORMULA', 'NOT_FUNCTION', 'WRONG_FORMAT',
	'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT',
'MISORDERED_RANK', 'INVALID_FILETYPE',	'MISORDERED_RANK', 'INVALID_FILETYPE',
'EXCESS_FILESIZE', 'FILENAME_INUSE',	'EXCESS_FILESIZE', 'FILENAME_INUSE',
'DRAFT', 'SUBMITTED', 'SUBMITTED_CREDIT',	'DRAFT', 'SUBMITTED', 'SUBMITTED_CREDIT',
Line 677 sub valid_award {	Line 905 sub valid_award {

{	{
my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',	my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
'TOO_LONG',	'WRONG_NUMBOXESCHECKED','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', 'INTERNAL_ERROR',	'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA', 'NOT_FUNCTION',
	'WRONG_FORMAT', 'INTERNAL_ERROR',
'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',	'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',
'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'FILENAME_INUSE',	'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'FILENAME_INUSE',
'DRAFT', 'SUBMITTED',	'DRAFT', 'SUBMITTED',
Line 766 sub finalizeawards {	Line 995 sub finalizeawards {
$j++;	$j++;
}	}

	# if at least one response item is set to include lenient grading
	# and that item is partially correct then overall award reflects
	# that, unless an award for one of the other response items does
	# not fall within the basic awards for correct or incorrect.
	if ($Apache::inputtags::leniency) {
	if (($$awardref[$which] eq 'INCORRECT')
	&& (grep { $_ eq 'EXACT_ANS' \|\|
	$_ eq 'APPROX_ANS' \|\|
	$_ eq 'ASSIGNED_SCORE' } (@$awardref))
	&& !((grep { $_ ne 'INCORRECT' &&
	$_ ne 'EXACT_ANS' &&
	$_ ne 'APPROX_ANS' &&
	$_ ne 'ASSIGNED_SCORE' } (@$awardref)))) {
	return ('ASSIGNED_SCORE');
	}
	}

if (defined($which)) {	if (defined($which)) {
if (ref($nameref)) {	if (ref($nameref)) {
return ($$awardref[$which],$$msgref[$which],$$nameref[$which]);	return ($$awardref[$which],$$msgref[$which],$$nameref[$which]);
Line 778 sub finalizeawards {	Line 1024 sub finalizeawards {
}	}

sub decideoutput {	sub decideoutput {
my ($award,$awarded,$awardmsg,$solved,$previous,$target)=@_;	my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect,$tdclass)=@_;

my $message='';	my $message='';
my $button=0;	my $button=0;
Line 796 sub decideoutput {	Line 1042 sub decideoutput {
my $part = $Apache::inputtags::part;	my $part = $Apache::inputtags::part;
my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");	my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");
my $handgrade = ('yes' eq lc($tohandgrade));	my $handgrade = ('yes' eq lc($tohandgrade));
	#
	# Should "Computer's Answer" be displayed?
	# Should not be displayed if still answerable,
	# if the problem is handgraded,
	# or if the problem does not give a correct answer
	#

my $computer = ($handgrade)? ''	my $computer = ($handgrade \|\| $nocorrect)? ''
: " ".&mt("Computer's answer now shown above.");	: &mt("Computer's answer now shown above.");
&Apache::lonxml::debug("handgrade has :$handgrade:");	&Apache::lonxml::debug("handgrade has :$handgrade:");

if ($previous) { $previousmsg=&mt('You have entered that answer before'); }	if ($previous) { $previousmsg=&mt('You have entered that answer before'); }
Line 813 sub decideoutput {	Line 1065 sub decideoutput {
$message=&mt('Incorrect.');	$message=&mt('Incorrect.');
$css_class=$possible_class{'charged_try'};	$css_class=$possible_class{'charged_try'};
}	}
if ($env{'request.filename'} =~	if ($handgrade \|\|
m\|/res/lib/templates/examupload.problem$\|) {	($env{'request.filename'}=~/\/res\/lib\/templates\/(examupload\|DropBox).problem$/)) {
$message = &mt("A score has been assigned.");	$message = &mt("A score has been assigned.");
$added_computer_text=1;	$added_computer_text=1;
} else {	} else {
Line 822 sub decideoutput {	Line 1074 sub decideoutput {
$message = '\textbf{'.$message.'}';	$message = '\textbf{'.$message.'}';
} else {	} else {
$message = "<b>".$message."</b>";	$message = "<b>".$message."</b>";
$message.= $computer;	if ($computer) {
	$message = "$computer $message";
	}
}	}
$added_computer_text=1;	$added_computer_text=1;
if ($awarded > 0) {	if ($awarded > 0) {
Line 839 sub decideoutput {	Line 1093 sub decideoutput {
}	}
}	}
}	}
$button=0;	if ($awarded >= 1) {
	$button=0;
	} elsif (&Apache::lonnet::EXT("resource.$part.retrypartial") !~/^1\|on\|yes$/i) {
	$button=0;
	} else {
	$button=1;
	}
$previousmsg='';	$previousmsg='';
} elsif ($solved =~ /^excused/) {	} elsif ($solved =~ /^excused/) {
if ($target eq 'tex') {	if ($target eq 'tex') {
Line 860 sub decideoutput {	Line 1120 sub decideoutput {
$message = '\textbf{'.&mt('You are correct.').'}';	$message = '\textbf{'.&mt('You are correct.').'}';
} else {	} else {
$message = "<b>".&mt('You are correct.')."</b>";	$message = "<b>".&mt('You are correct.')."</b>";
$message.= $computer;	if ($computer) {
	$message = "$computer $message";
	}
}	}
$added_computer_text=1;	$added_computer_text=1;
if ($awarded > 0	if ($awarded > 0
Line 891 sub decideoutput {	Line 1153 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 911 sub decideoutput {	Line 1180 sub decideoutput {
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'EXCESS_FILESIZE') {	} elsif ($award eq 'EXCESS_FILESIZE') {
$message = &mt('Submission won\'t be graded. The combined size of submitted files exceeded the amount allowed.');	$message = &mt("Submission won't be graded. The combined size of submitted files exceeded the amount allowed.");
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'FILENAME_INUSE') {	} elsif ($award eq 'FILENAME_INUSE') {
Line 921 sub decideoutput {	Line 1190 sub decideoutput {
} else {	} else {
$message .= '<br />';	$message .= '<br />';
}	}
$message .= &mt('Please use a different file name.');	$message .= &mt('Please use a different filename.');
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'INVALID_FILETYPE') {	} elsif ($award eq 'INVALID_FILETYPE') {
Line 967 sub decideoutput {	Line 1236 sub decideoutput {
if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Formula_Answers')};	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Formula_Answers')};
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'INTERNAL_ERROR') {	} elsif ($award eq 'NOT_FUNCTION') {
	$message = &mt("Not a function").'.';
	$css_class=$possible_class{'not_charged_try'};
	$button=1;
	} elsif ($award eq 'WRONG_FORMAT') {
	$message = &mt("Wrong format").'.';
	$css_class=$possible_class{'not_charged_try'};
	$button=1;
	} elsif ($award eq 'INTERNAL_ERROR') {
$message = &mt("An internal error occurred while processing your answer. Please try again later.");	$message = &mt("An internal error occurred while processing your answer. Please try again later.");
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
$button=1;	$button=1;
Line 990 sub decideoutput {	Line 1267 sub decideoutput {
} elsif ($award eq 'ANONYMOUS_CREDIT') {	} elsif ($award eq 'ANONYMOUS_CREDIT') {
$message = &mt("Your anonymous submission has been recorded, and credit awarded.");	$message = &mt("Your anonymous submission has been recorded, and credit awarded.");
$css_class=$possible_class{'correct'};	$css_class=$possible_class{'correct'};
	$button=1;
} elsif ($award eq 'DRAFT') {	} elsif ($award eq 'DRAFT') {
$message = &mt("Copy saved but not submitted.");	$message = &mt("Copy saved but not submitted.");
$css_class=$possible_class{'not_charged_try'};	$css_class=$possible_class{'not_charged_try'};
Line 1040 sub decideoutput {	Line 1318 sub decideoutput {
if (&Apache::lonhomework::hide_problem_status()	if (&Apache::lonhomework::hide_problem_status()
&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'	&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'
&& &hide_award($award)) {	&& &hide_award($award)) {
$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");	$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
	my @interval= &Apache::lonnet::EXT("resource.$part.interval");
	if ($interval[0] =~ /\d+/) {
	my $first_access=&Apache::lonnet::get_first_access($interval[1]);
	if (defined($first_access)) {
	my $due_date= &Apache::lonnet::EXT("resource.$part.duedate");
	unless (($due_date) && ($due_date < $first_access + $interval[0])) {
	$message = &mt("Answer Submitted: Your final submission will be graded when the time limit is reached.");
	}
	}
	}
$css_class=$possible_class{'no_grade'};	$css_class=$possible_class{'no_grade'};
$button=1;	$button=1;
}	}
if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&	if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&
!$added_computer_text && $target ne 'tex') {	!$added_computer_text && $target ne 'tex') {
$message.= $computer;	if ($computer) {
	$message = "$computer $message";
	}
$added_computer_text=1;	$added_computer_text=1;
}	}
if ($Apache::lonhomework::type eq 'practice') {	if ($Apache::lonhomework::type eq 'practice') {
Line 1057 sub decideoutput {	Line 1347 sub decideoutput {
}	}
$message.=&mt('Submissions to practice problems are not permanently recorded.');	$message.=&mt('Submissions to practice problems are not permanently recorded.');
}	}

return ($button,$css_class,$message,$previousmsg);	return ($button,$css_class,$message,$previousmsg);
}	}

Line 1110 sub setgradedata {	Line 1399 sub setgradedata {
$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {	$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;	$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;
return '';	return '';
} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} !~	} elsif ( $Apache::lonhomework::history{"resource.$id.awarded"} < 1
/^correct/
\|\| $Apache::lonhomework::scantronmode	\|\| $Apache::lonhomework::scantronmode
\|\| &Apache::lonhomework::hide_problem_status() ) {	\|\| &Apache::lonhomework::hide_problem_status() ) {
# the student doesn't already have it correct,	# the student doesn't already have it correct,
Line 1232 sub setgradedata {	Line 1520 sub setgradedata {
$Apache::lonhomework::results{"resource.$id.previous"} = '0';	$Apache::lonhomework::results{"resource.$id.previous"} = '0';
}	}
}	}
} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} =~	} elsif ( $Apache::lonhomework::history{"resource.$id.awarded"} == 1 ) {
/^correct/ ) {
#delete all data as they student already has it correct	#delete all data as they student already has it correct
&removealldata($id);	&removealldata($id);
#and since they didn't do anything we were never here	#and since they didn't do anything we were never here
Line 1243 sub setgradedata {	Line 1530 sub setgradedata {
if ($award eq 'SUBMITTED') {	if ($award eq 'SUBMITTED') {
&Apache::response::add_to_gradingqueue();	&Apache::response::add_to_gradingqueue();
}	}
if (($Apache::lonhomework::type eq 'anonsurvey') \|\|	$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;
($Apache::lonhomework::type eq 'anonsurveycred')) {	$Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate");
$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;	$Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");
}	$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 1326 sub grade {	Line 1614 sub grade {
}	}

sub get_grade_messages {	sub get_grade_messages {
my ($id,$prefix,$target,$status) = @_;	my ($id,$prefix,$target,$status,$nocorrect,$tdclass) = @_;
	# nocorrect suppresses "Computer's answer now shown above"
my ($message,$latemessage,$trystr,$previousmsg);	my ($message,$latemessage,$trystr,$previousmsg);
my $showbutton = 1;	my $showbutton = 1;

Line 1341 sub get_grade_messages {	Line 1629 sub get_grade_messages {
&Apache::lonxml::debug('Getting message');	&Apache::lonxml::debug('Getting message');
($showbutton,my $css_class,$message,$previousmsg) =	($showbutton,my $css_class,$message,$previousmsg) =
&decideoutput($award,$awarded,$awardmsg,$solved,$previous,	&decideoutput($award,$awarded,$awardmsg,$solved,$previous,
$target);	$target,(($status eq 'CAN_ANSWER') \|\| $nocorrect),$tdclass);
if ($target eq 'tex') {	if ($target eq 'tex') {
$message='\vskip 2 mm '.$message.' ';	$message='\vskip 2 mm '.$message.' ';
} else {	} else {
$message="<td class=\"$css_class\">$message</td>";	$message="<td class=\"$tdclass $css_class\">$message</td>";
if ($previousmsg) {	if ($previousmsg) {
$previousmsg="<td class=\"LC_answer_previous\">$previousmsg</td>";	$previousmsg="<td class=\"$tdclass LC_answer_previous\">$previousmsg</td>";
}	}
}	}
}	}
Line 1359 sub get_grade_messages {	Line 1647 sub get_grade_messages {
if ( $tries eq '' ) { $tries = '0'; }	if ( $tries eq '' ) { $tries = '0'; }
if ( $maxtries eq '' ) { $maxtries = '2'; }	if ( $maxtries eq '' ) { $maxtries = '2'; }
if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; }	if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; }
my $tries_text= &get_tries_text();;	my $tries_text= &get_tries_text();
if ($showbutton) {	if ($showbutton) {
if ($target eq 'tex') {	if ($target eq 'tex') {
if ($env{'request.state'} ne "construct"	if ($env{'request.state'} ne "construct"
&& $Apache::lonhomework::type ne 'exam'	&& $Apache::lonhomework::type ne 'exam'
&& $env{'form.suppress_tries'} ne 'yes') {	&& $env{'form.suppress_tries'} ne 'yes') {
$trystr = ' {\vskip 1 mm \small \textit{'.$tries_text.'} '.	$trystr ='{\vskip 1 mm \small '
$tries.'/'.$maxtries.'} \vskip 2 mm ';	.&mt('[_1]'.$tries_text.'[_2] [_3]'
	,'\textit{','}',$tries.'/'.$maxtries )
	.'} \vskip 2 mm';
} else {	} else {
$trystr = '\vskip 0 mm ';	$trystr = '\vskip 0 mm ';
}	}
} else {	} else {
$trystr = '<td><span class="LC_nobreak">'.&mt($tries_text)." $tries";	my $trial =$tries;
if ($Apache::lonhomework::parsing_a_task) {	if ($Apache::lonhomework::parsing_a_task) {
} elsif($env{'request.state'} ne 'construct') {	} elsif($env{'request.state'} ne 'construct') {
$trystr.="/$maxtries";	$trial.="/".&Apache::lonhtmlcommon::direct_parm_link($maxtries,$env{'request.symb'},'maxtries',$id,$target);
} else {	} else {
if (defined($Apache::inputtags::params{'maxtries'})) {	if (defined($Apache::inputtags::params{'maxtries'})) {
$trystr.="/".$Apache::inputtags::params{'maxtries'};	$trial.="/".$Apache::inputtags::params{'maxtries'};
}	}
}	}
$trystr.="</span></td>";	$trystr = '<td class="'.$tdclass.'"><span class="LC_nobreak">'.&mt($tries_text.' [_1]',$trial).'</span></td>';
}	}
}	}

Line 1388 sub get_grade_messages {	Line 1678 sub get_grade_messages {
#last submissions was after due date	#last submissions was after due date
$latemessage=&mt(' The last submission was after the Due Date ');;	$latemessage=&mt(' The last submission was after the Due Date ');;
if ($target eq 'web') {	if ($target eq 'web') {
$latemessage='<td class="LC_answer_late">'.$latemessage.'</td>';	$latemessage='<td class="'.$tdclass.' LC_answer_late">'.$latemessage.'</td>';
}	}
}	}
return ($previousmsg,$latemessage,$message,$trystr,$showbutton);	return ($previousmsg,$latemessage,$message,$trystr,$showbutton);
Line 1402 sub gradestatus {	Line 1692 sub gradestatus {
my $trystr='';	my $trystr='';
my $button='';	my $button='';
my $previousmsg='';	my $previousmsg='';
	my $tdclass='';

my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
&Apache::lonxml::debug("gradestatus has :$status:");	&Apache::lonxml::debug("gradestatus has :$status:");
Line 1409 sub gradestatus {	Line 1700 sub gradestatus {
&& $status ne 'UNAVAILABLE'	&& $status ne 'UNAVAILABLE'
&& $status ne 'INVALID_ACCESS'	&& $status ne 'INVALID_ACCESS'
&& $status ne 'NEEDS_CHECKIN'	&& $status ne 'NEEDS_CHECKIN'
&& $status ne 'NOT_IN_A_SLOT') {	&& $status ne 'NOT_IN_A_SLOT'
	&& $status ne 'RESERVABLE'
	&& $status ne 'RESERVABLE_LATER'
	&& $status ne 'NOTRESERVABLE') {

	if ($status eq 'SHOW_ANSWER') {
	$showbutton = 0;
	}

	unless (($status eq 'SHOW_ANSWER') \|\| ($status eq 'CANNOT_ANSWER')) {
	if ($target ne 'tex') {
	$tdclass = 'LC_status_submit_'.$id;
	}
	}

($previousmsg,$latemessage,$message,$trystr) =	($previousmsg,$latemessage,$message,$trystr) =
&get_grade_messages($id,"resource.$id",$target,$status,	&get_grade_messages($id,"resource.$id",$target,$status,
$showbutton);	$showbutton,$tdclass);
if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {	if ($status eq 'CANNOT_ANSWER') {
$showbutton = 0;	$showbutton = 0;
}	}
if ( $status eq 'SHOW_ANSWER') {	if ( $status eq 'SHOW_ANSWER') {
undef($previousmsg);	undef($previousmsg);
}	}
if ( $showbutton ) {	if ( $showbutton ) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$button =	$button =
'<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';"	'<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';"
type="submit" name="submit_'.$id.'"	type="submit" name="submit_'.$id.'" id="submit_'.$id.'" class="LC_hwk_submit"
value="'.&mt('Submit Answer').'" />';	value="'.&mt('Submit Answer').'" /> '.
	'<div id="msg_submit_'.$id.'" style="display:none">'.
	&mt('Processing your submission ...').'</div>';
}	}
}	}

Line 1440 sub gradestatus {	Line 1746 sub gradestatus {
$output =	$output =
'<table><tr><td>'.$button.'</td>'.$output;	'<table><tr><td>'.$button.'</td>'.$output;
if (!$no_previous) {	if (!$no_previous) {
$output.='<td>'.&previous_tries($id,$target).'</td>';	$output.='<td class="'.$tdclass.'">'.&previous_tries($id,$target).'</td>';
}	}
$output.= '</tr></table>';	$output.= '</tr></table>';
return $output;	return $output;
Line 1455 sub previous_tries {	Line 1761 sub previous_tries {

my $count;	my $count;
my %count_lookup;	my %count_lookup;
	my ($lastrndseed,$lasttype);
	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;
}	}
}	}
next if (!exists($Apache::lonhomework::history{"$prefix.award"}));	next if (!exists($Apache::lonhomework::history{"$prefix.award"}));
$count++;	$count++;
$count_lookup{$i} = $count;	$count_lookup{$i} = $count;
	my $curr_rndseed = $Apache::lonhomework::history{"$prefix.rndseed"};
my ($previousmsg,$latemessage,$message,$trystr);	my ($previousmsg,$latemessage,$message,$trystr);

($previousmsg,$latemessage,$message,$trystr) =	($previousmsg,$latemessage,$message,$trystr) =
Line 1486 sub previous_tries {	Line 1794 sub previous_tries {
) {	) {

my $txt_correct = &mt('Correct');	my $txt_correct = &mt('Correct');
	my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
	if ($awarded < 1 && $awarded > 0) {
	$txt_correct=&mt('Partially Correct');
	} elsif ($awarded < 1) {
	if ($awarded eq '') {
	$txt_correct='';
	} else {
	$txt_correct=&mt('Incorrect');
	}
	}
$message =~ s{(<td.?>)(.?)(</td>)}	$message =~ s{(<td.?>)(.?)(</td>)}
{$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 ne '') && ($lastrndseed ne '')) {
	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>';
	}
	}
$message =~ s{(</td>)}{ $trystr $1};	$message =~ s{(</td>)}{ $trystr $1};
}	}
my ($class) = ($message =~ m{<td.class="([^"])"}); #"	my ($class) = ($message =~ m{<td.class="([^"])"}); #"
$message =~ s{(<td.*?>)}{<td>};	$message =~ s{(<td.*?>)}{<td>};


$output.='<tr class="'.$class.'">';	$output .= '<tr class="'.$class.'">'.
$output.='<td align="center">'.$count.'</td>';	'<td align="center">'.$count.'</td>'.$message;
$output.=$message;	if ((!$is_anon) && ($Apache::lonhomework::history{"$prefix.tries"}) &&
	($Apache::lonhomework::history{"$prefix.award"} ne 'ASSIGNED_SCORE') &&
	($Apache::lonhomework::history{$i.':timestamp'})) {
	$output .= '<td>'.&Apache::lonlocal::locallocaltime(
	$Apache::lonhomework::history{$i.':timestamp'}).'</td>';
	$numstamps ++;
	} else {
	$output .= '<td></td>';
	}
foreach my $resid (@Apache::inputtags::response) {	foreach my $resid (@Apache::inputtags::response) {
my $prefix = $prefix.".$resid";	my $prefix = $prefix.".$resid";
if (exists($Apache::lonhomework::history{"$prefix.submission"})) {	if (exists($Apache::lonhomework::history{"$prefix.submission"})) {
Line 1519 sub previous_tries {	Line 1850 sub previous_tries {
}	}
}	}
$output.=&Apache::loncommon::end_data_table_row()."\n";	$output.=&Apache::loncommon::end_data_table_row()."\n";
	$lastrndseed = $curr_rndseed;
	$lasttype = $curr_type;
}	}
return if ($output eq '');	return if ($output eq '');
my $headers =	my $headers = '<tr>'.
'<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').	'<th>'.&mt('Submission #').'</th>'.
'</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.	'<th>'.&mt('Try').'</th><th>';
&mt('Submitted Answer').'</th>';	if ($numstamps) {
	$headers .= &mt('When');
	}
	$headers .= '</th>';
	my $colspan = scalar(@Apache::inputtags::response);
	if ($colspan > 1) {
	$headers .= '<th colspan="'.$colspan.'">';
	} else {
	$headers .= '<th>';
	}
	$headers .= &mt('Submitted Answer').'</th></tr>';
$output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';	$output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
#return $output;
$output = &Apache::loncommon::js_ready($output);
$output.='<br /><form action=""><center><input type="button" name="close" value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>';

my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
my $tries_text = &get_tries_text('link');	my $tries_text = &get_tries_text('link');
my $start_page =
&Apache::loncommon::start_page($tries_text, undef,
{'only_body' => 1,
'bgcolor' => '#FFFFFF',
'js_ready' => 1,
'inherit_jsmath' => 1, });
my $end_page =
&Apache::loncommon::end_page({'js_ready' => 1,});
my $prefix = $env{'form.request.prefix'};	my $prefix = $env{'form.request.prefix'};
$prefix =~ tr{.}{_};	$prefix =~ tr{.}{_};
my $function_name = "LONCAPA_previous_tries_".$prefix.	my $function_name = 'LONCAPA_previous_tries_'.$prefix;
$Apache::lonxml::curdepth.'_'.$env{'form.counter'};	if (($env{'request.state'} eq 'construct') \|\| ($id =~ /[._]\|[^\w\s\-]/)) {
my $result ="<script type=\"text/javascript\">	$function_name .= $Apache::lonxml::curdepth;
// <![CDATA[	} else {
function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()}	$function_name .= &js_escape($id);
// ]]>	}
</script><a href=\"javascript:$function_name();void(0);\">".&mt($tries_text)."</a><br />";	$function_name .= '_'.$Apache::lonxml::counter;
#use Data::Dumper;	my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";
#&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display));
return $result;	return $result;
}	}

Line 1576 sub get_tries_text {	Line 1906 sub get_tries_text {
return $tries_text;	return $tries_text;
}	}

	sub spelling_languages {
	my %langchoices;
	foreach my $id (&Apache::loncommon::languageids()) {
	my $code = &Apache::loncommon::supportedlanguagecode($id);
	if ($code ne '') {
	$langchoices{$code} = &Apache::loncommon::plainlanguagedescription($id);
	}
	}
	my @spelllangs = ('none');
	foreach my $code ('en','de','he','es','fr','pt','tr') {
	push(@spelllangs,[$code,$langchoices{$code}]);
	}
	return \@spelllangs;
	}

	sub edit_mathresponse_button {
	my ($field) = @_;
	my $eqneditor = 'lcmath';
	if ($env{'browser.type'} eq 'safari') {
	if ($env{'browser.os'} eq 'mac') {
	my ($prefix,$version) = ($env{'browser.version'} =~ /^(\d*)(\d{3})\./);
	if ($env{'browser.mobile'}) {
	if (($version < 531) \|\| (($prefix eq '') && ($version < 533))) {
	$eqneditor = '';
	}
	} elsif ($version < 533) {
	$eqneditor = 'dragmath';
	}
	} elsif ($env{'browser.os'} eq 'win') {
	if ($env{'browser.version'} < 533) {
	$eqneditor = 'dragmath';
	}
	}
	} elsif ($env{'browser.type'} eq 'explorer') {
	if ($env{'browser.version'} < 9) {
	$eqneditor = 'dragmath';
	}
	} elsif ($env{'browser.type'} eq 'mozilla') {
	if ($env{'browser.version'} < 5) {
	$eqneditor = 'dragmath';
	} else {
	if ($env{'browser.info'} =~ /^firefox\-([\d\.]+)/) {
	my $firefox = $1;
	if ($firefox < 4) {
	$eqneditor = 'dragmath';
	}
	}
	}
	} elsif ($env{'browser.type'} eq 'chrome') {
	if ($env{'browser.version'} < 5) {
	$eqneditor = 'dragmath';
	}
	} elsif ($env{'browser.type'} eq 'opera') {
	if ($env{'browser.version'} < 12) {
	$eqneditor = 'dragmath';
	}
	}
	if ($eqneditor eq 'lcmath') {
	if (($env{'request.course.id'}) && ($env{'request.state'} ne 'construct')) {
	if (exists($env{'course.'.$env{'request.course.id'}.'.uselcmath'})) {
	if ($env{'course.'.$env{'request.course.id'}.'.uselcmath'} eq '0') {
	$eqneditor = 'dragmath';
	}
	} else {
	my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
	if ($domdefs{'uselcmath'} eq '0') {
	$eqneditor = 'dragmath';
	}
	}
	} else {
	my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
	if ($domdefs{'uselcmath'} eq '0') {
	$eqneditor = 'dragmath';
	}
	}
	}
	if ($eqneditor eq 'dragmath') {
	# DragMath applet
	my $button=&mt('Edit Answer');
	# my $helplink=&Apache::loncommon::help_open_topic('Formula_Editor');
	my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
	return(<<ENDFORMULABUTTON);
	<script type="text/javascript" language="JavaScript">
	function LC_mathedit_${field} (LCtextline) {
	thenumber = LCtextline;
	var thedata = '';
	if (document.getElementById(LCtextline)) {
	thedata = document.getElementById(LCtextline).value;
	}
	newwin = window.open("/adm/dragmath/MaximaPopup.html","","width=565,height=400,resizable");
	}
	</script>
	<a href="javascript:LC_mathedit_${field}('${field}');void(0);"><img class="stift" src="$iconpath/stift.gif" alt="$button" title="$button" /></a>
	ENDFORMULABUTTON
	} elsif ($eqneditor eq 'lcmath') {
	# LON-CAPA math equation editor
	my $mathjaxjs;
	unless (lc(&Apache::lontexconvert::tex_engine()) eq 'mathjax') {
	$mathjaxjs = <<"MATHJAX_SCRIPT";
	var mathjaxscript = document.createElement("script");
	mathjaxscript.type = "text/javascript";
	mathjaxscript.src = "/adm/MathJax/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
	document.body.appendChild(mathjaxscript);
	MATHJAX_SCRIPT
	}
	return(<<EQ_EDITOR_SCRIPT);
	<script type="text/javascript">
	var LCmathField = document.getElementById('${field}');
	LCmathField.className += ' math'; // note the space
	LCmathField.setAttribute('data-implicit_operators', 'true');
	var LCMATH_started;
	if (typeof LCMATH_started === 'undefined') {
	$mathjaxjs
	LCMATH_started = true;
	var script = document.createElement("script");
	script.type = "text/javascript";
	script.src = "/adm/LC_math_editor/LC_math_editor.min.js";
	document.body.appendChild(script);
	window.addEventListener('load', function(e) {
	LCMATH.initEditors();
	}, false);
	}
	</script>
	EQ_EDITOR_SCRIPT
	}
	}

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.271.2.1
changed lines
	Added in v.1.333.2.7