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

Diff for /loncom/interface/loncommon.pm between versions 1.1075.2.161.2.29 and 1.1075.2.161.2.31

version 1.1075.2.161.2.29, 2024/09/18 14:10:21 version 1.1075.2.161.2.31, 2024/10/08 20:39:54
Line 6419  sub bodytag { Line 6419  sub bodytag {
   
     my $funclist;      my $funclist;
     if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} ne 'construct')) {      if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} ne 'construct')) {
         $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions($httphost), 'start')."\n".          unless ($args->{'switchserver'}) {
                     Apache::lonmenu::serverform();              $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions($httphost), 'start')."\n".
         my $forbodytag;                          Apache::lonmenu::serverform();
         &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},              my $forbodytag;
                                             $forcereg,$args->{'group'},              &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
                                             $args->{'bread_crumbs'},                                                  $forcereg,$args->{'group'},
                                             $advtoolsref,'','',\$forbodytag);                                                  $args->{'bread_crumbs'},
         unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {                                                  $advtoolsref,'','',\$forbodytag);
             $funclist = $forbodytag;              unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
                   $funclist = $forbodytag;
               }
               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
         }          }
     } else {      } else {
   
Line 6435  sub bodytag { Line 6438  sub bodytag {
         #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
         #    }          #    }
   
         $bodytag .= Apache::lonhtmlcommon::scripttag(          my $need_endlcint;
             Apache::lonmenu::utilityfunctions($httphost), 'start');          unless ($args->{'switchserver'}) {
               $bodytag .= Apache::lonhtmlcommon::scripttag(
                   Apache::lonmenu::utilityfunctions($httphost), 'start');
               $need_endlcint = 1;
           }
   
         my $collapsible;          my $collapsible;
         if ($args->{'collapsible_header'} ne '') {          if ($args->{'collapsible_header'} ne '') {
Line 6460  sub bodytag { Line 6467  sub bodytag {
 <div class="LC_menus_content $divclass">  <div class="LC_menus_content $divclass">
 END  END
         }          }
         unless ($args->{'no_primary_menu'}) {          if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} eq 'construct')) {
               unless ($env{'form.inhibitmenu'}) {
                   $bodytag .= &inline_for_remote($public,$role,$realm,$dc_info,$no_inline_link);
               }
           } elsif (!$args->{'no_primary_menu'}) {
             my ($left,$right) = Apache::lonmenu::primary_menu($crstype,$ltimenu,$menucoll,$menuref,              my ($left,$right) = Apache::lonmenu::primary_menu($crstype,$ltimenu,$menucoll,$menuref,
                                                               $args->{'links_disabled'},                                                                $args->{'links_disabled'},
                                                               $args->{'links_target'},                                                                $args->{'links_target'},
Line 6471  END Line 6482  END
                 }                  }
                 $bodytag .= qq|<div id="LC_nav_bar">$left $role<br />                  $bodytag .= qq|<div id="LC_nav_bar">$left $role<br />
                                <em>$realm</em> $dc_info</div>|;                                 <em>$realm</em> $dc_info</div>|;
                   if ($need_endlcint) {
                       $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
                   }
                 return $bodytag;                  return $bodytag;
             }              }
   
Line 6488  END Line 6502  END
   
         #if directed to not display the secondary menu, don't.          #if directed to not display the secondary menu, don't.
         if ($args->{'no_secondary_menu'}) {          if ($args->{'no_secondary_menu'}) {
               if ($need_endlcint) {
                   $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
               }
             return $bodytag;              return $bodytag;
         }          }
         #don't show menus for public users          #don't show menus for public users
         if (!$public){          if (!$public){
             unless ($args->{'no_inline_menu'}) {              unless (($args->{'no_inline_menu'}) ||
                       (($env{'environment.remote'} eq 'on') &&
                        ($env{'request.state'} eq 'construct'))) {
                 $bodytag .= Apache::lonmenu::secondary_menu($httphost,$ltiscope,$ltimenu,                  $bodytag .= Apache::lonmenu::secondary_menu($httphost,$ltiscope,$ltimenu,
                                                             $args->{'no_primary_menu'},                                                              $args->{'no_primary_menu'},
                                                             $menucoll,$menuref,                                                              $menucoll,$menuref,
Line 6500  END Line 6519  END
                                                             $args->{'links_target'});                                                              $args->{'links_target'});
             }              }
             $bodytag .= Apache::lonmenu::serverform();              $bodytag .= Apache::lonmenu::serverform();
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');              if ($need_endlcint) {
                   $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
               }
             if ($env{'request.state'} eq 'construct') {              if ($env{'request.state'} eq 'construct') {
                 $bodytag .= &Apache::lonmenu::innerregister($forcereg,                  $bodytag .= &Apache::lonmenu::innerregister($forcereg,
                                 $args->{'bread_crumbs'},'','',$hostname,                                  $args->{'bread_crumbs'},'','',$hostname,
Line 6520  END Line 6541  END
                     $bodytag .= $forbodytag;                      $bodytag .= $forbodytag;
                 }                  }
             }              }
         }else{          } else {
             # this is to seperate menu from content when there's no secondary              # this is to separate menu from content when there's no secondary
             # menu. Especially needed for public accessible ressources.              # menu. Especially needed for public accessible ressources.
             $bodytag .= '<hr style="clear:both" />';              $bodytag .= '<hr style="clear:both" />';
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');               if ($need_endlcint) {
                   $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
               }
         }          }
         if ($args->{'collapsible_header'} ne '') {          if ($args->{'collapsible_header'} ne '') {
             $bodytag .= $args->{'collapsible_header'}.              $bodytag .= $args->{'collapsible_header'}.
Line 6538  END Line 6561  END
 # Top frame rendering, Remote is up  # Top frame rendering, Remote is up
 #  #
   
     my $imgsrc = $img;      my $linkattr;
     if ($img =~ /^\/adm/) {      if ($args->{'links_disabled'}) {
         $imgsrc = &lonhttpdurl($img);          $linkattr = 'class="LCisDisabled" aria-disabled="true"';
     }      }
     my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';  
   
     my $help=($no_inline_link?''      my $help=($no_inline_link?''
               :&Apache::loncommon::top_nav_help('Help'));                :&top_nav_help('Help',$linkattr));
   
     # Explicit link to get inline menu      # Explicit link to get inline menu
     my $menu= ($no_inline_link?''      my $menu= ($no_inline_link?''
                :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');                 :'<a href="/adm/remote?action=collapse" $linkattr target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
   
     if ($dc_info) {      if ($dc_info) {
         $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;          $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
Line 6557  END Line 6579  END
   
     my $name = &plainname($env{'user.name'},$env{'user.domain'});      my $name = &plainname($env{'user.name'},$env{'user.domain'});
     unless ($public) {      unless ($public) {
           my $class = 'LC_menubuttons_link';
           if ($args->{'links_disabled'}) {
               $class .= ' LCisDisabled';
           }
         $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},          $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},
                                 undef,'LC_menubuttons_link');                                  undef,$class);
     }      }
   
     unless ($env{'form.inhibitmenu'}) {      unless ($env{'form.inhibitmenu'}) {
         $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>          $bodytag .= &inline_for_remote($public,$role,$realm,$dc_info,$no_inline_link);
                        <ol class="LC_primary_menu LC_floatright LC_right">  
                        <li>$help</li>  
                        <li>$menu</li>  
                        </ol><div id="LC_realm"> $realm $dc_info</div>|;  
     }  
     if ($env{'request.state'} eq 'construct') {  
         if (!$public){  
             if ($env{'request.state'} eq 'construct') {  
                 $funclist = &Apache::lonhtmlcommon::scripttag(  
                                 &Apache::lonmenu::utilityfunctions($httphost), 'start').  
                             &Apache::lonhtmlcommon::scripttag('','end').  
                             &Apache::lonmenu::innerregister($forcereg,  
                                                             $args->{'bread_crumbs'});  
             }  
         }  
     }      }
     return $bodytag."\n".$funclist;      return $bodytag."\n".$funclist;
 }  }
   
   sub inline_for_remote {
       my ($public,$role,$realm,$dc_info,$no_inline_link) = @_;
       my $help=($no_inline_link?''
                 :&Apache::loncommon::top_nav_help('Help'));
   
       # Explicit link to get inline menu
       my $menu= ($no_inline_link?''
                  :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
   
       if ($dc_info) {
           $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
       }
   
       my $name = &plainname($env{'user.name'},$env{'user.domain'});
       unless ($public) {
           $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},
                                   undef,'LC_menubuttons_link');
       }
   
       return qq|<div id="LC_nav_bar">$name $role</div>
                 <ol class="LC_primary_menu LC_floatright LC_right">
                 <li>$help</li>
                 <li>$menu</li>
                 </ol><div id="LC_realm"> $realm $dc_info</div>|;
   }
   
 sub dc_courseid_toggle {  sub dc_courseid_toggle {
     my ($dc_info) = @_;      my ($dc_info) = @_;
     return ' <span id="dccidtext" class="LC_cusr_subheading LC_nobreak">'.      return ' <span id="dccidtext" class="LC_cusr_subheading LC_nobreak">'.
Line 8901  sub headtag { Line 8938  sub headtag {
         $inhibitprint = &print_suppression();          $inhibitprint = &print_suppression();
     }      }
   
     if (!$args->{'frameset'}) {      if (!$args->{'frameset'} && !$args->{'switchserver'}) {
  $result .= &Apache::lonhtmlcommon::htmlareaheaders();   $result .= &Apache::lonhtmlcommon::htmlareaheaders();
     }      }
     if ($args->{'force_register'}) {      if ($args->{'force_register'}) {
Line 8909  sub headtag { Line 8946  sub headtag {
     }      }
     if (!$args->{'no_nav_bar'}       if (!$args->{'no_nav_bar'} 
  && !$args->{'only_body'}   && !$args->{'only_body'}
  && !$args->{'frameset'}) {   && !$args->{'frameset'}
    && !$args->{'switchserver'}) {
  $result .= &help_menu_js($httphost);   $result .= &help_menu_js($httphost);
         $result.=&modal_window();          $result.=&modal_window();
         $result.=&togglebox_script();          $result.=&togglebox_script();
Removed from v.1.1075.2.161.2.29  
changed lines
  Added in v.1.1075.2.161.2.31

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