Diff for /loncom/auth/restrictedaccess.pm between versions 1.6 and 1.9

version 1.6, 2006/07/22 23:10:45 version 1.9, 2013/06/02 02:20:33
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 97  function verify() { Line 100  function verify() {
     $r->print('<br /><br /><br />');      $r->print('<br /><br /><br />');
     $r->print(&Apache::loncommon::start_data_table());      $r->print(&Apache::loncommon::start_data_table());
     $r->print(&Apache::loncommon::start_data_table_row());           $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>');                '<td><input type="password" size="20" name="pass1" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::start_data_table_row());      $r->print(&Apache::loncommon::start_data_table_row());

Removed from v.1.6  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>