![[BACK]](/icons/back.gif){kind=icon}
Return to restrictedaccess.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
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 { |