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

Diff for /loncom/interface/loncommon.pm between versions 1.901 and 1.903

version 1.901, 2009/10/22 13:41:41 version 1.903, 2009/10/26 18:59:16
Line 4444  sub bodytag { Line 4444  sub bodytag {
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
         # No Remote          # No Remote
         if ($env{'request.state'} eq 'construct') {          if ($no_nav_bar) { return $bodytag; } 
             $forcereg=1;  
         }  
   
     #    if ($env{'request.state'} eq 'construct') {          if ($env{'request.state'} eq 'construct') { $forcereg=1; }
     #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls  
     #    }  
   
         my $titletable = '<table id="LC_title_bar">'          #    if ($env{'request.state'} eq 'construct') {
                             ."<tr><td> $titleinfo $dc_info</td>"          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
                             .'</tr></table>';          #    }
   
         if ($no_nav_bar) {          $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
             $bodytag .= $titletable;              <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'};
         } else {  
             $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />  
                 <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'};  
   
 #SD $titletable is obsolete          if (   $env{'form.inhibitmenu'} eq 'yes' 
 #SD            if ($env{'request.state'} eq 'construct') {              || $ENV{'REQUEST_URI'} eq '/adm/logout'
 #SD                $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$titletable);              || $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
 #SD            } else {  
 #SD                $bodytag .= &Apache::lonmenu::menubuttons($forcereg).$titletable;  
 #SD            }  
                if (   $env{'form.inhibitmenu'} eq 'yes'   
                    || $ENV{'REQUEST_URI'} eq '/adm/logout'  
                    || $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {  
                      
                    return $bodytag;  
                }  
   
                $bodytag .= Apache::lonhtmlcommon::scripttag(              return $bodytag;
                                 Apache::lonmenu::utilityfunctions(),  
                                 'start');  
                $bodytag .= Apache::lonmenu::primary_menu();  
                $bodytag .= Apache::lonmenu::secondary_menu();  
                #SD remove next line  
                #$bodytag .= Apache::lonmenu::menubuttons($forcereg);  
                $bodytag .= Apache::lonmenu::serverform();  
                $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');   
                $bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;  
         }          }
   
           $bodytag .= Apache::lonhtmlcommon::scripttag(
               Apache::lonmenu::utilityfunctions(), 'start');
   
           $bodytag .= Apache::lonmenu::primary_menu();
   
           #don't show menus for public users
           if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
               $bodytag .= Apache::lonmenu::secondary_menu();
               $bodytag .= Apache::lonmenu::serverform();
               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
               $bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;
           }else{
               # this is to seperate menu from content when there's no secondary
               # menu. Especially needed for public accessible ressources.
               $bodytag .= '<hr style="clear:both" />';
               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
           }
   
           #SD testing
           #$bodytag .= Apache::lonmenu::menubuttons($forcereg);
         return $bodytag;          return $bodytag;
     }      }
   
Line 10244  sub group_term { Line 10240  sub group_term {
     return $names{$crstype};      return $names{$crstype};
 }  }
   
   sub course_types {
       my @types = ('official','unofficial','community');
       my %typename = (
                            official   => 'Official course',
                            unofficial => 'Unofficial course',
                            community  => 'Community',
                      );
       return (\@types,\%typename);
   }
   
 sub icon {  sub icon {
     my ($file)=@_;      my ($file)=@_;
     my $curfext = lc((split(/\./,$file))[-1]);      my $curfext = lc((split(/\./,$file))[-1]);
Removed from v.1.901  
changed lines
  Added in v.1.903

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