--- loncom/auth/restrictedaccess.pm 2006/07/21 19:42:12 1.5
+++ loncom/auth/restrictedaccess.pm 2009/02/13 17:20:26 1.8
@@ -1,6 +1,8 @@
# The LearningOnline Network
# Passphrase Entry and Validation for Portfolio files
#
+# $Id: restrictedaccess.pm,v 1.8 2009/02/13 17:20:26 bisitz Exp $
+#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -73,8 +75,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 +99,7 @@ function verify() {
$r->print('
');
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_row());
- $r->print('