Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.149.2.1 and 1.216

version 1.149.2.1, 2004/11/06 01:15:59	version 1.216, 2007/02/27 19:43:16
Line 30 use HTML::Entities();	Line 30 use HTML::Entities();
use strict;	use strict;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


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

	# Initializes a set of global variables used during the parse of the problem.
	#
	# @Apache::inputtags::input - List of current input ids.
	# @Apache::inputtags::inputlist - List of all input ids seen this problem.
	# @Apache::inputtags::response - List of all current resopnse ids.
	# @Apache::inputtags::responselist - List of all response ids seen this
	# problem.
	# @Apache::inputtags::hint - List of all hint ids.
	# @Apache::inputtags::hintlist - List of all hint ids seen this problem.
	# @Apache::inputtags::previous - List describing if specific responseds
	# have been used
	# @Apache::inputtags::previous_version - Submission responses were used in.
	# $Apache::inputtags::part - Current part id (valid only in
	# <problem>)
	# 0 if not in a part.
	# @Apache::inputtags::partlist - List of part ids seen in the current
	# <problem>
	# @Apache::inputtags::status - List of problem statuses. First
	# element is the status of the <problem>
	# the remainder are for individual <part>s.
	# %Apache::inputtags::params - Hash of defined parameters for the
	# current response.
	# @Apache::inputtags::import - List of all ids for <import> thes get
	# join()ed and prepended.
	# @Apache::inputtags::importlist - List of all import ids seen.
	# $Apache::inputtags::response_with_no_part
	# - Flag set true if we have seen a response
	# that is not inside a <part>
	# %Apache::inputtags::answertxt - <*response> tags store correct
	# answer strings for display by <textline/>
	# in this hash.

sub initialize_inputtags {	sub initialize_inputtags {
# list of current input ids
@Apache::inputtags::input=();	@Apache::inputtags::input=();
# list of all input ids seen in this problem
@Apache::inputtags::inputlist=();	@Apache::inputtags::inputlist=();
# list of all current response ids
@Apache::inputtags::response=();	@Apache::inputtags::response=();
# list of all response ids seen in this problem
@Apache::inputtags::responselist=();	@Apache::inputtags::responselist=();
# list of whether or not a specific response was previously used	@Apache::inputtags::hint=();
	@Apache::inputtags::hintlist=();
@Apache::inputtags::previous=();	@Apache::inputtags::previous=();
# submission it was used in
@Apache::inputtags::previous_version=();	@Apache::inputtags::previous_version=();
# id of current part, 0 means that no part is current
# (inside <problem> only
$Apache::inputtags::part='';	$Apache::inputtags::part='';
# list of all part ids seen
@Apache::inputtags::partlist=();	@Apache::inputtags::partlist=();
# list of problem date statuses, the first element is for <problem>
# if there is a second element it is for the current <part>
@Apache::inputtags::status=();	@Apache::inputtags::status=();
# hash of defined params for the current response
%Apache::inputtags::params=();	%Apache::inputtags::params=();
# list of all ids, for <import>, these get join()ed and prepended
@Apache::inputtags::import=();	@Apache::inputtags::import=();
# list of all import ids seen
@Apache::inputtags::importlist=();	@Apache::inputtags::importlist=();
# just used to note whether we have seen a response that isn't in a part
$Apache::inputtags::response_with_no_part=0;	$Apache::inputtags::response_with_no_part=0;
# storage location so the begin <*response> tag can generate the correct
# answer string for display by the <textline />
%Apache::inputtags::answertxt=();	%Apache::inputtags::answertxt=();
}	}

