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

Diff for /loncom/interface/loncommon.pm between versions 1.925.2.4 and 1.925.2.6

version 1.925.2.4, 2009/12/14 22:40:45 version 1.925.2.6, 2010/01/06 18:17:30
Line 4548  sub bodytag { Line 4548  sub bodytag {
   
         my $role_selector;          my $role_selector;
         if (($custommenu) && ($env{'request.course.id'}) &&           if (($custommenu) && ($env{'request.course.id'}) && 
             ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gcitest')) {              ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gcitest') &&
               ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {
             $role_selector = &Apache::lonmenu::roles_selector(              $role_selector = &Apache::lonmenu::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'}  );
Line 4580  sub bodytag { Line 4581  sub bodytag {
   
         #don't show menus for public users          #don't show menus for public users
         if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){          if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
             if ($custommenu) {              if (($custommenu) && 
                   ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {
                 $bodytag .= &Apache::lonmenu::gci_secondary_menu();                  $bodytag .= &Apache::lonmenu::gci_secondary_menu();
             } else {               } else { 
                 $bodytag .= Apache::lonmenu::secondary_menu();                  $bodytag .= Apache::lonmenu::secondary_menu();
Line 10784  sub check_for_gci_dc { Line 10786  sub check_for_gci_dc {
 }  }
   
 sub existing_gcitest_courses {  sub existing_gcitest_courses {
       my ($role) = @_;
     my %courses;      my %courses;
     my $cdom = 'gcitest';      my $cdom = 'gcitest';
     my $role = 'cc';  
     my $now = time;      my $now = time;
     foreach my $envkey (keys(%env)) {      foreach my $envkey (keys(%env)) {
         my $cnum;          my $cnum;
Removed from v.1.925.2.4  
changed lines
  Added in v.1.925.2.6

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