Return to restrictedaccess.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.5, 2006/07/21 19:42:12 | version 1.6, 2006/07/22 23:10:45 |
---|---|
Line 73 sub handler { | Line 73 sub handler { |
sub setup_handler { | sub setup_handler { |
my ($r) = @_; | my ($r) = @_; |
$r->set_handlers('PerlHandler'=> | $r->set_handlers('PerlHandler'=> |
\&Apache::restrictedaccess::handler); | [\&Apache::restrictedaccess::handler]); |
$r->content_type('perl-script'); | $r->handler('perl-script'); |
} | } |
sub print_entryform { | sub print_entryform { |