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

Diff for /loncom/interface/lonmenu.pm between versions 1.413 and 1.432

version 1.413, 2013/05/06 15:02:49 version 1.432, 2015/04/16 10:13:25
Line 106  secondary_menu(). Line 106  secondary_menu().
   
 =item primary_menu()  =item primary_menu()
   
 This routine evaluates @primary_menu and returns XHTML for the menu  This routine evaluates @primary_menu and returns a two item array, 
 that contains following links: About, Message, Roles, Help, Logout  with the array elements containing XHTML for the left and right sides of 
   the menu that contains the following links: About, Message, Roles, Help, Logout 
 @primary_menu is filled within the BEGIN block of this module with   @primary_menu is filled within the BEGIN block of this module with 
 entries from mydesk.tab   entries from mydesk.tab
   
 =item secondary_menu()  =item secondary_menu()
   
Line 127  Inputs: 4 - (a) link and (b) target for Line 128  Inputs: 4 - (a) link and (b) target for
             (c) title for text wrapped by anchor tag in top level item.              (c) title for text wrapped by anchor tag in top level item.
             (d) reference to array of arrays of sub-menu items.              (d) reference to array of arrays of sub-menu items.
   
    The underlying datastructure used in (d) contains data from mydesk.tab.
    It consists of an array which has an array for each item appearing in
    the menu (e.g. [["link", "title", "condition"]] for a single-item menu).
    create_submenu() supports also the creation of XHTML for nested dropdown
    menus represented by unordered lists. This is done by replacing the
    scalar used for the link with an arrayreference containing the menuitems
    for the nested menu. This can be done recursively so that the next menu
    may also contain nested submenus.
   
    Example:
    [ # begin of datastructure
    ["/home/", "Home", "condition1"], # 1st item of the 1st layer menu
    [ # 2nd item of the 1st layer menu
    [ # anon. array for nested menu
    ["/path1", "Path1", undef], # 1st item of the 2nd layer menu
    ["/path2", "Path2", undef], # 2nd item of the 2nd layer menu
    [ # 3rd item of the 2nd layer menu
    [[...], [...], ..., [...]], # containing another menu layer
    "Sub-Sub-Menu", # title for this container
    undef
    ]
    ], # end of array/nested menu
    "Sub-Menu", # title for the container item
    undef
    ] # end of 2nd item of the 1st layer menu
   ]
   
 =item innerregister()  =item innerregister()
   
 This gets called in order to register a URL in the body of the document  This gets called in order to register a URL in the body of the document
Line 203  sub prep_menuitem { Line 231  sub prep_menuitem {
            . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;             . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
 }  }
   
 # primary_menu() evaluates @primary_menu and returns XHTML for the menu  # primary_menu() evaluates @primary_menu and returns a two item array,
 # that contains following links:  # with the array elements containing XHTML for the left and right sides of 
 # About, Message, Personal, Roles, Help, Logout  # the menu that contains the following links:
   # Personal, About, Message, Roles, Help, Logout
 # @primary_menu is filled within the BEGIN block of this module with   # @primary_menu is filled within the BEGIN block of this module with 
 # entries from mydesk.tab  # entries from mydesk.tab
 sub primary_menu {  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, position)
     my $public;      my $public;
     if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))      if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
         || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {          || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
Line 236  sub primary_menu { Line 265  sub primary_menu {
                 && !&Apache::loncommon::show_course(); ##                  && !&Apache::loncommon::show_course(); ##
                   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
           my $position = $menuitem->[5];
           if ($position eq '') {
               $position = 'right';
           }
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
Line 255  sub primary_menu { Line 288  sub primary_menu {
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if (@primsub > 0) {                  if (@primsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@primsub);                      if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {
                           $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                       } else {
                           $title = &mt($title);
                       }
                       $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);
                 } elsif ($link) {                  } elsif ($link) {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                      $menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 268  sub primary_menu { Line 306  sub primary_menu {
                                                                   'helpdeskmail',                                                                    'helpdeskmail',
                                                                   $defdom,$origmail);                                                                    $defdom,$origmail);
                 if ($to ne '') {                  if ($to ne '') {
                     $menu .= &prep_menuitem($menuitem);                       $menu{$position} .= &prep_menuitem($menuitem); 
                 }                  }
             } else {              } else {
                 $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';                  $menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
             }              }
         } else {          } else {
             $menu .= prep_menuitem($menuitem);              $menu{$position} .= prep_menuitem($menuitem);
         }          }
     }      }
     $menu =~ s/\[domain\]/$env{'user.domain'}/g;      my @output = ('','');
     $menu =~ s/\[user\]/$env{'user.name'}/g;      if ($menu{'left'} ne '') {
           $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";      }
       if ($menu{'right'} ne '') {
           $output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>";
       }
       return @output;
 }  }
   
 #returns hashref {user=>'',dom=>''} containing:  #returns hashref {user=>'',dom=>''} containing:
