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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.32 and 1.369.2.45

version 1.369.2.32, 2012/12/31 14:54:55 version 1.369.2.45, 2013/08/08 02:31:11
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 223  sub prep_menuitem { Line 224  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 256  sub primary_menu { Line 258  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 268  sub primary_menu { Line 274  sub primary_menu {
             if (ref($primary_submenu{$title}) eq 'ARRAY') {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
                 foreach my $item (@{$primary_submenu{$title}}) {                  foreach my $item (@{$primary_submenu{$title}}) {
                     next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));                       next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); 
                     next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));  
                     next if ((($item->[2] eq 'portfolio') ||                       next if ((($item->[2] eq 'portfolio') || 
                              ($item->[2] eq 'blog')) &&                                ($item->[2] eq 'blog')) && 
                              (!&Apache::lonnet::usertools_access('','',$item->[2],                               (!&Apache::lonnet::usertools_access('','',$item->[2],
Line 276  sub primary_menu { Line 281  sub primary_menu {
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if (@primsub > 0) {                  if (@primsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@primsub);                      $menu{$position} .= &create_submenu($link,$target,$title,\@primsub);
                 } 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 289  sub primary_menu { Line 294  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;      return ("<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>",
     $menu =~ s/\[user\]/$env{'user.name'}/g;              "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>");
   
     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";  
 }  }
   
 #returns hashref {user=>'',dom=>''} containing:  #returns hashref {user=>'',dom=>''} containing:
Line 338  sub secondary_menu { Line 341  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 346  sub secondary_menu { Line 352  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,$showresv);
       if ($env{'request.course.id'}) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           unless ($canedit) {
               unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
                   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;
               }
           }
       }
   
     my ($canmodifycoauthor);      my ($canmodifycoauthor);
     if ($env{'request.role'} eq "au./$env{'user.domain'}/") {      if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
         my $extent = "$env{'user.domain'}/$env{'user.name'}";          my $extent = "$env{'user.domain'}/$env{'user.name'}";
Line 384  sub secondary_menu { Line 415  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'
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   eq 'nvcg'          next if    $$menuitem[4]   eq 'nvcg'
                 && ($canviewgrps || !%groups);                  && ($canviewgrps || !%groups);
           next if    $$menuitem[4]   eq 'showsyllabus'
                   && !$showsyllabus;
           next if    $$menuitem[4]   eq 'showfeeds'
                   && !$showfeeds;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
         next if    $$menuitem[4]    eq 'cca'          next if    $$menuitem[4]    eq 'cca'
Line 406  sub secondary_menu { Line 441  sub secondary_menu {
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
             my @scndsub;                 my @scndsub;
             if (ref($secondary_submenu{$title}) eq 'ARRAY') {              if (ref($secondary_submenu{$title}) eq 'ARRAY') {
                 foreach my $item (@{$secondary_submenu{$title}}) {                  foreach my $item (@{$secondary_submenu{$title}}) {
                     if (ref($item) eq 'ARRAY') {                      if (ref($item) eq 'ARRAY') {
Line 415  sub secondary_menu { Line 450  sub secondary_menu {
                         next if ($item->[2] eq 'cst' && !$canmodifyuser);                          next if ($item->[2] eq 'cst' && !$canmodifyuser);
                         next if ($item->[2] eq 'mgr' && !$canmgr);                          next if ($item->[2] eq 'mgr' && !$canmgr);
                         next if ($item->[2] eq 'vcg' && !$canviewgrps);                          next if ($item->[2] eq 'vcg' && !$canviewgrps);
                           next if ($item->[2] eq 'mdc' && !$canedit);
                         push(@scndsub,$item);                           push(@scndsub,$item); 
                     }                      }
                 }                  }
                 if (@scndsub > 0) {                  if (@scndsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@scndsub);                      $menu .= &create_submenu($link,$target,$title,\@scndsub);
                 } elsif ($link) {                  } elsif ($link ne '#') {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                      $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
                 }                  }
             }              }
Line 433  sub secondary_menu { Line 469  sub secondary_menu {
                 );                  );
             $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 456  sub secondary_menu { Line 503  sub secondary_menu {
     }      }
     $menu =~ s/\[uname\]/$$author{user}/g;      $menu =~ s/\[uname\]/$$author{user}/g;
     $menu =~ s/\[udom\]/$$author{dom}/g;      $menu =~ s/\[udom\]/$$author{dom}/g;
       if ($env{'request.course.id'}) {  
           $menu =~ s/\[cnum\]/$cnum/g;
           $menu =~ s/\[cdom\]/$cdom/g;
       }
     if ($menu) {      if ($menu) {
         $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";          $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
     }      }
Line 472  sub create_submenu { Line 523  sub create_submenu {
     if ($target ne '') {      if ($target ne '') {
         $disptarget = ' target="'.$target.'"';          $disptarget = ' target="'.$target.'"';
     }      }
       my $name;
       if ($title eq 'Personal') {
           if ($env{'user.name'} && $env{'user.domain'}) {
               $name = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
           } else {
               $name = &mt($title);
           }
       } else {
           $name = &mt($title);
       }
     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">'.$name.
                '<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>';
Line 483  sub create_submenu { Line 544  sub create_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];
               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;
               }
             my $borderbot;              my $borderbot;
             if ($count == $numsub) {              if ($count == $numsub) {
                 $borderbot = 'border-bottom:1px solid black;';                  $borderbot = 'border-bottom:1px solid black;';
             }              }
             $menu .= '<li style="margin:0;padding:0;'.              $menu .= '<li style="margin:0;padding:0;'.
                      $borderbot.'"><a href="'.$item->[0].'">'.                       $borderbot.'"><a href="'.$href.'">'.
                      &mt($item->[1]).'</a></li>';                       &mt($item->[1]).'</a></li>';
         }          }
     }      }
Line 605  sub innerregister { Line 672  sub innerregister {
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 }                  }
                 return $trail;                  return $trail;
               } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &prepare_functions('/public'.$courseurl."/syllabus",
                                      $forcereg,$group,undef,undef,1);
                   $title = &mt('Syllabus File');
                   my ($trail) =
                       &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   return $trail;
             }              }
             unless ($env{'request.state'} eq 'construct') {              unless ($env{'request.state'} eq 'construct') {
                 &Apache::lonhtmlcommon::clear_breadcrumbs();                  &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 637  sub innerregister { Line 712  sub innerregister {
             $forceview,$editbutton);              $forceview,$editbutton);
         if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) ||          if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) ||
             ($env{'request.role'} !~/^(aa|ca|au)/)) {              ($env{'request.role'} !~/^(aa|ca|au)/)) {
               if (($env{'environment.remote'} eq 'on') && ($env{'request.symb'})) {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
               }
             $editbutton = &prepare_functions($resurl,$forcereg,$group);              $editbutton = &prepare_functions($resurl,$forcereg,$group);
         }          }
         if ($editbutton eq '') {          if ($editbutton eq '') {
Line 1221  sub get_editbutton { Line 1299  sub get_editbutton {
             $icon = 'tolastloc.png';              $icon = 'tolastloc.png';
             $label = 'Exit Editing';              $label = 'Exit Editing';
         }          }
         &switch('','',6,1,$icon,$label,'resource[_2]',          my $infunc = 1;
                 $jscall,"Edit this resource");          my $clearbutton;
         return 1;          if ($env{'environment.remote'} eq 'on') {
               if ($cfile =~ m{^/priv/}) {
                   undef($infunc);
                   $label = 'edit';
               } else {
                   $clearbutton = 1;
               }
           }
           my $editor = &switch('','',6,1,$icon,$label,'resource[_2]',
                                $jscall,"Edit this resource",'','',$infunc);
           if ($infunc) {
               return 1;
           } elsif ($clearbutton) {
               return &clear(6,1);
           } else {
               return $editor;
           }
     }      }
     return;      return;
 }  }
   
 sub prepare_functions {  sub prepare_functions {
     my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;      my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$forbodytag) = @_;
     unless ($env{'request.registered'}) {      unless ($env{'request.registered'}) {
         undef(@inlineremote);          undef(@inlineremote);
     }      }
Line 1274  sub prepare_functions { Line 1368  sub prepare_functions {
 #  #
 # This applies in course context  # This applies in course context
 #  #
         if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {          if (($perms{'mdc'}) &&
             if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {              (($resurl eq "/public/$cdom/$cnum/syllabus") ||
                 &switch('','',6,1,'pcstr.png','Edit',              ($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) {
                         'resource[_2]',              $cfile = $resurl;
                         "go('/adm/courseprefs?phase=display&actions=courseinfo')",              $home = &Apache::lonnet::homeserver($cnum,$cdom);
                         'Edit this resource');              if ($env{'form.forceedit'}) {
                 $editbutton = 1;                  $forceview = 1;
             } else {              } else {
                 $cfile = $resurl;                  $forceedit = 1;
                 $home = &Apache::lonnet::homeserver($cnum,$cdom);  
                 if ($env{'form.forceedit'}) {  
                     $forceview = 1;  
                 } else {  
                     $forceedit = 1;  
                 }  
                 $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                               $forceedit,$forceview,$forcereg);  
             }              }
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
         } elsif (($resurl eq '/adm/extresedit') &&          } elsif (($resurl eq '/adm/extresedit') &&
                  (($env{'form.symb'}) || ($env{'form.folderpath'}))) {                   (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
             ($cfile,$home,$switchserver,$forceedit,$forceview) =              ($cfile,$home,$switchserver,$forceedit,$forceview) =
Line 1332  sub prepare_functions { Line 1420  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','','',1);
             }              }
             my $hideprivileged = 1;              my $hideprivileged = 1;
             if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,              if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
Line 1349  sub prepare_functions { Line 1437  sub prepare_functions {
                     &switch('','',6,5,'trck-22x22.png','Activity',                      &switch('','',6,5,'trck-22x22.png','Activity',
                             '',                              '',
                             "go('/adm/trackstudent?selected_student=$sname:$sdom')",                              "go('/adm/trackstudent?selected_student=$sname:$sdom')",
                             'View recent activity by this person');                              'View recent activity by this person','','',1);
                 }                  }
                 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','','',1);
                 }                  }
                 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','','',1);
                 }                  }
             }              }
         }          }
Line 1376  sub prepare_functions { Line 1464  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','','',1);
             }              }
         }          }
     }      }
