--- 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(''.&mt('Passphrase: ').''. + $r->print(''.&mt('Passphrase: ').''. ''); $r->print(&Apache::loncommon::end_data_table_row()); $r->print(&Apache::loncommon::start_data_table_row());