Line 309  sub getauthor{ Line 351  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
       my ($httphost) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 317  sub secondary_menu { Line 360  sub secondary_menu {
                                                : '');                                                 : '');
     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});      my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
     my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};      my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
       if ($canviewroster eq 'disabled') {
           undef($canviewroster);
       }
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);       my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);       my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);       my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
Line 325  sub secondary_menu { Line 371  sub secondary_menu {
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 333  sub secondary_menu { Line 379  sub secondary_menu {
             $showsyllabus = 1;              $showsyllabus = 1;
             $showfeeds = 1;              $showfeeds = 1;
         } else {          } else {
             unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum",'syllabus')) {              unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
                 $showsyllabus = 1;                  if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) ||
                       ($env{'request.course.syllabustime'})) {
                       $showsyllabus = 1;
                   }
               }
               if ($env{'request.course.feeds'}) {
                   $showfeeds = 1;
               }
           }
           unless ($canmgr) {
               my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
               if (keys(%slots) > 0) {
                   $showresv = 1;
             }              }
             if ($env{'course.'.$env{'request.course.id'}.'.feeds'}) {  
                 $showfeeds = 1;   
             }   
         }          }
     }      }
   
Line 376  sub secondary_menu { Line 433  sub secondary_menu {
                 && ($canmodifyuser || !$canviewroster);                  && ($canmodifyuser || !$canviewroster);
         next if    $$menuitem[4]   eq 'mgr'          next if    $$menuitem[4]   eq 'mgr'
                 && !$canmgr;                  && !$canmgr;
         next if    $$menuitem[4]   eq 'nmgr'          next if    $$menuitem[4]   eq 'showresv'
                 && $canmgr;                  && !$showresv;
         next if    $$menuitem[4]   eq 'whn'          next if    $$menuitem[4]   eq 'whn'
                 && !$canviewwnew;                  && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'          next if    $$menuitem[4]   eq 'opa'
Line 399  sub secondary_menu { Line 456  sub secondary_menu {
             ($roleswitcher_js,$roleswitcher_form,my $switcher) =              ($roleswitcher_js,$roleswitcher_form,my $switcher) =
                 &roles_selector(                  &roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},                          $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'}                          $env{'course.' . $env{'request.course.id'} . '.num'},
                           $httphost
                 );                  );
             $menu .= $switcher;              $menu .= $switcher;
         } else {          } else {
               if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
                   my $url = $$menuitem[0];
                   $url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
                   if (&Apache::lonnet::is_on_map($url)) {
                       unless ($$menuitem[0] =~ /\?register=1/) {
                           $$menuitem[0] .= '?register=1';
                       }
                   } else {
                       $$menuitem[0] =~ s{\?register=1}{};
                   }
               }
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
         }          }
     }      }
