[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.43 and 1.44

version 1.43, 2012/11/29 20:13:49 version 1.44, 2013/09/07 19:58:08
Line 40  use Apache::lonextresedit(); Line 40  use Apache::lonextresedit();
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
 sub wrapper {  sub wrapper {
     my ($url,$brcrum) = @_;      my ($url,$brcrum,$absolute) = @_;
   
     my $forcereg;      my $forcereg;
     unless ($env{'form.folderpath'}) {      unless ($env{'form.folderpath'}) {
Line 54  sub wrapper { Line 54  sub wrapper {
     if (ref($brcrum) eq 'ARRAY') {      if (ref($brcrum) eq 'ARRAY') {
          $args->{'bread_crumbs'} = $brcrum;           $args->{'bread_crumbs'} = $brcrum;
     }      }
       if ($absolute) {
           $args->{'use_absolute'} = $absolute; 
       }
   
     my $startpage =  Apache::loncommon::start_page('Menu',undef,$args);      my $startpage =  Apache::loncommon::start_page('Menu',undef,$args);
     my $endpage =  Apache::loncommon::end_page();      my $endpage =  Apache::loncommon::end_page();
Line 103  sub handler { Line 106  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $url = $r->uri;      my $url = $r->uri;
     my ($is_ext,$brcrum);      my ($is_ext,$brcrum,$absolute);
   
     for ($url){      for ($url){
         s|^/adm/wrapper||;          s|^/adm/wrapper||;
Line 113  sub handler { Line 116  sub handler {
     }      }
   
     if ($is_ext) {      if ($is_ext) {
           my $hostname = $r->hostname();
           my $lonhost = &Apache::lonnet::host_from_dns($hostname);
           if ($lonhost) {
               my $actual = &Apache::lonnet::absolute_url($hostname);
               my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; 
               unless ($actual eq $expected) {
                   $absolute = $expected;
               }
           }
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
             ['forceedit','register','folderpath','symb','idx','title']);              ['forceedit','register','folderpath','symb','idx','title']);
         if (($env{'form.forceedit'}) &&          if (($env{'form.forceedit'}) &&
Line 160  sub handler { Line 172  sub handler {
         # encrypt url if not external          # encrypt url if not external
         &Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ;          &Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ;
   
         $r->print( wrapper($url,$brcrum) );          $r->print( wrapper($url,$brcrum,$absolute) );
   
     } # not just the menu      } # not just the menu
           
Removed from v.1.43  
changed lines
  Added in v.1.44

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