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="'. |