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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.144 and 1.148

version 1.144, 2018/12/27 18:14:25 version 1.148, 2020/01/20 16:27:54
Line 177  sub handler { Line 177  sub handler {
                         $brcrum =                          $brcrum =
                             &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                              &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                     }                      }
                     $r->print(&Apache::lonwrapper::wrapper($item,$brcrum,$env{'request.use_absolute'},                      $r->print(&Apache::lonwrapper::wrapper($r,$item,$brcrum,$env{'request.use_absolute'},
                                                            undef,$is_pdf,undef,&mt('Syllabus')));                                                             undef,$is_pdf,undef,'','',&mt('Syllabus')));
                 }                  }
             }              }
             return OK;              return OK;
         }          }
     } 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'})) {
                   unless (&Apache::lonnet::uses_sts()) {
                       &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 204  sub handler { Line 211  sub handler {
                     $brcrum =                      $brcrum =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 }                  }
                 $r->print(&Apache::lonwrapper::wrapper($external,$brcrum,$env{'request.use_absolute'},                  $r->print(&Apache::lonwrapper::wrapper($r,$external,$brcrum,$env{'request.use_absolute'},
                                                        $is_ext,$is_pdf,undef,&mt('Syllabus')));                                                         $is_ext,$is_pdf,undef,'','',&mt('Syllabus')));
             }              }
             return OK;              return OK;
         }          }
Line 309  sub handler { Line 316  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://})) {  
                 $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 1719  sub editbutton_js { Line 1721  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.144  
changed lines
  Added in v.1.148

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