Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.163, 2013/01/21 06:16:50 | version 1.164, 2014/06/16 16:52:50 |
---|---|
Line 1208 sub sec { | Line 1208 sub sec { |
} | } |
sub submission { | sub submission { |
my ($partid,$responseid,$subnumber)=@_; | my ($partid,$responseid,$subnumber,$encode)=@_; |
my $sub=''; | my $sub=''; |
if ($subnumber) { $sub=$subnumber.':'; } | if ($subnumber) { $sub=$subnumber.':'; } |
return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission'); | my $output = |
&EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission'); | |
if ($encode) { | |
$output =~ s/&/&/g; | |
$output =~ s/</</g; | |
$output =~ s/>/>/g; | |
$output =~ s/"/"/g; | |
}; | |
return $output; | |
} | } |
sub currentpart { | sub currentpart { |