Line 74 sub check_for_duplicate_ids {	Line 94 sub check_for_duplicate_ids {
my %check;	my %check;
foreach my $id (@Apache::inputtags::partlist,	foreach my $id (@Apache::inputtags::partlist,
@Apache::inputtags::responselist,	@Apache::inputtags::responselist,
	@Apache::inputtags::hintlist,
@Apache::inputtags::importlist) {	@Apache::inputtags::importlist) {
$check{$id}++;	$check{$id}++;
}	}
Line 113 sub addchars {	Line 134 sub addchars {
}	}

sub start_textfield {	sub start_textfield {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result = "";	my $result = "";
my $id = &start_input($parstack,$safeeval);	my $id = &start_input($parstack,$safeeval);
my $resid=$Apache::inputtags::response[-1];	my $resid=$Apache::inputtags::response[-1];
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
	my $partid=$Apache::inputtags::part;
	my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $partid=$Apache::inputtags::part;
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');
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; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);	my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
Line 131 sub start_textfield {	Line 152 sub start_textfield {
if ($addchars) {	if ($addchars) {
$result.=&addchars('HWVAL_'.$resid,$addchars);	$result.=&addchars('HWVAL_'.$resid,$addchars);
}	}
push @Apache::lonxml::htmlareafields,'HWVAL_'.$resid;	&Apache::lonhtmlcommon::add_htmlareafields('HWVAL_'.$resid);
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.	$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
"rows=\"$rows\" cols=\"$cols\">".$oldresponse;	"rows=\"$rows\" cols=\"$cols\">".$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
&Apache::lonxml::get_all_text("/textfield",$parser);	&Apache::lonxml::get_all_text("/textfield",$parser,$style);
}	}
} else {	} else {
#right or wrong don't show it	#show past answer in the essayresponse case
#$result='<table border="1"><tr><td><i>'.$oldresponse.'</i></td></tr></table>';	if ($oldresponse =~ /\S/
$result='';	&& &Apache::londefdef::is_inside_of($tagstack,
	'essayresponse') ) {
	$result='<table class="LC_pastsubmission"><tr><td>'.
	$oldresponse.'</td></tr></table>';
	}
#get rid of any startup text	#get rid of any startup text
&Apache::lonxml::get_all_text("/textfield",$parser);	&Apache::lonxml::get_all_text("/textfield",$parser,$style);
}	}
} elsif ($target eq 'grade') {	} elsif ($target eq 'grade') {
my $seedtext=&Apache::lonxml::get_all_text("/textfield",$parser);	my $seedtext=&Apache::lonxml::get_all_text("/textfield",$parser,
if ($seedtext eq $ENV{'form.HWVAL_'.$resid}) {	$style);
	if ($seedtext eq $env{'form.HWVAL_'.$resid}) {
# if the seed text is still there it wasn't a real submission	# if the seed text is still there it wasn't a real submission
$ENV{'form.HWVAL_'.$resid}='';	$env{'form.HWVAL_'.$resid}='';
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
Line 158 sub start_textfield {	Line 184 sub start_textfield {
$result.=&Apache::edit::text_arg('Columns:','cols',$token,4);	$result.=&Apache::edit::text_arg('Columns:','cols',$token,4);
$result.=&Apache::edit::text_arg	$result.=&Apache::edit::text_arg
('Click-On Texts (comma sep):','addchars',$token,10);	('Click-On Texts (comma sep):','addchars',$token,10);
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser);	my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
	$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);
} 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,
Line 202 sub end_textfield {	Line 229 sub end_textfield {
return $result;	return $result;
}	}

	sub exam_score_line {
	my ($target) = @_;

	my $result;
	if ($target eq 'tex') {
	my $repetition = &Apache::response::repetition();
	$result.='\begin{enumerate}';
	if ($env{'request.state'} eq "construct" ) {$result.='\item[\strut]';}
	foreach my $i (0..$repetition-1) {
	$result.='\item[\textbf{'.
	($Apache::lonxml::counter+$i).
	'}.]\textit{Leave blank on scoring form}\vskip 0 mm';
	}
	$result.= '\end{enumerate}';
	}

	return $result;
	}

	sub exam_box {
	my ($target) = @_;
	my $result;

	if ($target eq 'tex') {
	$result .= '\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
	$result .= &exam_score_line($target);
	} elsif ($target eq 'web') {
	my $id=$Apache::inputtags::response[-1];
	$result.= '<br /><br />
	<textarea name="HWVAL_'.$id.'" rows="4" cols="50">
	</textarea> <br /><br />';
	}
	return $result;
	}

	sub needs_exam_box {
	my ($tagstack) = @_;
	my @tags = ('formularesponse',
	'stringresponse',
	'reactionresponse',
	'organicresponse',
	);

	foreach my $tag (@tags) {
	if (grep(/\Q$tag\E/,@$tagstack)) {
	return 1;
	}
	}
	return 0;
	}

sub start_textline {	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);
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 $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if (!&Apache::response::show_answer()) {
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);	my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
my $maxlength;	my $maxlength;
if ($size eq '') { $size=20; } else {	if ($size eq '') { $size=20; } else {
if ($size < 20) { $maxlength=$size; }	if ($size < 20) {
	$maxlength = ' maxlength="'.$size.'"';
	}
	}
	my $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];
}	}
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"},'<>&"');	$oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');

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='';
if ($addchars) {	if ($addchars) {
$result.=&addchars('HWVAL_'.$id,$addchars);	$result.=&addchars('HWVAL_'.$id,$addchars);
}	}
$result.= '<input type="text" name="HWVAL_'.$id.'" value="'.	my $readonly=&Apache::lonxml::get_param('readonly',$parstack,
$oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';	$safeeval);
	if (lc($readonly) eq 'yes'
	\|\| $Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
	$readonly=' readonly="readonly" ';
	} else {
	$readonly='';
	}
	my $name = 'HWVAL_'.$id;
	if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
	$name = "none";
	}
	$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');" type="text" '.$readonly.' name="'.$name.'" value="'.
	$oldresponse.'" size="'.$size.'"'.$maxlength.' />';
	}
	if ($Apache::lonhomework::type eq 'exam'
	&& &needs_exam_box($tagstack)) {
	$result.=&exam_box($target);
}	}
} else {	} else {
#right or wrong don't show what was last typed in.	#right or wrong don't show what was last typed in.
$result='<i>'.$Apache::inputtags::answertxt{$id}.'</i>';	my $count = scalar(@Apache::inputtags::inputlist)-1;
	$result='<b>'.$Apache::inputtags::answertxt{$id}[$count].'</b>';
#$result='';	#$result='';
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token);	$result=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::text_arg('Size:','size',$token,'5').	$result.=&Apache::edit::text_arg('Size:','size',$token,'5').
&Apache::edit::text_arg	&Apache::edit::text_arg('Click-On Texts (comma sep):',
('Click-On Texts (comma sep):','addchars',$token,10)."</td></tr>";	'addchars',$token,10);
$result.=&Apache::edit::end_table;	$result.=&Apache::edit::select_arg('Readonly:','readonly',
	['no','yes'],$token);
	$result.=&Apache::edit::end_row();
	$result.=&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size','addchars');	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
	$safeeval,'size',
	'addchars','readonly');
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
} elsif ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {	} elsif ($target eq 'tex'
	&& $Apache::lonhomework::type ne 'exam') {
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);	my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
if ($size != 0) {$size=$size*2; $size.=' mm';} else {$size='40 mm';}	if ($size != 0) {$size=$size*2; $size.=' mm';} else {$size='40 mm';}
$result='\framebox['.$size.'][s]{\tiny\strut}';	$result='\framebox['.$size.'][s]{\tiny\strut}';

	} elsif ($target eq 'tex'
	&& $Apache::lonhomework::type eq 'exam'
	&& &needs_exam_box($tagstack)) {
	$result.=&exam_box($target);
}	}
return $result;	return $result;
}	}
Line 251 sub end_textline {	Line 367 sub end_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ($target eq 'web') { $Apache::lonxml::evaluate++; }	if ($target eq 'web') { $Apache::lonxml::evaluate++; }
elsif ($target eq 'edit') { return ('','no'); }	elsif ($target eq 'edit') { return ('','no'); }
	&end_input();
return "";	return "";
}	}