Line 440  sub secondary_menu { Line 509  sub secondary_menu {
 }  }
   
 sub create_submenu {  sub create_submenu {
     my ($link,$target,$title,$submenu) = @_;      my ($link,$target,$title,$submenu,$translate) = @_;
     return unless (ref($submenu) eq 'ARRAY');      return unless (ref($submenu) eq 'ARRAY');
     my $disptarget;      my $disptarget;
     if ($target ne '') {      if ($target ne '') {
Line 448  sub create_submenu { Line 517  sub create_submenu {
     }      }
     my $menu = '<li class="LC_hoverable">'.      my $menu = '<li class="LC_hoverable">'.
                '<a href="'.$link.'"'.$disptarget.'>'.                 '<a href="'.$link.'"'.$disptarget.'>'.
                '<span class="LC_nobreak">'.&mt($title).                 '<span class="LC_nobreak">'.$title.
                '<span class="LC_fontsize_small" style="font-weight:normal;">'.                 '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                ' &#9660;</span></span></a>'.                 ' &#9660;</span></span></a>'.
                '<ul>';                 '<ul>';
   
       # $link and $title are only used in the initial string written in $menu
       # as seen above, not needed for nested submenus
       $menu .= &build_submenu($target, $submenu, $translate, '1');
       $menu .= '</ul></li>';
   
       return $menu;
   }
   
   # helper routine for create_submenu
   # build the dropdown (and nested submenus) recursively
   # see perldoc create_submenu documentation for further information
   sub build_submenu {
       my ($target, $submenu, $translate, $first_level) = @_; 
       if (!defined(@{$submenu})) {
           return '';
       }
   
       my $menu = '';
     my $count = 0;      my $count = 0;
     my $numsub = scalar(@{$submenu});      my $numsub = scalar(@{$submenu});
     foreach my $item (@{$submenu}) {      foreach my $item (@{$submenu}) {
         $count ++;          $count ++;
         if (ref($item) eq 'ARRAY') {          if (ref($item) eq 'ARRAY') {
               my $href = $item->[0];
               my $bordertop;
             my $borderbot;              my $borderbot;
               my $title;
   
               if ($translate) {
                    $title = &mt($item->[1]);
               } else {
                   $title = $item->[1];
               }
   
               if ($count == 1 && !$first_level) {
                   $bordertop = 'border-top: 1px solid black;';
               }
             if ($count == $numsub) {              if ($count == $numsub) {
                 $borderbot = 'border-bottom:1px solid black;';                  $borderbot = 'border-bottom: 1px solid black;';
               }
   
               # href is a reference to another submenu
               if (ref($href) eq 'ARRAY') {
                   $menu .= '<li style="margin:0;padding:0;'.$bordertop . $borderbot . '">';
                   $menu .= '<p><span class="LC_primary_menu_innertitle">'
    . $title . '</span><span class="LC_primary_menu_innerarrow">&#9654;</span></p>';
                   $menu .= '<ul>';
                   $menu .= &build_submenu($target, $href, $translate);
                   $menu .= '</ul>';
                   $menu .= '</li>';    
               } else {    # href is the actual hyperlink and does not represent another submenu
                           # for the current menu title
                   if ($href =~ /(aboutme|rss\.html)$/) {
                       next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
                       $href =~ s/\[domain\]/$env{'user.domain'}/g;
                       $href =~ s/\[user\]/$env{'user.name'}/g;
                   }
                   unless (($href eq '') || ($href =~ /^\#/)) {
                       $target = ' target="_top"';
                   }
   
                   $menu .= '<li style="margin:0;padding:0;'. $bordertop . $borderbot .'">';
                   $menu .= '<a href="'.$href.'"'.$target.'>' .  $title . '</a>';
                   $menu .= '</li>';
             }              }
             $menu .= '<li style="margin:0;padding:0;'.  
                      $borderbot.'"><a href="'.$item->[0].'">'.  
                      &mt($item->[1]).'</a></li>';  
         }          }
     }      }
     $menu .= '</ul></li>';  
     return $menu;      return $menu;
 }  }
   
Line 691  ENDMENUITEMS Line 813  ENDMENUITEMS
                 # wishlist is only available for users with access to resource-pool                  # wishlist is only available for users with access to resource-pool
                 # and links can only be set for resources within the resource-pool                  # and links can only be set for resources within the resource-pool
                 $menuitems .= (<<ENDMENUITEMS);                  $menuitems .= (<<ENDMENUITEMS);
 s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
                 $got_wishlist = 1;                  $got_wishlist = 1;
             }              }
Line 707  if(length($annotation) > 0){ Line 829  if(length($annotation) > 0){
 }  }
 $menuitems.="&Notes&&annotate()&";  $menuitems.="&Notes&&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   my $is_mobile;
   if ($env{'browser.mobile'}) {
       $is_mobile = 1;
   }
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||
                           ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) {  
                     $menuitems.=(<<ENDREALRES);                      $menuitems.=(<<ENDREALRES);
 s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
 ENDREALRES  ENDREALRES
                 }                  }
                 $menuitems.=(<<ENDREALRES);                  unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) {
                       $menuitems.=(<<ENDREALRES);
 s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
 ENDREALRES  ENDREALRES
                   }
     }      }
         }          }
  if ($env{'request.uri'} =~ /^\/res/) {   if ($env{'request.uri'} =~ /^\/res/) {
Line 931  sub prepare_functions { Line 1060  sub prepare_functions {
             unless (&Apache::lonnet::is_course($sdom,$sname)) {              unless (&Apache::lonnet::is_course($sdom,$sname)) {
                 &switch('','',6,4,'mail-message-new-22x22.png','Message to user',                  &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                         '',                          '',
                         "go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",                          "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",
                             'Send message to specific user');                              'Send message to specific user');
             }              }
             my $hideprivileged = 1;              my $hideprivileged = 1;
Line 953  sub prepare_functions { Line 1082  sub prepare_functions {
                 if ($perms{'vgr'}) {                  if ($perms{'vgr'}) {
                     &switch('','',6,6,'rsrv-22x22.png','Reservations',                      &switch('','',6,6,'rsrv-22x22.png','Reservations',
                             '',                              '',
                             "go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",                              "go('/adm/slotrequest?command=showresv&amp;origin=aboutme&amp;uname=$sname&amp;udom=$sdom')",
                             'Slot reservation history');                              'Slot reservation history');
                 }                  }
                 if ($perms{'srm'}) {                  if ($perms{'srm'}) {
                     &switch('','',6,7,'contact-new-22x22.png','Records',                      &switch('','',6,7,'contact-new-22x22.png','Records',
                             '',                              '',
                             "go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",                              "go('/adm/email?recordftf=retrieve&amp;recname=$sname&amp;recdom=$sdom')",
                             'Add records');                              'Add records');
                 }                  }
             }              }
Line 975  sub prepare_functions { Line 1104  sub prepare_functions {
             if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {              if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {
                 my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));                  my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
                 &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',                  &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
                         "location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'",                          "location.href='/adm/coursedocs?command=direct&amp;forcesupplement=1&amp;supppath=$esc_path'",
                         'Folder/Page Content');                          'Folder/Page Content');
             }              }
         }          }
