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

Diff for /loncom/interface/lonmenu.pm between versions 1.317 and 1.320

version 1.317, 2010/03/11 16:35:12 version 1.320, 2010/03/22 15:10:10
Line 115  This gets called in the header section Line 115  This gets called in the header section
   
 =item innerregister()  =item innerregister()
   
 This gets called in order to register a URL, both with the Remote  This gets called in order to register a URL in the body of the document
 and in the body of the document  
   
 =item loadevents()  
   
 =item unloadevents()  
   
 =item get_menu_name()  
   
 =item clear()  =item clear()
   
Line 200  sub primary_menu { Line 193  sub primary_menu {
     my $menu;      my $menu;
     # each element of @primary contains following array:      # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition)      # (link url, icon path, alt text, link text, condition)
       my $public;
       if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
           || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
           $public = 1;
       }
     foreach my $menuitem (@primary_menu) {      foreach my $menuitem (@primary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)       ne 'ARRAY';    #          next if    ref($menuitem)       ne 'ARRAY';    #
Line 207  sub primary_menu { Line 205  sub primary_menu {
                 && &Apache::lonmsg::mynewmail();       # whether a new msg                   && &Apache::lonmsg::mynewmail();       # whether a new msg 
         next if    $$menuitem[4]        eq 'newmsg'    # arrived or not          next if    $$menuitem[4]        eq 'newmsg'    # arrived or not
                 && !&Apache::lonmsg::mynewmail();      #                   && !&Apache::lonmsg::mynewmail();      # 
         next if    $$menuitem[4]        !~ /public/    ##we've a public user,           next if    $$menuitem[4]        !~ /public/    ##we've a public user,
                 && $env{'user.name'}    eq 'public'    ##who should not see all                   && $public;                            ##who should not see all
                 && $env{'user.domain'}  eq 'public';   ##links                                                         ##links
         next if    $$menuitem[4]        eq 'onlypublic'# hide links which are           next if    $$menuitem[4]        eq 'onlypublic'# hide links which are 
                 && $env{'user.name'}    ne 'public'    # only visible to public                  && !$public;                           # only visible to public
                 && $env{'user.domain'}  ne 'public';   # users                                                         # users
         next if    $$menuitem[4]        eq 'roles'     ##show links depending on          next if    $$menuitem[4]        eq 'roles'     ##show links depending on
                 && &Apache::loncommon::show_course();  ##term 'Courses' or                   && &Apache::loncommon::show_course();  ##term 'Courses' or 
         next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted          next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
Line 259  sub secondary_menu { Line 257  sub secondary_menu {
                 && $crstype eq 'Community';                  && $crstype eq 'Community';
         next if    $$menuitem[4]  eq 'mdcCommunity'          next if    $$menuitem[4]  eq 'mdcCommunity'
                 && $crstype ne 'Community';                  && $crstype ne 'Community';
         next if    $$menuitem[4]  =~ /^remotenav/          next if    $$menuitem[4] =~ /^Course$/
                 && $env{'environment.remotenavmap'} ne 'on';  
         next if    $$menuitem[4]  =~ /noremotenav/  
                 && $env{'environment.remotenavmap'} eq 'on';  
         next if $$menuitem[4] =~ /^(no|)remotenav$/   
                 && $crstype eq 'Community';                  && $crstype eq 'Community';
         next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/           next if    $$menuitem[4] =~ /^Community$/
                 && $crstype ne 'Community';                  && $crstype ne 'Community';
         next if    $$menuitem[4]   =~ /showgroups$/          next if    $$menuitem[4]   =~ /showgroups$/
                 && !$canviewgrps                  && !$canviewgrps
Line 279  sub secondary_menu { Line 273  sub secondary_menu {
   
             $menu .= $roles_selector ? "<li>$roles_selector</li>"              $menu .= $roles_selector ? "<li>$roles_selector</li>"
                                      : '';                                       : '';
         } elsif ($env{'environment.remotenavmap'} eq 'on') {  
             # open link using javascript when remote navmap is activated  
             my @items = @{$menuitem};   
             if ($menuitem->[4] eq 'remotenav') {  
                 $items[0] = "javascript:gonav('$menuitem->[0]');";  
             } else {  
                 $items[0] = "javascript:go('$menuitem->[0]');";  
             }  
             $menu .= &prep_menuitem(\@items);  
         } else {          } else {
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
         }          }
Line 330  sub show_return_link { Line 315  sub show_return_link {
   
   
 sub registerurl {  sub registerurl {
     my ($forcereg) = @_;  
     my $result = '';  
     if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }      if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     my $force_title='';      return Apache::lonxml::display_title();
     if ($env{'request.state'} eq 'construct') {  
  $force_title=&Apache::lonxml::display_title();  
     }  
   return  
         $result  
        .'<script type="text/javascript">'."\n"  
        .'// <![CDATA['."\n"  
        .'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"  
        .'// ]]>'."\n"  
        .'</script>'  
        .$force_title;  
 }  }
   
 sub innerregister {  sub innerregister {
Line 366  sub innerregister { Line 338  sub innerregister {
   
         my $maptitle = &Apache::lonnet::gettitle($mapurl);          my $maptitle = &Apache::lonnet::gettitle($mapurl);
         my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());          my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
         my $contentstext;  
         if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {  #SD
             $contentstext = &mt('Community Contents');  #course_type only Course and Community?
         } else {  #
             $contentstext = &mt('Course Contents');          my @crumbs = ({text  => Apache::loncommon::course_type() 
         }                                  . ' Contents', 
         my @crumbs = ({text  => $contentstext,                          href  => "Javascript:gopost('/adm/navmaps','')"});
                        href  => "Javascript:gonav('/adm/navmaps')"});  
   
         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {           if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
             push(@crumbs, {text  => '...',              push(@crumbs, {text  => '...',
Line 703  sub edit_course_upload { Line 674  sub edit_course_upload {
     return $cfile;      return $cfile;
 }  }
   
 sub loadevents() {  
     if ($env{'request.state'} eq 'construct' ||  
  $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }  
     return 'LONCAPAreg();';  
 }  
   
 sub unloadevents() {  
     if ($env{'request.state'} eq 'construct' ||  
  $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }  
     return 'LONCAPAstale();';  
 }  
   
 sub get_menu_name {  
     my $hostid = $Apache::lonnet::perlvar{'lonHostID'};  
     $hostid =~ s/\W//g;  
     return 'LCmenu'.$hostid;  
 }  
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
 #SD  #SD
Line 747  sub switch { Line 700  sub switch {
     my $idx=10*$row+$col;      my $idx=10*$row+$col;
     $category_members{$cat}.=':'.$idx;      $category_members{$cat}.=':'.$idx;
   
 # Inline Remote  # Inline Menu
 #RC    $img=~s/\.gif$/\.png/;  
     if ($nobreak==2) { return ''; }      if ($nobreak==2) { return ''; }
     my $text=$top.' '.$bot;      my $text=$top.' '.$bot;
     $text=~s/\s*\-\s*//gs;      $text=~s/\s*\-\s*//gs;
Line 778  sub switch { Line 730  sub switch {
    }     }
     } else {      } else {
 # Inline Menu  # Inline Menu
 #SD look here  
        if ($env{'environment.icons'} eq 'iconsonly') {  
           $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';  
        } else {  
       $inlineremote[$idx]=        $inlineremote[$idx]=
        '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
        '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';         '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
        }  
     }      }
     return '';      return '';
 }  }
Line 1045  sub check_for_rcrs { Line 992  sub check_for_rcrs {
     return $showreqcrs;      return $showreqcrs;
 }  }
   
 # ====================================================================== Footer  
   
 sub nav_control_js {  
     my $nav=($env{'environment.remotenavmap'} eq 'on');  
     return (<<NAVCONTROL);  
     var w_loncapanav_flag="$nav";  
   
   
 function gonav(url) {  
    if (w_loncapanav_flag != 1) {  
       gopost(url,'');  
    }  else {  
       navwindow=window.open(url,  
                   "loncapanav","height=600,width=400,scrollbars=1");   
    }  
 }  
 NAVCONTROL  
 }  
   
 sub dc_popup_js {  sub dc_popup_js {
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                           more => '(More ...)',                                            more => '(More ...)',
Line 1098  sub utilityfunctions { Line 1026  sub utilityfunctions {
     $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));      $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
           
     my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});      my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
     my $nav_control=&nav_control_js();  
   
     my $dc_popup_cid;      my $dc_popup_cid;
     if ($env{'user.adv'} && exists($env{'user.role.dc./'.      if ($env{'user.adv'} && exists($env{'user.role.dc./'.
Line 1133  return (<<ENDUTILITY) Line 1060  return (<<ENDUTILITY)
     var reloadURL="$currenturl";      var reloadURL="$currenturl";
     var currentSymb="$currentsymb";      var currentSymb="$currentsymb";
   
 $nav_control  
 $dc_popup_cid  $dc_popup_cid
   
 function go(url) {  function go(url) {
Line 1309  sub constspaceform { Line 1235  sub constspaceform {
 ENDCONSTSPACEFORM  ENDCONSTSPACEFORM
 }  }
   
   
 sub get_nav_status {  
     my $navstatus="swmenu.w_loncapanav_flag=";  
     if ($env{'environment.remotenavmap'} eq 'on') {  
  $navstatus.="1";  
     } else {  
  $navstatus.="-1";  
     }  
     return $navstatus;  
 }  
   
 sub hidden_button_check {  sub hidden_button_check {
     my $hidden;  
     if ( $env{'request.course.id'} eq ''      if ( $env{'request.course.id'} eq ''
          || $env{'request.role.adv'} ) {           || $env{'request.role.adv'} ) {
   
Removed from v.1.317  
changed lines
  Added in v.1.320

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