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

Diff for /loncom/interface/lonmenu.pm between versions 1.244.2.4 and 1.244.2.7

version 1.244.2.4, 2009/08/13 14:01:37 version 1.244.2.7, 2009/08/23 13:22:16
Line 1028  sub open { Line 1028  sub open {
         ($env{'environment.remote'} eq 'off')) {           ($env{'environment.remote'} eq 'off')) { 
  return    return 
          '<script type="text/javascript">'."\n".           '<script type="text/javascript">'."\n".
          '// <![CDATA['."\n"           '// <![CDATA['."\n".
          'self.name="loncapaclient";'."\n".           'self.name="loncapaclient";'."\n".
          '// ]]>'."\n"           '// ]]>'."\n".
          '</script>';           '</script>';
     }      }
     my $menuname = &get_menu_name();      my $menuname = &get_menu_name();
Line 1193  sub inlinemenu { Line 1193  sub inlinemenu {
                }                   }  
                foreach my $item (sort(keys(%active))) {                 foreach my $item (sort(keys(%active))) {
                   $output.=$inlineremote[$item];                    $output.=$inlineremote[$item];
  &Apache::lonnet::logthis("item=$item output=$inlineremote[$item]");  
                }                 }
                $output.='</table>';                 $output.='</table>';
                $output.='</fieldset>';                 $output.='</fieldset>';
Line 1354  sub rawconfig { Line 1353  sub rawconfig {
   
 sub check_for_rcrs {  sub check_for_rcrs {
     my $showreqcrs = 0;      my $showreqcrs = 0;
     foreach my $type ('official','unofficial','community') {      my @reqtypes = ('official','unofficial','community');
       foreach my $type (@reqtypes) {
         if (&Apache::lonnet::usertools_access($env{'user.name'},          if (&Apache::lonnet::usertools_access($env{'user.name'},
                                               $env{'user.domain'},                                                $env{'user.domain'},
                                               $type,undef,'requestcourses')) {                                                $type,undef,'requestcourses')) {
Line 1362  sub check_for_rcrs { Line 1362  sub check_for_rcrs {
             last;              last;
         }          }
     }      }
       if (!$showreqcrs) {
           foreach my $type (@reqtypes) {
               if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
                   $showreqcrs = 1;
                   last;
               }
           }
       }
     return $showreqcrs;      return $showreqcrs;
 }  }
   
Removed from v.1.244.2.4  
changed lines
  Added in v.1.244.2.7

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