[BACK]Return to lonsyllabus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsyllabus.pm between versions 1.138.2.5.2.1 and 1.149

version 1.138.2.5.2.1, 2020/01/14 01:04:39 version 1.149, 2021/04/29 17:45:22
Line 185  sub handler { Line 185  sub handler {
         }          }
     } elsif ($external=~/\w/) {      } elsif ($external=~/\w/) {
         unless ($allowed && $forceedit) {          unless ($allowed && $forceedit) {
               if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public') &&
                   ($ENV{'SERVER_PORT'} == 443) && ($external =~ m{^http://}) && !($env{'form.usehttp'})) {
                   my $hostname = $r->hostname();
                   unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl($hostname))) {
                       &redirect_to_http($r);
                       return OK;
                   }
               }
             if ($target eq 'tex') {              if ($target eq 'tex') {
                 $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}).                  $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}).
                          ' \strut \\\\ \textbf{'.&mt('Syllabus').'} \strut \\\\ '.$external.' '.                           ' \strut \\\\ \textbf{'.&mt('Syllabus').'} \strut \\\\ '.$external.' '.
Line 309  sub handler { Line 317  sub handler {
             my $hostname = &Apache::lonnet::hostname($homeserver);              my $hostname = &Apache::lonnet::hostname($homeserver);
             my $protocol = $Apache::lonnet::protocol{$homeserver};              my $protocol = $Apache::lonnet::protocol{$homeserver};
             $protocol = 'http' if ($protocol ne 'https');              $protocol = 'http' if ($protocol ne 'https');
             my $link = $r->uri;              my $link = $protocol.'://'.$hostname.$r->uri;
             if (($protocol eq 'https') && ($external =~ m{^http://})) {  
                 unless (&Apache::lonnet::uses_sts()) {  
                     $link .= '?usehttp=1';  
                     $protocol = 'http';  
                 }  
             }  
             $link = $protocol.'://'.$hostname.$link;  
             $r->print('<div class="LC_left_float">'              $r->print('<div class="LC_left_float">'
                      .'<span class="LC_help_open_topic LC_info">'                       .'<span class="LC_help_open_topic LC_info">'
                      .'<span class="LC_info">'                       .'<span class="LC_info">'
Line 1315  sub save_changes { Line 1316  sub save_changes {
                               &mt('An error occurred storing the external URL: [_1]',$putres).                                &mt('An error occurred storing the external URL: [_1]',$putres).
                               '</div>';                                '</div>';
                 }                  }
                 $is_ext = $external;  
             }              }
               $is_ext = $external;
         } else {          } else {
             $output = '<div class="LC_error">'.              $output = '<div class="LC_error">'.
                       &mt('External URL not saved -- invalid URL.').                        &mt('External URL not saved -- invalid URL.').
Line 1721  sub editbutton_js { Line 1722  sub editbutton_js {
 ENDJS  ENDJS
 }  }
   
   sub redirect_to_http {
       my ($r) = @_;
       &Apache::loncommon::content_type($r,'text/html');
       &Apache::loncommon::no_cache($r);
       $r->send_http_header;
       my $url = 'http://'.$r->hostname().$r->uri().'?usehttp=1';
       $r->print(&Apache::loncommon::start_page(undef,undef,
                                                {'redirect' => [0,$url],}).
                 &Apache::loncommon::end_page());
       return;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.138.2.5.2.1  
changed lines
  Added in v.1.149

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