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

Diff for /loncom/interface/lonmenu.pm between versions 1.106 and 1.107

version 1.106, 2003/12/09 22:10:23 version 1.107, 2004/04/01 15:29:40
Line 263  sub innerregister { Line 263  sub innerregister {
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
 # -- This applies to homework problems for users with grading privileges  # -- This applies to homework problems for users with grading privileges
         my $hwkadd='';   my $crs='/'.$ENV{'request.course.id'};
         if    if ($ENV{'request.course.sec'}) {
       ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {      $crs.='_'.$ENV{'request.course.sec'};
     my $crs='/'.$ENV{'request.course.id'};   }
     if ($ENV{'request.course.sec'}) {   $crs=~s/\_/\//g;
         $crs.='_'.$ENV{'request.course.sec'};  
     }  
     $crs=~s/\_/\//g;  
   
           my $hwkadd='';
           if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
     if (&Apache::lonnet::allowed('vgr',$crs)) {      if (&Apache::lonnet::allowed('vgr',$crs)) {
  $hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',   $hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',
                        "gocmd('/adm/grades','submission')",                         "gocmd('/adm/grades','submission')",
Line 282  sub innerregister { Line 281  sub innerregister {
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
                        'Modify user grades for this assessment resource');                         'Modify user grades for this assessment resource');
             }              }
     if (&Apache::lonnet::allowed('opa',$crs)) {   }
  $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',   if (&Apache::lonnet::allowed('opa',$crs)) {
                        "gocmd('/adm/parmset','set')",      $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
                        'Modify deadlines, etc, for this assessment resource');       "gocmd('/adm/parmset','set')",
             }       'Modify deadlines, etc, for this resource');
  }   }
 # -- End Homework  # -- End Homework
         ###          ###
Removed from v.1.106  
changed lines
  Added in v.1.107

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