[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.12 and 1.244.2.15

version 1.244.2.12, 2010/01/18 21:35:55 version 1.244.2.15, 2010/05/23 19:16:02
Line 163  sub show_course { Line 163  sub show_course {
 }  }
   
 sub initlittle {  sub initlittle {
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',      my %lt=&Apache::lonlocal::texthash('ret' => 'Return to Last Location',
        'nav' => 'Navigate Contents',         'nav' => 'Course Contents',
        'main' => 'Main Menu',         'main' => 'Main Menu',
                                        'roles' => (&Apache::loncommon::show_course()?                                         'roles' => (&Apache::loncommon::show_course()?
                                                     'Courses':'Roles'),                                                      'Courses':'Roles'),
Line 176  sub initlittle { Line 176  sub initlittle {
                                        'groups' => 'Groups',                                         'groups' => 'Groups',
                                        'gdoc' => 'Community Documents',                                         'gdoc' => 'Community Documents',
                                        );                                         );
       if (&Apache::loncommon::course_type() eq 'Community') {
           $lt{'nav'} = &mt('Community Contents');
           $lt{'docs'} = &mt('Edit Community');
       }
       return %lt;
 }  }
   
 sub menubuttons {  sub menubuttons {
Line 576  sub innerregister { Line 581  sub innerregister {
             }                      }        
             # Finally, turn the button on or off              # Finally, turn the button on or off
             if ($cfile && !$const_space) {              if ($cfile && !$const_space) {
                 $editbutton=&switch                  my $nocrsedit;
                     ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',                  # Suppress display where CC has switched to student role.
                   if ($env{'request.course.id'}) {
                       unless(&Apache::lonnet::allowed('mdc',
                                                       $env{'request.course.id'})) {
                           $nocrsedit = 1;
                       }
                   }
                   if ($nocrsedit) {
                       $editbutton=&clear(6,1);
                   } else {
                       $editbutton=&switch
                          ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
                      "go('".$cfile."');","Edit this resource");                       "go('".$cfile."');","Edit this resource");
                 $noeditbutton = 0;                      $noeditbutton = 0;
                   }
             } elsif ($editbutton eq '') {              } elsif ($editbutton eq '') {
                 $editbutton=&clear(6,1);                  $editbutton=&clear(6,1);
             }              }
Line 1709  sub roles_selector { Line 1726  sub roles_selector {
     my (%courseroles,%seccount);      my (%courseroles,%seccount);
     my $is_cc;      my $is_cc;
     my $role_selector;      my $role_selector;
       my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
     } else {      } else {
Removed from v.1.244.2.12  
changed lines
  Added in v.1.244.2.15

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