[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.171 and 1.1075.2.176

version 1.1075.2.171, 2024/10/06 00:30:26 version 1.1075.2.176, 2024/12/29 23:15:23
Line 5810  sub bodytag { Line 5810  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 5826  sub bodytag { Line 5829  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;
           }
   
         if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} eq 'construct')) {          if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} eq 'construct')) {
             unless ($env{'form.inhibitmenu'}) {              unless ($env{'form.inhibitmenu'}) {
Line 5842  sub bodytag { Line 5849  sub bodytag {
                 }                  }
                 $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 5860  sub bodytag { Line 5869  sub bodytag {
   
         #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
Line 5869  sub bodytag { Line 5881  sub bodytag {
                 $bodytag .= Apache::lonmenu::secondary_menu($httphost,$args->{'links_disabled'});                  $bodytag .= Apache::lonmenu::secondary_menu($httphost,$args->{'links_disabled'});
             }              }
             $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 5889  sub bodytag { Line 5903  sub bodytag {
                     $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');
               }
         }          }
   
         return $bodytag;          return $bodytag;
Line 5903  sub bodytag { Line 5919  sub bodytag {
 # Top frame rendering, Remote is up  # Top frame rendering, Remote is up
 #  #
   
       my $linkattr;
       if ($args->{'links_disabled'}) {
           $linkattr = 'class="LCisDisabled" aria-disabled="true"';
       }
   
     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 5916  sub bodytag { Line 5937  sub bodytag {
   
     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'}) {
Line 6107  body { Line 6132  body {
   line-height:130%;    line-height:130%;
   font-size:0.83em;    font-size:0.83em;
   color:$font;    color:$font;
     background-color: $pgbg_or_bgcolor;
 }  }
   
 a:focus,  a:focus,
Line 8122  sub headtag { Line 8148  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 8130  sub headtag { Line 8156  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();
Line 8504  $args - additional optional args support Line 8531  $args - additional optional args support
              no_auto_mt_title -> prevent &mt()ing the title arg               no_auto_mt_title -> prevent &mt()ing the title arg
              bread_crumbs ->             Array containing breadcrumbs               bread_crumbs ->             Array containing breadcrumbs
              bread_crumbs_component ->  if exists show it as headline else show only the breadcrumbs               bread_crumbs_component ->  if exists show it as headline else show only the breadcrumbs
                bread_crumbs_style -> breadcrumbs are contained within <div id="LC_breadcrumbs">,
                                      and &standard_css() contains CSS for #LC_breadcrumbs, if you want
                                      to override those values, or add to them, specify the value to
                                      include in the style attribute to include in the div tag by using
                                      bread_crumbs_style (e.g., overflow: visible)
              bread_crumbs_nomenu -> if true will pass false as the value of $menulink               bread_crumbs_nomenu -> if true will pass false as the value of $menulink
                                     to lonhtmlcommon::breadcrumbs                                      to lonhtmlcommon::breadcrumbs
              group          -> includes the current group, if page is for a               group          -> includes the current group, if page is for a
Line 8587  sub start_page { Line 8619  sub start_page {
                 }                  }
  #if bread_crumbs_component exists show it as headline else show only the breadcrumbs   #if bread_crumbs_component exists show it as headline else show only the breadcrumbs
  if(exists($args->{'bread_crumbs_component'})){   if(exists($args->{'bread_crumbs_component'})){
  $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'},'',$menulink);   $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'},
                                                                          '',$menulink,'',
                                                                          $args->{'bread_crumbs_style'});
  }else{   }else{
  $result .= &Apache::lonhtmlcommon::breadcrumbs('','',$menulink);   $result .= &Apache::lonhtmlcommon::breadcrumbs('','',$menulink,'',
                                                                          $args->{'bread_crumbs_style'});
  }   }
     } elsif (($env{'environment.remote'} eq 'on') &&      } elsif (($env{'environment.remote'} eq 'on') &&
              ($env{'form.inhibitmenu'} ne 'yes') &&               ($env{'form.inhibitmenu'} ne 'yes') &&
Removed from v.1.1075.2.171  
changed lines
  Added in v.1.1075.2.176

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