![[BACK]](/icons/back.gif){kind=icon}
Return to default_homework.lcpm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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 { |