loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.287, 2011/06/06 18:55:54	version 1.291, 2011/06/10 17:10:17
Line 885 sub decideoutput {	Line 885 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 1320 sub setgradedata {	Line 1320 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::type eq 'randomizetry')) {	$Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");
$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;	$Apache::lonhomework::results{"resourse.$id.version"} = &Apache::lonnet::usedversion();
}
}	}

sub find_which_previous {	sub find_which_previous {