--- loncom/auth/restrictedaccess.pm 2006/07/22 23:10:45 1.6 +++ loncom/auth/restrictedaccess.pm 2013/06/02 02:20:33 1.9 @@ -1,6 +1,8 @@ # The LearningOnline Network # Passphrase Entry and Validation for Portfolio files # +# $Id: restrictedaccess.pm,v 1.9 2013/06/02 02:20:33 raeburn 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'; @@ -97,7 +100,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());