![[BACK]](/icons/back.gif){kind=icon}
Return to lonlocal.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / localize|
Return to lonlocal.pm CVS log | Up to [LON-CAPA] / loncom / localize |
| version 1.40, 2006/06/27 14:20:55 | version 1.41, 2006/08/28 14:26:25 |
|---|---|
| Line 345 sub transstatic { | Line 345 sub transstatic { |
| $$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse; | $$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse; |
| } | } |
| =pod | |
| =item * mt_escape | |
| mt_escape takes a string reference and escape the [] in there so mt | |
| will leave them as is and not try to expand them | |
| =cut | |
| sub mt_escape { | |
| my ($str_ref) = @_; | |
| $$str_ref =~s/~/~~/g; | |
| $$str_ref =~s/([\[\]])/~$1/g; | |
| } | |
| 1; | 1; |
| __END__ | __END__ |