Line 1387  sub prepare_functions { Line 1475  sub prepare_functions {
         &Apache::lonhtmlcommon::clear_breadcrumb_tools();          &Apache::lonhtmlcommon::clear_breadcrumb_tools();
         &advtools_crumbs(@inlineremote);          &advtools_crumbs(@inlineremote);
         return $editbutton;          return $editbutton;
     } elsif ($env{'request.registered'}) {      } elsif (($env{'request.registered'}) && (!ref($forbodytag))) {
         return $editbutton;          return $editbutton;
     } else {      } else {
         if (ref($bread_crumbs) eq 'ARRAY') {          if (ref($bread_crumbs) eq 'ARRAY') {
Line 1400  sub prepare_functions { Line 1488  sub prepare_functions {
         } elsif (@inlineremote > 0) {          } elsif (@inlineremote > 0) {
             &Apache::lonhtmlcommon::clear_breadcrumb_tools();              &Apache::lonhtmlcommon::clear_breadcrumb_tools();
             &advtools_crumbs(@inlineremote);              &advtools_crumbs(@inlineremote);
             return   &Apache::lonhtmlcommon::scripttag('', 'start')              if (ref($forbodytag)) {
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)                  $$forbodytag =
                    . &Apache::lonhtmlcommon::scripttag('', 'end');                      &Apache::lonhtmlcommon::scripttag('', 'start')
                      .&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                      .&Apache::lonhtmlcommon::scripttag('', 'end');
               }
               return;
         }          }
     }      }
 }  }
