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

Diff for /loncom/interface/lonmainmenu.pm between versions 1.8.4.5 and 1.8.4.6

version 1.8.4.5, 2009/12/15 05:17:52 version 1.8.4.6, 2010/01/05 15:27:31
Line 67  sub handler { Line 67  sub handler {
 $utility  $utility
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     } elsif ($custommenu) {      } elsif (($custommenu) || ($env{'user.domain'} eq 'gcitest')) {
           my $role = 'st';
           if ($custommenu) {
               $role = 'cc';
           }
         my $switcher_js;          my $switcher_js;
         my %courses = &Apache::loncommon::existing_gcitest_courses();          my %courses = &Apache::loncommon::existing_gcitest_courses($role);
         my $numcourses = keys(%courses);          my $numcourses = keys(%courses);
         if ($numcourses > 0) {          if ($numcourses > 0) {
             $switcher = &gcitest_switcher(%courses);              $switcher = &gcitest_switcher($role,%courses);
             my $current;              my $current;
             if ($env{'request.course.id'}) {              if ($env{'request.course.id'}) {
                 $current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}.                  $current = $role.'./'.$env{'course.'.$env{'request.course.id'}.'.domain'}.
                            '/'.$env{'course.'.$env{'request.course.id'}.'.num'};                             '/'.$env{'course.'.$env{'request.course.id'}.'.num'};
             }              }
             $switcher_js = &gcitest_switcher_js($current,$numcourses);              $switcher_js = &gcitest_switcher_js($current,$numcourses);
Line 101  ENDSCRIPT Line 105  ENDSCRIPT
                                               {'bread_crumbs' => 1}));                                                {'bread_crumbs' => 1}));
     if ($custommenu) {      if ($custommenu) {
         $r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher).$form);          $r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher).$form);
       } elsif ($env{'user.domain'} eq 'gcitest') {
           $r->print(&Apache::lonmenu::inlinemenu('gcistudent',$switcher).$form);
     } else {      } else {
         $r->print(&Apache::lonmenu::inlinemenu().$form);          $r->print(&Apache::lonmenu::inlinemenu().$form);
     }      }
Line 109  ENDSCRIPT Line 115  ENDSCRIPT
 }  }
   
 sub gcitest_switcher {  sub gcitest_switcher {
     my (%courses) = @_;      my ($role,%courses) = @_;
     my $output;      my $output;
     my %Sortby;      my %Sortby;
     foreach my $course (sort(keys(%courses))) {      foreach my $course (sort(keys(%courses))) {
Line 141  sub gcitest_switcher { Line 147  sub gcitest_switcher {
         foreach my $item (@sorted_courses) {          foreach my $item (@sorted_courses) {
             foreach my $course (@{$Sortby{$item}}) {              foreach my $course (@{$Sortby{$item}}) {
                 my ($cdom,$cnum) = split('_',$course);                  my ($cdom,$cnum) = split('_',$course);
                 $output .= '<option value="cc./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>';                  $output .= '<option value="'.$role.'./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>';
             }              }
         }          }
         $output .= '</select><input type="hidden" name="selectrole" value="" /></form>';          $output .= '</select><input type="hidden" name="selectrole" value="" /></form>';
Removed from v.1.8.4.5  
changed lines
  Added in v.1.8.4.6

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