loncom/auth/restrictedaccess.pm - diff

Return to restrictedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2009/02/13 17:20:26	version 1.10, 2013/07/15 14:32:47
Line 55 sub handler {	Line 55 sub handler {
$origurl);	$origurl);
$env{'request.state'} = "published";	$env{'request.state'} = "published";
$env{'request.filename'} = $origurl;	$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;	return REDIRECT;
} else {	} else {
$msg = 'Invalid passphrase';	$msg = 'Invalid passphrase';
Line 105 function verify() {	Line 106 function verify() {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print('<td align="center" colspan="2"><br />'.	$r->print('<td align="center" colspan="2"><br />'.
'<input type="button" name="sendpass" value="'.	'<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_row());
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
$r->print('<input type="hidden" name="origurl" value="'.	$r->print('<input type="hidden" name="origurl" value="'.