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//; |