sub start_hiddenline {	sub start_hiddenline {
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);
if ($target eq 'web') {	if ($target eq 'web') {
$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 $partid=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"},'<>&"');	my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
	if (ref($oldresponse) eq 'ARRAY') {
	$oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
	}
	$oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');

if ($Apache::lonhomework::type ne 'exam') {	if ($Apache::lonhomework::type ne 'exam') {
$result= '<input type="hidden" name="HWVAL_'.$id.'" value="'.	$result= '<input type="hidden" name="HWVAL_'.$id.'" value="'.
$oldresponse.'" />';	$oldresponse.'" />';
Line 272 sub start_hiddenline {	Line 395 sub start_hiddenline {
$result=&Apache::edit::tag_start($target,$token);	$result=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::end_table;	$result.=&Apache::edit::end_table;
}	}

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

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

sub checkstatus {	# $part -> partid
my ($value,$awardref,$msgref)=@_;	# $id -> responseid
for (my $i=0;$i<=$#$awardref;$i++) {	# $uploadefiletypes -> comma seperated list of extensions allowed or * for any
if ($$awardref[$i] eq $value) {	# $which -> 'uploadedonly' -> only newly uploaded files
return ($$awardref[$i],$$msgref[$i]);	# 'portfolioonly' -> only allow files from portfolio
	# 'both' -> allow files from either location
	# $extratext -> additional text to go between the link and the input box
	# returns a table row <tr>
	sub file_selector {
	my ($part,$id,$uploadedfiletypes,$which,$extratext)=@_;
	if (!$uploadedfiletypes) { return ''; }

	my $jspart=$part;
	$jspart=~s/\./_/g;

	my $result;

	$result.='<tr><td>';
	if ($uploadedfiletypes ne '*') {
	$result.=
	&mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).'<br />';
	}
	if ($which eq 'uploadonly' \|\| $which eq 'both') {
	$result.=&mt('Submit a file: (only one file can be uploaded)').
	' <br /><input type="file" size="50" name="HWFILE'.
	$jspart.'_'.$id.'" /><br />';
	$result .= &show_past_file_submission($part,$id);
	}
	if ( $which eq 'both') {
	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
	}
	if ($which eq 'portfolioonly' \|\| $which eq 'both') {
	$result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
	&mt('Select Portfolio Files').'</a><br />'.
	'<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
	'<br />';
	$result .= &show_past_portfile_submission($part,$id);

	}
	$result.='</td></tr>';
	return $result;
	}

	sub show_past_file_submission {
	my ($part,$id) = @_;
	my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"},'<>&"');

	return if (!$uploadedfile);

	my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};
	&Apache::lonxml::extlink($url);
	&Apache::lonnet::allowuploaded('/adm/essayresponse',$url);
	my $icon=&Apache::loncommon::icon($url);
	my $curfile='<a href="'.$url.'"><img src="'.$icon.
	'" border="0" />'.$uploadedfile.'</a>';
	return &mt('Currently submitted: <tt>[_1]</tt>',$curfile);

	}

	sub show_past_portfile_submission {
	my ($part,$id) = @_;
	if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}!~/[^\s]/){
	return;
	}
	my (@file_list,@bad_file_list);
	foreach my $file (split(/\s,\s/,&unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"}))) {
	my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
	my $url="/uploaded/$domain/$user/portfolio$file";
	my $icon=&Apache::loncommon::icon($url);
	push(@file_list,'<a href="'.$url.'"><img src="'.$icon.
	'" border="0" />'.$file.'</a>');
	if (! &Apache::lonnet::stat_file($url)) {
	&Apache::lonnet::logthis("bad file is $url");
	push(@bad_file_list,'<a href="'.$url.'"><img src="'.$icon.
	'" border="0" />'.$file.'</a>');
}	}
}	}
return(undef,undef);	my $files = '<span class="LC_filename">'.
	join('</span>, <span class="LC_filename">',@file_list).
	'</span>';
	my $result = &mt("Portfolio files previously selected: [_1]",$files);
	if (@bad_file_list) {
	my $bad_files = '<span class="LC_filename">'.
	join('</span>, <span class="LC_filename">',@bad_file_list).
	'</span>';
	$result.='<br />'.&mt('<span class="LC_error">These file(s) don\'t exist:</span> [_1]',$bad_files);
	}
	return $result;

}	}

	sub valid_award {
	my ($award) =@_;
	foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR',
	'NO_RESPONSE',
	'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',
	'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',
	'UNIT_FAIL', 'NO_UNIT',
	'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
	'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT',
	'MISORDERED_RANK', 'INVALID_FILETYPE',
	'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
	'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') {
	if ($award eq $possibleaward) { return 1; }
	}
	return 0;
	}

	{
	my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
	'TOO_LONG',
	'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',
	'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',
	'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',
	'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',
	'INVALID_FILETYPE', 'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
	'APPROX_ANS', 'EXACT_ANS');
	my $i=0;
	my %fwd_awards = map { ($_,$i++) } @awards;
	my $max=scalar(@awards);
	@awards=reverse(@awards);
	$i=0;
	my %rev_awards = map { ($_,$i++) } @awards;

sub finalizeawards {	sub finalizeawards {
my ($awardref,$msgref)=@_;	my ($awardref,$msgref,$nameref,$reverse)=@_;
my $result=undef;	my $result;
my $award;
my $msg;
if ($#$awardref == -1) { $result = "NO_RESPONSE"; }	if ($#$awardref == -1) { $result = "NO_RESPONSE"; }
if ($result eq '' ) {	if ($result eq '' ) {
my $blankcount;	my $blankcount;
foreach $award (@$awardref) {	foreach my $award (@$awardref) {
if ($award eq '') {	if ($award eq '') {
$result='MISSING_ANSWER';	$result='MISSING_ANSWER';
$blankcount++;	$blankcount++;
Line 308 sub finalizeawards {	Line 550 sub finalizeawards {
}	}
if ($blankcount == ($#$awardref + 1)) { $result = 'NO_RESPONSE'; }	if ($blankcount == ($#$awardref + 1)) { $result = 'NO_RESPONSE'; }
}	}
if (defined($result)) { return ($result,$msg); }	if (defined($result)) { return ($result); }
foreach my $possibleaward ('MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',	# these awards are ordered from most important error through best correct
'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',	my $awards = (!$reverse) ? \%fwd_awards : \%rev_awards ;
'UNIT_FAIL', 'NO_UNIT',
'UNIT_NOTNEEDED', 'WANTED_NUMERIC',	my $best = $max;
'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT',	my $j=0;
'MISORDERED_RANK', 'INVALID_FILETYPE',	my $which;
'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',	foreach my $award (@$awardref) {
'APPROX_ANS', 'EXACT_ANS') {	if ($awards->{$award} < $best) {
($result,$msg)=&checkstatus($possibleaward,$awardref,$msgref);	$best = $awards->{$award};
if (defined($result)) { return ($result,$msg); }	$which = $j;
	}
	$j++;
	}
	if (defined($which)) {
	if (ref($nameref)) {
	return ($$awardref[$which],$$msgref[$which],$$nameref[$which]);
	} else {
	return ($$awardref[$which],$$msgref[$which]);
	}
}	}
return ('ERROR',undef);	return ('ERROR',undef);
}	}
	}

sub decideoutput {	sub decideoutput {
my ($award,$awardmsg,$solved,$previous,$target)=@_;	my ($award,$awarded,$awardmsg,$solved,$previous,$target)=@_;
my $message='';	my $message='';
my $button=0;	my $button=0;
my $previousmsg;	my $previousmsg;
my $bgcolor='orange';	my $bgcolor='orange';
my $added_computer_text=0;	my $added_computer_text=0;
my %possiblecolors =	my %possiblecolors =
( 'correct' => '#aaffaa',	( 'correct' => '#aaffaa',
'charged_try' => '#ffaaaa',	'charged_try' => '#ffaaaa',
'not_charged_try' => '#ffffaa',	'not_charged_try' => '#ffffaa',
'no_message' => '#fffff',	'no_grade' => '#ffffaa',
	'no_message' => '#ffffff',
);	);

	my $part = $Apache::inputtags::part;
	my $handgrade =
	('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade")));

	my $computer = ($handgrade)? ''
	: " ".&mt("Computer's answer now shown above.");
	&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'); }

if ($solved =~ /^correct/) {	if ($solved =~ /^correct/) {
if ($award eq 'ASSIGNED_SCORE') {	$bgcolor=$possiblecolors{'correct'};
	$message=&mt('You are correct.');
	if ($awarded < 1 && $awarded > 0) {
	$message=&mt('You are partially correct.');
	$bgcolor=$possiblecolors{'not_charged_try'};
	} elsif ($awarded < 1) {
	$message=&mt('Incorrect.');
	$bgcolor=$possiblecolors{'charged_try'};
	}
	if ($env{'request.filename'} =~
	m\|/res/lib/templates/examupload.problem$\|) {
$message = &mt("A score has been assigned.");	$message = &mt("A score has been assigned.");
	$added_computer_text=1;
} else {	} else {
if ($target eq 'tex') {	if ($target eq 'tex') {
$message = '\textbf{'.&mt('You are correct.').'}';	$message = '\textbf{'.$message.'}';
} else {	} else {
$message = "<b>".&mt('You are correct.')."</b>";	$message = "<b>".$message."</b>";
	$message.= $computer;
}	}
$message.=" ".&mt("Computer's answer now shown above.");
$added_computer_text=1;	$added_computer_text=1;
unless ($ENV{'course.'.	my ($symb) = &Apache::lonnet::whichuser();
$ENV{'request.course.id'}.	if ((!$env{'course.'.
'.disable_receipt_display'} eq 'yes') {	$env{'request.course.id'}.
	'.disable_receipt_display'} eq 'yes')&&
	$symb) {
$message.=(($target eq 'web')?'<br />':' ').	$message.=(($target eq 'web')?'<br />':' ').
&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part).	&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part).
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');	(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
}	}
}	}
$bgcolor=$possiblecolors{'correct'};
$button=0;	$button=0;
$previousmsg='';	$previousmsg='';
} elsif ($solved =~ /^excused/) {	} elsif ($solved =~ /^excused/) {
Line 380 sub decideoutput {	Line 654 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;
}	}
$message.=" ".&mt("Computer's answer now shown above.");
$added_computer_text=1;	$added_computer_text=1;
unless ($ENV{'course.'.	unless ($env{'course.'.
$ENV{'request.course.id'}.	$env{'request.course.id'}.
'.disable_receipt_display'} eq 'yes') {	'.disable_receipt_display'} eq 'yes') {
$message.=(($target eq 'web')?'<br />':' ').	$message.=(($target eq 'web')?'<br />':' ').
'Your receipt is '.&Apache::lonnet::receipt($Apache::inputtags::part).	'Your receipt is '.&Apache::lonnet::receipt($Apache::inputtags::part).
Line 398 sub decideoutput {	Line 672 sub decideoutput {
$message = '';	$message = '';
$bgcolor=$possiblecolors{'no_feedback'};	$bgcolor=$possiblecolors{'no_feedback'};
$button=1;	$button=1;
	} elsif ($award eq 'EXTRA_ANSWER') {
	$message = &mt('Some extra items were submitted.');
	$bgcolor=$possiblecolors{'not_charged_try'};
	$button = 1;
} elsif ($award eq 'MISSING_ANSWER') {	} elsif ($award eq 'MISSING_ANSWER') {
$message = &mt('Some items were not submitted.');	$message = &mt('Some items were not submitted.');
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
Line 417 sub decideoutput {	Line 695 sub decideoutput {
} elsif ($award eq 'MISORDERED_RANK') {	} elsif ($award eq 'MISORDERED_RANK') {
$message = &mt('You have provided an invalid ranking');	$message = &mt('You have provided an invalid ranking');
if ($target ne 'tex') {	if ($target ne 'tex') {
$message.=', '.&mt('please refer to').' '.&Apache::loncommon::help_open_topic('Ranking_Problems','help on ranking problems').'.';	$message.=', '.&mt('please refer to').' '.&Apache::loncommon::help_open_topic('Ranking_Problems','help on ranking problems');
}	}
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'INVALID_FILETYPE') {	} elsif ($award eq 'INVALID_FILETYPE') {
$message = &mt('The filetype extension of the file you uploaded is not allowed.');	$message = &mt('Submission won\'t be graded. The type of file submitted is not allowed.');
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'SIG_FAIL') {	} elsif ($award eq 'SIG_FAIL') {
my ($used,$min,$max)=split(':',$awardmsg);	my ($used,$min,$max)=split(':',$awardmsg);
my $word;	my $word = ($used < $min) ? 'more' : 'fewer';
if ($used < $min) { $word=&mt('more'); }	$message = &mt("Submission not graded. Use $word digits.",$used);
if ($used > $max) { $word=&mt('fewer'); }
$message = &mt("Submission not graded. Use [_2] digits.",$used,$word);
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'UNIT_INVALID_INSTRUCTOR') {	} elsif ($award eq 'UNIT_INVALID_INSTRUCTOR') {
Line 439 sub decideoutput {	Line 715 sub decideoutput {
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'UNIT_INVALID_STUDENT') {	} elsif ($award eq 'UNIT_INVALID_STUDENT') {
$message = &mt('Unable to interpret units. Computer reads units as "[_1]"','<tt>'.$awardmsg.'</tt>.');	$message = &mt('Unable to interpret units. Computer reads units as "[_1]".',&markup_unit($awardmsg,$target));
if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');}	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');}
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'UNIT_FAIL' \|\| $award eq 'UNIT_IRRECONCIBLE') {	} elsif ($award eq 'UNIT_FAIL' \|\| $award eq 'UNIT_IRRECONCIBLE') {
$message = &mt('Incompatible units. No conversion found between "[_1]" and the required units ','<tt>'.$awardmsg.'</tt>.');	$message = &mt('Incompatible units. No conversion found between "[_1]" and the required units.',&markup_unit($awardmsg,$target));
if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');}	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units');}
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'UNIT_NOTNEEDED') {	} elsif ($award eq 'UNIT_NOTNEEDED') {
$message = &mt('Only a number required. Computer reads units of "[_1]"','<tt>'.$awardmsg.'</tt>.');	$message = &mt('Only a number required. Computer reads units of "[_1]".',&markup_unit($awardmsg,$target));
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'NO_UNIT') {	} elsif ($award eq 'NO_UNIT') {
Line 457 sub decideoutput {	Line 733 sub decideoutput {
if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
	} elsif ($award eq 'COMMA_FAIL') {
	$message = &mt("Proper comma separation is required").'.';
	$bgcolor=$possiblecolors{'not_charged_try'};
	$button=1;
} elsif ($award eq 'BAD_FORMULA') {	} elsif ($award eq 'BAD_FORMULA') {
$message = &mt("Unable to understand formula");	$message = &mt("Unable to understand formula");
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
Line 467 sub decideoutput {	Line 747 sub decideoutput {
$button=1;	$button=1;
} elsif ($award eq 'SUBMITTED') {	} elsif ($award eq 'SUBMITTED') {
$message = &mt("Your submission has been recorded.");	$message = &mt("Your submission has been recorded.");
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'no_grade'};
$button=1;	$button=1;
} elsif ($award eq 'DRAFT') {	} elsif ($award eq 'DRAFT') {
$message = &mt("A draft copy has been saved.");	$message = &mt("A draft copy has been saved.");
Line 478 sub decideoutput {	Line 758 sub decideoutput {
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=0;	$button=0;
} elsif ($award eq '') {	} elsif ($award eq '') {
$bgcolor=$possiblecolors{'not_charged_try'};	if ($handgrade && $Apache::inputtags::status[-1] eq 'SHOW_ANSWER') {
	$message = &mt("Nothing submitted.");
	$bgcolor=$possiblecolors{'charged_try'};
	} else {
	$bgcolor=$possiblecolors{'not_charged_try'};
	}
$button=1;	$button=1;
} else {	} else {
$message = &mt("Unknown message").": $award";	$message = &mt("Unknown message").": $award";
$button=1;	$button=1;
}	}
	my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
	foreach my $resid(@Apache::inputtags::response){
	if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
	$message.='<br />';
	my @files = split(/\s,\s/,
	$Apache::lonhomework::history{"resource.$part.$resid.handback"});
	my $file_msg;
	foreach my $file (@files) {
	$file_msg.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$file.'">'.$file.'</a>';
	}
	$message .= &mt('Returned file(s): [_1]',$file_msg);
	}
	}

if (lc($Apache::lonhomework::problemstatus) eq 'no' &&	if (lc($Apache::lonhomework::problemstatus) eq 'no' &&
$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {	$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {
$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.");
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'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) {	!$added_computer_text && $target ne 'tex') {
$message.=" ".&mt("Computer's answer now shown above.");	$message.= $computer;
$added_computer_text=1;	$added_computer_text=1;
}	}
return ($button,$bgcolor,$message,$previousmsg);	return ($button,$bgcolor,$message,$previousmsg);
}	}

	sub markup_unit {
	my ($unit,$target)=@_;
	if ($target eq 'tex') {
	return '\texttt{'.&Apache::lonxml::latex_special_symbols($unit).'}';
	} else {
	return "<tt>".$unit."</tt>";
	}
	}

sub removealldata {	sub removealldata {
my ($id)=@_;	my ($id)=@_;
foreach my $key (keys(%Apache::lonhomework::results)) {	foreach my $key (keys(%Apache::lonhomework::results)) {
Line 525 sub hidealldata {	Line 833 sub hidealldata {
sub setgradedata {	sub setgradedata {
my ($award,$msg,$id,$previously_used) = @_;	my ($award,$msg,$id,$previously_used) = @_;
if ($Apache::lonhomework::scantronmode &&	if ($Apache::lonhomework::scantronmode &&
&Apache::lonnet::validCODE($ENV{'form.CODE'})) {	&Apache::lonnet::validCODE($env{'form.CODE'})) {
$Apache::lonhomework::results{"resource.CODE"}=$ENV{'form.CODE'};	$Apache::lonhomework::results{"resource.CODE"}=$env{'form.CODE'};
} elsif ($Apache::lonhomework::scantronmode &&	} elsif ($Apache::lonhomework::scantronmode &&
$ENV{'form.CODE'} eq '' &&	$env{'form.CODE'} eq '' &&
$Apache::lonhomework::history{"resource.CODE"} ne '') {	$Apache::lonhomework::history{"resource.CODE"} ne '') {
$Apache::lonhomework::results{"resource.CODE"}='';	$Apache::lonhomework::results{"resource.CODE"}='';
}	}
Line 578 sub setgradedata {	Line 886 sub setgradedata {
} elsif ( $award eq 'INCORRECT' ) {	} elsif ( $award eq 'INCORRECT' ) {
$Apache::lonhomework::results{"resource.$id.tries"} =	$Apache::lonhomework::results{"resource.$id.tries"} =
$Apache::lonhomework::history{"resource.$id.tries"} + 1;	$Apache::lonhomework::history{"resource.$id.tries"} + 1;
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no' \|\|
	$Apache::lonhomework::scantronmode) {
$Apache::lonhomework::results{"resource.$id.awarded"} = 0;	$Apache::lonhomework::results{"resource.$id.awarded"} = 0;
}	}
$Apache::lonhomework::results{"resource.$id.solved"} =	$Apache::lonhomework::results{"resource.$id.solved"} =
Line 597 sub setgradedata {	Line 906 sub setgradedata {
} else {	} else {
$Apache::lonhomework::results{"resource.$id.solved"} =	$Apache::lonhomework::results{"resource.$id.solved"} =
'incorrect_attempted';	'incorrect_attempted';
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no' \|\|
	$Apache::lonhomework::scantronmode) {
$Apache::lonhomework::results{"resource.$id.tries"} =	$Apache::lonhomework::results{"resource.$id.tries"} =
$Apache::lonhomework::history{"resource.$id.tries"} + 1;	$Apache::lonhomework::history{"resource.$id.tries"} + 1;
$Apache::lonhomework::results{"resource.$id.awarded"} = 0;	$Apache::lonhomework::results{"resource.$id.awarded"} = 0;
Line 637 sub setgradedata {	Line 947 sub setgradedata {
return '';	return '';
}	}
$Apache::lonhomework::results{"resource.$id.award"} = $award;	$Apache::lonhomework::results{"resource.$id.award"} = $award;
	if ($award eq 'SUBMITTED') {
	&Apache::response::add_to_gradingqueue();
	}
}	}

sub grade {	sub grade {
my ($target) = @_;	my ($target) = @_;
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
my $response='';	my $response='';
if ( defined $ENV{'form.submitted'}) {	if ( defined $env{'form.submitted'}) {
my (@awards,@msgs);	my (@awards,@msgs);
foreach $response (@Apache::inputtags::response) {	foreach $response (@Apache::inputtags::response) {
&Apache::lonxml::debug("looking for response.$id.$response.awarddetail");	&Apache::lonxml::debug("looking for response.$id.$response.awarddetail");
Line 693 sub gradestatus {	Line 1006 sub gradestatus {

my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
&Apache::lonxml::debug("gradestatus has :$status:");	&Apache::lonxml::debug("gradestatus has :$status:");
if ( $status ne 'CLOSED' && $status ne 'UNAVAILABLE' &&	if ( $status ne 'CLOSED'
$status ne 'INVALID_ACCESS') {	&& $status ne 'UNAVAILABLE'
	&& $status ne 'INVALID_ACCESS'
	&& $status ne 'NEEDS_CHECKIN'
	&& $status ne 'NOT_IN_A_SLOT') {
my $award = $Apache::lonhomework::history{"resource.$id.award"};	my $award = $Apache::lonhomework::history{"resource.$id.award"};
	my $awarded = $Apache::lonhomework::history{"resource.$id.awarded"};
my $solved = $Apache::lonhomework::history{"resource.$id.solved"};	my $solved = $Apache::lonhomework::history{"resource.$id.solved"};
my $previous = $Apache::lonhomework::history{"resource.$id.previous"};	my $previous = $Apache::lonhomework::history{"resource.$id.previous"};
my $awardmsg = $Apache::lonhomework::history{"resource.$id.awardmsg"};	my $awardmsg = $Apache::lonhomework::history{"resource.$id.awardmsg"};
Line 703 sub gradestatus {	Line 1020 sub gradestatus {
if ( $award ne '' \|\| $solved ne '' \|\| $status eq 'SHOW_ANSWER') {	if ( $award ne '' \|\| $solved ne '' \|\| $status eq 'SHOW_ANSWER') {
&Apache::lonxml::debug('Getting message');	&Apache::lonxml::debug('Getting message');
($showbutton,$bgcolor,$message,$previousmsg) =	($showbutton,$bgcolor,$message,$previousmsg) =
&decideoutput($award,$awardmsg,$solved,$previous,$target);	&decideoutput($award,$awarded,$awardmsg,$solved,$previous,
	$target);
if ($target eq 'tex') {	if ($target eq 'tex') {
$message='\vskip 2 mm '.$message.' ';	$message='\vskip 2 mm '.$message.' ';
} else {	} else {
Line 722 sub gradestatus {	Line 1040 sub gradestatus {
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=&mt('Tries');	my $tries_text=&mt('Tries');
if ( $Apache::lonhomework::type eq 'survey') { $tries_text=&mt('Submissions'); }	if ( $Apache::lonhomework::type eq 'survey' \|\|
	$Apache::lonhomework::parsing_a_task) {
	$tries_text=&mt('Submissions');
	}
if ( $showbutton ) {	if ( $showbutton ) {
if ($target eq 'tex') {	if ($target eq 'tex') {
if ($ENV{'request.state'} ne "construct" && $Apache::lonhomework::type ne 'exam' && $ENV{'form.suppress_tries'} ne 'yes') {	if ($env{'request.state'} ne "construct" && $Apache::lonhomework::type ne 'exam' && $env{'form.suppress_tries'} ne 'yes') {
$trystr = ' {\vskip 1 mm \small \textit{'.$tries_text.'} '.$tries.'/'.$maxtries.'} \vskip 2 mm ';	$trystr = ' {\vskip 1 mm \small \textit{'.$tries_text.'} '.$tries.'/'.$maxtries.'} \vskip 2 mm ';
} else {	} else {
$trystr = '\vskip 0 mm ';	$trystr = '\vskip 0 mm ';
}	}
} else {	} else {
$trystr = "<td><nobr>".$tries_text." $tries";	$trystr = "<td><nobr>".$tries_text." $tries";
if($ENV{'request.state'} ne 'construct') {	if ($Apache::lonhomework::parsing_a_task) {
	} elsif($env{'request.state'} ne 'construct') {
$trystr.="/$maxtries";	$trystr.="/$maxtries";
} else {	} else {
if (defined($Apache::inputtags::params{'maxtries'})) {	if (defined($Apache::inputtags::params{'maxtries'})) {
Line 745 sub gradestatus {	Line 1067 sub gradestatus {
if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}	if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
if ( $showbutton ) {	if ( $showbutton ) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$button = '<input type="submit" name="submit" value="'.&mt('Submit Answer').'" />';	$button = '<input onsubmit="javascript:setSubmittedPart(\''.$id.'\')" type="submit" name="submit_'.$id.'" value="'.&mt('Submit Answer').'" />';
}	}
}	}
if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {	if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {
#last submissions was after due date	#last submissions was after due date
if ($target eq 'tex') {	$latemessage=&mt(' The last submission was after the Due Date ');;
$latemessage=' The last submission was after the Due Date ';	if ($target eq 'web') {
} else {	$latemessage='<td bgcolor="#ffaaaa">'.$latemessage.'</td>';
$latemessage="<td bgcolor=\"#ffaaaa\">The last submission was after the Due Date</td>";
}	}
}	}
}	}

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.149.2.1
changed lines
	Added in v.1.216