--- loncom/auth/restrictedaccess.pm 2006/07/21 19:42:12 1.5
+++ loncom/auth/restrictedaccess.pm 2008/12/11 14:52:26 1.7
@@ -73,8 +73,8 @@ sub handler {
sub setup_handler {
my ($r) = @_;
$r->set_handlers('PerlHandler'=>
- \&Apache::restrictedaccess::handler);
- $r->content_type('perl-script');
+ [\&Apache::restrictedaccess::handler]);
+ $r->handler('perl-script');
}
sub print_entryform {
@@ -97,7 +97,7 @@ function verify() {
$r->print('
');
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_row());
- $r->print('