[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.15 and 1.925.2.16

version 1.925.2.15, 2010/10/04 22:30:42 version 1.925.2.16, 2010/10/11 16:00:57
Line 4650  ENDSCRIPT Line 4650  ENDSCRIPT
             if (($custommenu) &&               if (($custommenu) && 
                 ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {                  ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {
                 $bodytag .= &Apache::lonmenu::gci_secondary_menu();                  $bodytag .= &Apache::lonmenu::gci_secondary_menu();
             } else {               } elsif ($env{'request.role'} ne 'cm' || &check_for_gci_dc()) {    
                 $bodytag .= Apache::lonmenu::secondary_menu();                  $bodytag .= Apache::lonmenu::secondary_menu();
             }              }
             $bodytag .= Apache::lonmenu::serverform();              $bodytag .= Apache::lonmenu::serverform();
Line 4662  ENDSCRIPT Line 4662  ENDSCRIPT
                 $bodytag .= &Apache::lonmenu::innerregister($forcereg);                  $bodytag .= &Apache::lonmenu::innerregister($forcereg);
             } elsif ($custommenu && $env{'request.course.id'} &&               } elsif ($custommenu && $env{'request.course.id'} && 
                      &Apache::lonnet::allowed('mdc', $env{'request.course.id'})) {                       &Apache::lonnet::allowed('mdc', $env{'request.course.id'})) {
                 if ($env{'request.noversionuri'} eq '/adm/navmaps') {                  if (($env{'request.noversionuri'} eq '/adm/navmaps') ||
                       ($env{'request.noversionuri'} eq '/adm/coursedocs') ||
                       ($env{'request.noversionuri'} eq '/adm/createuser') ||
                       ($env{'request.noversionuri'} eq '/adm/whatsnew') ||
                       ($env{'request.noversionuri'} eq '/cgi-bin/printout.pl') ||
                       ($env{'request.noversionuri'} eq '/adm/printout') ||
                       ($env{'request.noversionuri'} eq '/adm/statistics')) {
   
                     my @advtools = &concept_test_manager();                      my @advtools = &concept_test_manager();
                       &Apache::lonhtmlcommon::clear_breadcrumbs();
                     &Apache::lonhtmlcommon::add_breadcrumb_tool(                      &Apache::lonhtmlcommon::add_breadcrumb_tool(
                                       'advtools',@advtools);                                        'advtools',@advtools);
                     my $advlinks;                      my $advlinks;
Line 6620  ul.LC_funclist li { Line 6628  ul.LC_funclist li {
 }  }
 #gciheader ul {  #gciheader ul {
   margin:0;    margin:0;
   padding:10px 5px 0;    padding:10px 10px 0;
   list-style:none;    list-style:none;
 }  }
 #gciheader li {  #gciheader li {
Line 6935  sub start_page { Line 6943  sub start_page {
  #if bread_crumbs_component exists show it as headline else show only the breadcrumbs   #if bread_crumbs_component exists show it as headline else show only the breadcrumbs
  if(exists($args->{'bread_crumbs_component'})){   if(exists($args->{'bread_crumbs_component'})){
  $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});   $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
  } else {   } elsif (exists($args->{'bread_crumbs_menulink'})) {
                   $result .= &Apache::lonhtmlcommon::breadcrumbs('','',$args->{'bread_crumbs_menulink'});
                   } else {
                 $result .= &Apache::lonhtmlcommon::breadcrumbs();                   $result .= &Apache::lonhtmlcommon::breadcrumbs(); 
  }   }
     }      }
Line 11032  sub existing_gcitest_courses { Line 11042  sub existing_gcitest_courses {
         } else {          } else {
             next;              next;
         }          }
         my ($tstart,$tend) = split('.',$env{$envkey});          my ($tstart,$tend) = split(/\./,$env{$envkey});
         if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {          if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
             my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};              my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
             if ($descr ne '') {              if ($descr ne '') {
Removed from v.1.925.2.15  
changed lines
  Added in v.1.925.2.16

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