![[BACK]](/icons/back.gif){kind=icon}
Return to lontrans.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lontrans.pm CVS log | Up to [LON-CAPA] / loncom |
| version 1.11, 2006/05/30 12:45:12 | version 1.12, 2006/08/17 20:22:11 |
|---|---|
| Line 38 use LONCAPA; | Line 38 use LONCAPA; |
| sub handler { | sub handler { |
| my $r = shift; | my $r = shift; |
| # FIXME line remove when mod_perl fixes BUG#4948 | |
| $r->notes->set('error-notes' => ''); | |
| if ($r->uri=~m|^(/raw)?/uploaded/|) { | if ($r->uri=~m|^(/raw)?/uploaded/|) { |
| my $fn = $r->uri(); | my $fn = $r->uri(); |
| $fn=~s/^\/raw//; | $fn=~s/^\/raw//; |