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

Diff for /loncom/interface/lonmenu.pm between versions 1.309.2.18 and 1.309.2.24

version 1.309.2.18, 2010/11/08 22:51:23 version 1.309.2.24, 2010/12/07 04:33:49
Line 151  sub prep_menuitem { Line 151  sub prep_menuitem {
     } else {             # textual Link      } else {             # textual Link
         $link = &mt($$menuitem[3]);          $link = &mt($$menuitem[3]);
     }      }
     if($$menuitem[4] eq 'newmsg'){   #special style for New Messages      return '<li><a' 
         return '<li><a href="'.$$menuitem[0].'"><span class="LC_new_message">'.$link.'</span></a></li>';             # highlighting for new messages
     }             . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') 
     return '<li><a href="'.$$menuitem[0].'">'.$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 XHTML for the menu
Line 166  sub primary_menu { Line 166  sub primary_menu {
     my $menu;      my $menu;
     my $custommenu = &Apache::loncommon::needs_gci_custom();      my $custommenu = &Apache::loncommon::needs_gci_custom();
     my $numdc = &Apache::loncommon::check_for_gci_dc();      my $numdc = &Apache::loncommon::check_for_gci_dc();
       my %allnums = &Apache::loncommon::get_faculty_cnums();
     # 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,$faculty);
       if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
           || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
           $public = 1;
       } elsif (ref($allnums{$env{'user.domain'}}) eq 'HASH') {
           $faculty = 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 176  sub primary_menu { Line 184  sub primary_menu {
         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 'gci'          next if    $$menuitem[4]        eq 'ci'
                 && (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/});                  && (!$custommenu || $env{'request.role'} =~ m{^st\./\w+citest/});
         next if    $$menuitem[4]        eq 'home'          next if    $$menuitem[4]        eq 'home'
                 && (($custommenu) || ($env{'user.domain'} eq 'gcitest') ||                   && (($custommenu) || ($env{'user.domain'} =~ /^\w+citest$/) || 
                     (($env{'user.domain'} eq 'gci') && !$numdc));                      ($faculty && !$numdc));
         next if    $$menuitem[4]        eq 'gcitest'          next if    $$menuitem[4]        eq 'citest'
                 && (($env{'user.domain'} eq 'gci') || ($env{'request.role'} eq 'cm'));                  && ($faculty || ($env{'request.role'} eq 'cm'));
         next if    $$menuitem[4]        eq 'roles'     # hide links which are          next if    $$menuitem[4]        eq 'roles'     # hide links which are
                 && $custommenu;                        # not visible when GCI                  && $custommenu;                        # not visible when GCI
         next if    $$menuitem[4]        eq 'courses'   # tabbed interface in use          next if    $$menuitem[4]        eq 'courses'   # tabbed interface in use
Line 199  sub primary_menu { Line 207  sub primary_menu {
                   
                           
         if ($$menuitem[3] eq 'Help') { # special treatment for helplink          if ($$menuitem[3] eq 'Help') { # special treatment for helplink
             $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';              if ($public) {
                   my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
                   my $defdom = &Apache::lonnet::default_login_domain();
                   my $to = &Apache::loncommon::build_recipient_list(undef,
                                                                     'helpdeskmail',
                                                                     $defdom,$origmail);
                   if ($to ne '') {
                       $menu .= &prep_menuitem($menuitem);
                   }
               } else {
                   $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
               }
         } else {          } else {
             my @items = @{$menuitem};              $menu .= &prep_menuitem($menuitem);
             $items[0] = 'javascript:'.$menuitem->[0].';';  
             $menu .= &prep_menuitem(\@items);  
         }          }
     }      }
   
Line 302  sub secondary_menu { Line 319  sub secondary_menu {
 }  }
   
 sub gci_secondary_menu {  sub gci_secondary_menu {
     my %courses = (      my %courses;
         'review' => 'gci_9615072b469884921gcil1',      my $inventory;
         'submit' => 'gci_1H96711d710194bfegcil1',      if ($env{'user.domain'} =~ /^(\w+ci)test$/) {
         'tutorial' => 'gci_5422913620b814c90gcil1',          $inventory = $1;
     );      } else {
           $inventory = $env{'user.domain'};
       }
       my %allnums = &Apache::loncommon::get_faculty_cnums();
       if (($inventory ne '') && (ref($allnums{$inventory}) eq 'HASH')) {
           foreach my $key (keys(%{$allnums{$inventory}})) {
               $courses{$key} = $inventory.'_'.$allnums{$inventory}->{$key};
           }
       }
   
     my %linktext = (      my %linktext = (
         'review'      => 'Review Questions',          'review'      => 'Review Questions',
         'submit'      => 'Submit Questions',          'submit'      => 'Submit Questions',
         'managetest'  => 'Manage Tests',          'managetest'  => 'Manage Tests',
         'tutorial'    => 'Tutorials',          'tutorial'    => 'Tutorials',
     );      );
     my %links = (      my (%links,@menutabs,$current,%can_request,%request_domains);
                   'managetest' => '/adm/menu',      my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc');
                 );      my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test',
     my $current = 'managetest';                                                      \%can_request,\%request_domains);
     if ($env{'form.destinationurl'} eq '/adm/gci_info') {      if (($canreq) || (keys(%concepttests) > 0)) { 
           %links = (
                        'managetest' => '/adm/menu',
                    );
           $current = 'managetest';
       }
       if ($env{'form.destinationurl'} eq '/adm/ci_info') {
         undef($current);          undef($current);
     }      }
     foreach my $key (keys(%courses)) {      foreach my $key (keys(%courses)) {
Line 329  sub gci_secondary_menu { Line 361  sub gci_secondary_menu {
                 $links{$key} = '/adm/navmaps';                  $links{$key} = '/adm/navmaps';
             }              }
             $current = $key;              $current = $key;
             $links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';              if (($canreq) || (keys(%concepttests) > 0) {
                   $links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';
               }
         }          }
     }      }
     my @menutabs = ('review','submit','managetest','tutorial');      my @posstabs = ('review','submit','managetest','tutorial');
     my $tabs;      my $tabs;
     foreach my $item (@menutabs) {      foreach my $item (@posstabs) {
           next if ($links{$item} eq '');
           push(@menutabs,$item);
         if ($item eq $current) {          if ($item eq $current) {
             $tabs .= '<li id="current"><a href="'.$links{$item}.'">'.              $tabs .= '<li id="current"><a href="'.$links{$item}.'">'.
                      $linktext{$item}.'</a></li>';                       $linktext{$item}.'</a></li>';
Line 1443  ENDSCRIPT Line 1479  ENDSCRIPT
             }              }
             $switcher = $switcher_js.$switcher;              $switcher = $switcher_js.$switcher;
         }          }
         if ($env{'user.domain'} eq 'gci') {          if ($env{'user.domain'} !~ /^\w+citest$/) {
             $canreq =              $canreq =
                 &Apache::lonnet::check_can_request('gcitest',\%can_request,\%request_domains);                  &Apache::lonnet::check_can_request($env{'user.domain'}.'test',\%can_request,\%request_domains);
             $createtext = &mt('Create Concept Test');              $createtext = &mt('Create Concept Test');
             if ($numcourses) {              if ($numcourses) {
                 $createtext = &mt('Create New Test');                  $createtext = &mt('Create New Test');
Line 1486  ENDSCRIPT Line 1522  ENDSCRIPT
             } else {              } else {
                 my $navtext = &mt('Table of Contents');                  my $navtext = &mt('Table of Contents');
                 my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory');                  my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory');
                 if ($env{'request.role.domain'} eq 'gcitest') {                  if ($env{'request.role.domain'} =~ /^\w+citest$/) {
                     $navtext = &mt('Display Test Contents');                      $navtext = &mt('Display Test Contents');
                     $navdesc = &mt('Display the table of contents for this Concept Test');                      $navdesc = &mt('Display the table of contents for this Concept Test');
                 }                  }
Line 1873  sub utilityfunctions { Line 1909  sub utilityfunctions {
     my $gcimenujs;      my $gcimenujs;
     if ($custommenu) {      if ($custommenu) {
         my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc');          my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc');
         my $managetesturl = '/adm/menu';          my (@calls,%switchpage_call,%canrequest,%request_domains);
         my $createtesturl = '/adm/requestcourse';          my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test',
                                                           \%canrequest,\%request_domains);
           if ($canreq) {
               foreach my $call ('createtest','managetest') {
                   push(@calls,$call);
               }
               $switchpage_call{'managetest'} = '/adm/menu';
               $switchpage_call{'createtest'} = '/adm/requestcourse';
               if ($env{'request.course.id'}) {
                   $switchpage_call{'createtest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse';
               }
           }
         if (($env{'request.course.id'}) &&          if (($env{'request.course.id'}) &&
             ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gci')) {              ($env{'course.'.$env{'request.course.id'}.'.domain'} !~ /^\w+citest$/)) {
             my @items = keys(%concepttests);              my @items = keys(%concepttests);
             if (@items== 1) {              if (@items==1) {
                 my $newrole = $items[0];                  my $newrole = $items[0];
                 $newrole =~ s{_}{/};                  $newrole =~ s{_}{/};
                 $managetesturl = '/adm/roles?selectrole=1&cc./'.$newrole.'=1';                  $switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cc./'.$newrole.'=1';
             } else {              } else {
                 $managetesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';                  $switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';
             }              }
         }          }
         if ($env{'request.course.id'}) {          my %allnums = &Apache::loncommon::get_faculty_cnums();
             $createtesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse';          my $udom = $env{'user.domain'};
           if (ref($allnums{$udom}) eq 'HASH') {
               foreach my $key (keys(%{$allnums{$udom}})) {
                   $switchpage_call{$key} = '/adm/roles?selectrole=1&'.
                                            'st./'.$udom.'/'.$allnums{$udom}->{$key}.'=1';
                   push(@calls,$key);
               }
         }          }
         $gcimenujs = <<"ENDCUSTOM";          if (@calls > 0) {
               $gcimenujs = '
 function switchpage(caller) {  function switchpage(caller) {
     if (caller == 'review') {  ';
         document.location.href = '/adm/roles?selectrole=1&st./gci/9615072b469884921gcil1=1';              foreach my $call (@calls) {
     }                  $gcimenujs .= " 
     if (caller == 'submit') {      if (caller == '$call') {
         document.location.href = '/adm/roles?selectrole=1&st./gci/1H96711d710194bfegcil1=1';          document.location.href = '$switchpage_call{$call}';
     }      }";
     if (caller == 'createtest') {              }
         document.location.href = '$createtesturl';              $gcimenujs .= '
     }  
     if (caller == 'managetest') {  
         document.location.href = '$managetesturl';  
     }  
     if (caller == 'tutorial') {  
         document.location.href = '/adm/roles?selectrole=1&st./gci/5422913620b814c90gcil1=1';  
     }  
     return;      return;
 }  }
   ';
 ENDCUSTOM          }
     }      }
                 
     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]));
Line 1970  function go(url) { Line 2016  function go(url) {
    }     }
 }  }
   
 function gotop(url) {  
     if (url!='' && url!= null) {  
         top.location.href = url;  
     }  
 }  
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        this.document.server.action=url;
Removed from v.1.309.2.18  
changed lines
  Added in v.1.309.2.24

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