Line 1165  sub rawconfig { Line 1294  sub rawconfig {
     my $pub=($env{'request.state'} eq 'published');      my $pub=($env{'request.state'} eq 'published');
     my $con=($env{'request.state'} eq 'construct');      my $con=($env{'request.state'} eq 'construct');
     my $rol=$env{'request.role'};      my $rol=$env{'request.role'};
     my $requested_domain = $env{'request.role.domain'};      my $requested_domain;
       if ($rol) {
          $requested_domain = $env{'request.role.domain'};
       }
     foreach my $line (@desklines) {      foreach my $line (@desklines) {
         my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);          my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
         $prt=~s/\$uname/$uname/g;          $prt=~s/\$uname/$uname/g;
Line 1179  sub rawconfig { Line 1311  sub rawconfig {
             next if ($crstype ne 'Community');              next if ($crstype ne 'Community');
             $prt=~s/\$cmty/$crs/g;              $prt=~s/\$cmty/$crs/g;
         }          }
         $prt=~s/\$requested_domain/$requested_domain/g;          if ($prt =~ m/\$requested_domain/) {
               if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) {
                   $prt=~s/\$requested_domain/$env{'user.domain'}/g;
               } else {
                   $prt=~s/\$requested_domain/$requested_domain/g;
               }
           }
         if ($category_names{$cat}!~/\w/) { $cat='oth'; }          if ($category_names{$cat}!~/\w/) { $cat='oth'; }
         if ($pro eq 'clear') {          if ($pro eq 'clear') {
     $output.=&clear($row,$col);      $output.=&clear($row,$col);
Line 1215  sub rawconfig { Line 1353  sub rawconfig {
                     next;                      next;
                 }                  }
             }              }
     if (&Apache::lonnet::allowed($priv,$prt)) {              if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) ||
                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                  (($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) {
                   $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
             }              }
         } elsif ($pro eq 'course')  {          } elsif ($pro eq 'course')  {
             if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {              if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
Line 1326  sub rawconfig { Line 1465  sub rawconfig {
   
 sub check_for_rcrs {  sub check_for_rcrs {
     my $showreqcrs = 0;      my $showreqcrs = 0;
     my @reqtypes = ('official','unofficial','community');      my @reqtypes = ('official','unofficial','community','textbook');
     foreach my $type (@reqtypes) {      foreach my $type (@reqtypes) {
         if (&Apache::lonnet::usertools_access($env{'user.name'},          if (&Apache::lonnet::usertools_access($env{'user.name'},
                                               $env{'user.domain'},                                                $env{'user.domain'},
Line 1393  END Line 1532  END
 }  }
   
 sub utilityfunctions {  sub utilityfunctions {
       my ($httphost) = @_;
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     if ($currenturl =~ m{^/adm/wrapper/ext/}      if ($currenturl =~ m{^/adm/wrapper/ext/}
         && $env{'request.external.querystring'} ) {          && $env{'request.external.querystring'} ) {
Line 1427  sub utilityfunctions { Line 1567  sub utilityfunctions {
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
 return (<<ENDUTILITY)      my $hostvar = '
   function setLCHost() {
       var lcHostname="";
   ';
       if ($httphost =~ m{^https?\://}) {
           $hostvar .= '    var lcServer="'.$httphost.'";'."\n".
                       '    var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n".
                       '    var match = hostReg.exec(lcServer);'."\n".
                       '    if (match.length) {'."\n".
                       '        if (match[1] == location.hostname) {'."\n".
                       '            lcHostname=lcServer;'."\n".
                       '        }'."\n".
                       '    }'."\n";
       }
       
       $hostvar .= '    return lcHostname;'."\n".
   '}'."\n";
   
   return (<<ENDUTILITY)
       $hostvar
     var currentURL=unescape("$esc_url");      var currentURL=unescape("$esc_url");
     var reloadURL=unescape("$esc_url");      var reloadURL=unescape("$esc_url");
     var currentSymb=unescape("$esc_symb");      var currentSymb=unescape("$esc_symb");
Line 1439  $jumptores Line 1597  $jumptores
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value=postdata;        this.document.server.postdata.value=postdata;
       this.document.server.command.value='';        this.document.server.command.value='';
       this.document.server.url.value='';        this.document.server.url.value='';
Line 1450  function gopost(url,postdata) { Line 1609  function gopost(url,postdata) {
   
 function gocmd(url,cmd) {  function gocmd(url,cmd) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value='';        this.document.server.postdata.value='';
       this.document.server.command.value=cmd;        this.document.server.command.value=cmd;
       this.document.server.url.value=currentURL;        this.document.server.url.value=currentURL;
Line 1502  function golist(url) { Line 1662  function golist(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        top.location.href=url;         var lcHostname = setLCHost();
          top.location.href=lcHostname+url;
    }     }
 }  }
   
   
   
 function catalog_info() {  function catalog_info(isMobile) {
    openMyModal(window.location.pathname+'.meta',500,400,'yes');      if (isMobile == 1) {
           openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');
       } else {
           loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
       }
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');     var lcHostname = setLCHost();
      lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function group_chat(group) {  function group_chat(group) {
    var url = '/adm/groupchat?group='+group;     var lcHostname = setLCHost();
      var url = lcHostname+'/adm/groupchat?group='+group;
    var winName = 'LONchat_'+group;     var winName = 'LONchat_'+group;
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
Line 1537  function annotate() { Line 1704  function annotate() {
   
 function open_StoredLinks_Import(rat) {  function open_StoredLinks_Import(rat) {
    var newWin;     var newWin;
      var lcHostname = setLCHost();
    if (rat) {     if (rat) {
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    else {     else {
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import',
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    newWin.focus();     newWin.focus();
Line 1607  sub hidden_button_check { Line 1775  sub hidden_button_check {
 }  }
   
 sub roles_selector {  sub roles_selector {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum,$httphost) = @_;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     my $now = time;      my $now = time;
     my (%courseroles,%seccount,%courseprivs);      my (%courseroles,%seccount,%courseprivs);
     my $is_cc;      my $is_cc;
     my ($js,$form,$switcher,$switchtext);      my ($js,$form,$switcher);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
Line 1700  sub roles_selector { Line 1868  sub roles_selector {
             }              }
         }          }
     }      }
     $switchtext = &mt('Switch role');  
     my @roles_order = ($ccrole,'in','ta','ep','ad','st');      my @roles_order = ($ccrole,'in','ta','ep','ad','st');
     my $numdiffsec;      my $numdiffsec;
     if (keys(%seccount) == 1) {      if (keys(%seccount) == 1) {
Line 1712  sub roles_selector { Line 1879  sub roles_selector {
         my @submenu;          my @submenu;
         $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);          $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
         $form =           $form = 
             '<form name="rolechooser" method="post" action="/adm/roles">'."\n".              '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".
             '  <input type="hidden" name="destinationurl" value="'.              '  <input type="hidden" name="destinationurl" value="'.
             &HTML::Entities::encode($destinationurl).'" />'."\n".              &HTML::Entities::encode($destinationurl).'" />'."\n".
             '  <input type="hidden" name="gotorole" value="1" />'."\n".              '  <input type="hidden" name="gotorole" value="1" />'."\n".
Line 1756  sub roles_selector { Line 1923  sub roles_selector {
             }              }
         }          }
         if (@submenu > 0) {          if (@submenu > 0) {
             $switcher = &create_submenu('','',$switchtext,\@submenu);              $switcher = &create_submenu('','',&mt('Switch role'),\@submenu);
         }          }
     }      }
     return ($js,$form,$switcher);      return ($js,$form,$switcher);
Line 2084  BEGIN { Line 2251  BEGIN {
                         $category_positions{$entries[2]}=$entries[1];                          $category_positions{$entries[2]}=$entries[1];
                         $category_names{$entries[2]}=$entries[3];                          $category_names{$entries[2]}=$entries[3];
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..6];
                         push(@primary_menu,\@entries);                          push(@primary_menu,\@entries);
                     } elsif ($configline=~/^primsub\:/) {                      } elsif ($configline=~/^primsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..4];
Removed from v.1.413  
changed lines
  Added in v.1.432

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