--- loncom/auth/restrictedaccess.pm	2006/07/21 19:42:12	1.5
+++ 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';
@@ -73,8 +76,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,13 +100,13 @@ function verify() {
     $r->print('<br /><br /><br />');
     $r->print(&Apache::loncommon::start_data_table());
     $r->print(&Apache::loncommon::start_data_table_row());     
-    $r->print('<td><nobr>'.&mt('Passphrase: ').'</nobr></td>'.
+    $r->print('<td><span class="LC_nobreak">'.&mt('Passphrase: ').'</span></td>'.
               '<td><input type="password" size="20" name="pass1" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::start_data_table_row());
     $r->print('<td align="center" colspan="2"><br />'.
               '<input type="button" name="sendpass" value="'.
-              &mt('Submit passphrase').'" onClick="verify()" /></td>');
+              &mt('Submit passphrase').'" onclick="verify()" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::end_data_table());
     $r->print('<input type="hidden" name="origurl" value="'.