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

Diff for /loncom/interface/lonmenu.pm between versions 1.409 and 1.411

version 1.409, 2013/01/07 22:36:11 version 1.411, 2013/04/24 02:43:59
Line 847  sub prepare_functions { Line 847  sub prepare_functions {
 # This applies in course context  # This applies in course context
 #  #
         if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {          if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {
             if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {              $cfile = $resurl;
                 &switch('','',6,1,'pcstr.png','Edit',              $home = &Apache::lonnet::homeserver($cnum,$cdom);
                         'resource[_2]',              if ($env{'form.forceedit'}) {
                         "go('/adm/courseprefs?phase=display&actions=courseinfo')",                  $forceview = 1;
                         'Edit this resource');  
                 $editbutton = 1;  
             } else {              } else {
                 $cfile = $resurl;                  $forceedit = 1;
                 $home = &Apache::lonnet::homeserver($cnum,$cdom);  
                 if ($env{'form.forceedit'}) {  
                     $forceview = 1;  
                 } else {  
                     $forceedit = 1;  
                 }  
                 $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                               $forceedit,$forceview,$forcereg);  
             }              }
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
         } elsif (($resurl eq '/adm/extresedit') &&          } elsif (($resurl eq '/adm/extresedit') &&
                  (($env{'form.symb'}) || ($env{'form.folderpath'}))) {                   (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
             ($cfile,$home,$switchserver,$forceedit,$forceview) =              ($cfile,$home,$switchserver,$forceedit,$forceview) =
Line 1794  sub get_all_courseroles { Line 1786  sub get_all_courseroles {
         push(@{$courseroles->{'st'}},keys(%sections_count));          push(@{$courseroles->{'st'}},keys(%sections_count));
         $seccount->{'st'} = scalar(keys(%sections_count));          $seccount->{'st'} = scalar(keys(%sections_count));
     }      }
       $seccount->{'st'} ++; # Increment for a section-less student role.  
     my $rolehash = {      my $rolehash = {
                      'roles'    => $courseroles,                       'roles'    => $courseroles,
                      'seccount' => $seccount,                       'seccount' => $seccount,
Removed from v.1.409  
changed lines
  Added in v.1.411

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