![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.676, 2005/11/15 18:30:41 | version 1.677, 2005/11/15 18:39:16 |
|---|---|
| Line 5970 sub thaw_unescape { | Line 5970 sub thaw_unescape { |
| return &unescape($value); | return &unescape($value); |
| } | } |
| sub mod_perl_version { | |
| return 1; | |
| if (defined($perlvar{'MODPERL2'})) { | |
| return 2; | |
| } | |
| } | |
| sub correct_line_ends { | sub correct_line_ends { |
| my ($result)=@_; | my ($result)=@_; |
| $$result =~s/\r\n/\n/mg; | $$result =~s/\r\n/\n/mg; |