Line 1417  sub advtools_crumbs { Line 1509  sub advtools_crumbs {
             'advtools', @funcs[61,71,72,73,74,92]);              'advtools', @funcs[61,71,72,73,74,92]);
     } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {      } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
             'advtools', @funcs[61]);              'advtools', $funcs[61]);
     }      }
 }  }
   
Line 1439  sub clear { Line 1531  sub clear {
 # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".  # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
   
 sub switch {  sub switch {
     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak)=@_;      my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_;
     $act=~s/\$uname/$uname/g;      $act=~s/\$uname/$uname/g;
     $act=~s/\$udom/$udom/g;      $act=~s/\$udom/$udom/g;
     $top=&mt($top);      $top=&mt($top);
Line 1448  sub switch { Line 1540  sub switch {
     my $idx=10*$row+$col;      my $idx=10*$row+$col;
     $category_members{$cat}.=':'.$idx;      $category_members{$cat}.=':'.$idx;
   
     if ($env{'environment.remote'} eq 'on') {      if (($env{'environment.remote'} eq 'on') && (!$infunc)) {
         if (($row<1) || ($row>13)) { return ''; }          if (($row<1) || ($row>13)) { return ''; }
         if ($env{'request.state'} eq 'construct') {          if ($env{'request.state'} eq 'construct') {
             my $text = $top.' '.$bot;              my $text = $top.' '.$bot;
Line 2182  sub roles_selector { Line 2274  sub roles_selector {
             }              }
         }          }
     }      }
     my $switchtext;      $switchtext = &mt('Switch role');
     if ($crstype eq 'Community') {  
         $switchtext = &mt('Switch community role')  
     } else {  
         $switchtext = &mt('Switch course 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 2309  sub get_all_courseroles { Line 2396  sub get_all_courseroles {
         push(@{$courseroles->{'st'}},keys(%sections_count));          push(@{$courseroles->{'st'}},keys(%sections_count));
         $seccount->{'st'} = scalar(keys(%sections_count));          $seccount->{'st'} = scalar(keys(%sections_count));
     }      }
       $seccount->{'st'} ++; # Increment for a section-less student role.
     my $rolehash = {      my $rolehash = {
                      'roles'    => $courseroles,                       'roles'    => $courseroles,
                      'seccount' => $seccount,                       'seccount' => $seccount,
Line 2514  sub countdown_timer { Line 2602  sub countdown_timer {
         }          }
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");          my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
         my @interval=&Apache::lonnet::EXT("resource.0.interval");          my @interval=&Apache::lonnet::EXT("resource.0.interval");
         my $hastimeleft;  
         if (@interval > 1) {          if (@interval > 1) {
             my $first_access=&Apache::lonnet::get_first_access($interval[1]);              my $first_access=&Apache::lonnet::get_first_access($interval[1]);
             if ($first_access > 0) {              if ($first_access > 0) {
Line 2572  BEGIN { Line 2659  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.369.2.32  
changed lines
  Added in v.1.369.2.45

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