--- loncom/auth/restrictedaccess.pm 2008/12/11 14:52:26 1.7 +++ loncom/auth/restrictedaccess.pm 2013/07/15 14:32:47 1.10 @@ -1,6 +1,8 @@ # The LearningOnline Network # Passphrase Entry and Validation for Portfolio files # +# $Id: restrictedaccess.pm,v 1.10 2013/07/15 14:32:47 bisitz Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -53,7 +55,8 @@ sub handler { $origurl); $env{'request.state'} = "published"; $env{'request.filename'} = $origurl; - $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$origurl); + my $newurl = &Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$origurl; + $r->header_out(Location => $newurl); return REDIRECT; } else { $msg = 'Invalid passphrase'; @@ -103,7 +106,7 @@ function verify() { $r->print(&Apache::loncommon::start_data_table_row()); $r->print('
'. ''); + &mt('Submit passphrase').'" onclick="verify()" />'); $r->print(&Apache::loncommon::end_data_table_row()); $r->print(&Apache::loncommon::end_data_table()); $r->print('