version 1.7, 2008/12/11 14:52:26
|
version 1.10, 2013/07/15 14:32:47
|
Line 1
|
Line 1
|
# The LearningOnline Network |
# The LearningOnline Network |
# Passphrase Entry and Validation for Portfolio files |
# Passphrase Entry and Validation for Portfolio files |
# |
# |
|
# $Id$ |
|
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
Line 53 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 103 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="'. |