Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.169, 2014/06/25 16:50:51 | version 1.170, 2014/12/14 02:43:59 |
---|---|
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) { |