loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.169, 2014/06/25 16:50:51	version 1.171, 2016/12/06 20:51:11
Line 1228 sub sec {	Line 1228 sub sec {
}	}

sub submission {	sub submission {
my ($partid,$responseid,$subnumber,$encode,$cleanupnum)=@_;	my ($partid,$responseid,$subnumber,$encode,$cleanupnum,$mapalias)=@_;
my $sub='';	my $sub='';
if ($subnumber) { $sub=$subnumber.':'; }	if ($subnumber) { $sub=$subnumber.':'; }
my $output =	my $output =
&EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');	&EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission',$mapalias);
if (ref($output) eq 'ARRAY') {	if (ref($output) eq 'ARRAY') {
my @items = @{$output};	my @items = @{$output};
if ($encode) {	if ($encode) {
Line 1458 sub proper_path {	Line 1458 sub proper_path {
}	}
}	}

	sub input_id {
	my ($part_id, $response_id, $textline_id) = @_;
	return 'HWVAL_'.$part_id.'_'.$response_id.'_'.$textline_id;
	}