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

Diff for /loncom/interface/lonmenu.pm between versions 1.389 and 1.390

version 1.389, 2012/10/31 12:54:13 version 1.390, 2012/11/08 18:37:44
Line 431  sub create_submenu { Line 431  sub create_submenu {
 }  }
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs) = @_;      my ($forcereg,$bread_crumbs,$group) = @_;
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
     my $is_const_dir = 0;      my $is_const_dir = 0;
   
Line 441  sub innerregister { Line 441  sub innerregister {
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $resurl;       my $resurl;
   
       if ($env{'request.course.id'} && $env{'request.symb'} eq '') {
           $resurl = $env{'request.noversionuri'};
       }
    
     if ( $env{'request.symb'} && $env{'request.course.id'} ) {      if ( $env{'request.symb'} && $env{'request.course.id'} ) {
   
         (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());          (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
Line 473  sub innerregister { Line 478  sub innerregister {
   
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);          &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
     }elsif (! $const_space){      } elsif (! $const_space){
         #a situation when we're looking at a resource outside of context of a           #a situation when we're looking at a resource outside of context of a 
         #course or construction space (e.g. with cumulative rights)          #course or construction space (e.g. with cumulative rights)
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});          unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
               &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
           }
     }      }
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})       return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) 
                        || $forcereg );                         || $forcereg );
       my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
           $forceview,$editbutton);
       if ($env{'request.noversionuri'} =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) {
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($env{'request.noversionuri'},$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ($env{'request.role'} !~/^(aa|ca|au)/) {
           $editbutton = &prepare_functions($resurl,$forcereg,$group);
       }
       if ($editbutton eq '') {
           &clear(6,1);
       }
   
 # -- This applies to homework problems for users with grading privileges  
  my $crs='/'.$env{'request.course.id'};  
  if ($env{'request.course.sec'}) {  
     $crs.='_'.$env{'request.course.sec'};  
  }  
  $crs=~s/\_/\//g;  
   
         my $hwkadd='';  
         if ($env{'request.symb'} ne '' &&  
     $env{'request.filename'}=~/$LONCAPA::assess_re/) {  
     if (&Apache::lonnet::allowed('mgr',$crs)) {  
  $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',  
                        "gocmd('/adm/grades','gradingmenu')",  
                        'Content Grades');  
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {  
  $hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',  
                        "gocmd('/adm/grades','submission')",  
        'Content Submissions');  
             }  
  }  
  if ($env{'request.symb'} ne '' &&  
     &Apache::lonnet::allowed('opa',$crs)) {  
     $hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',  
      "gocmd('/adm/parmset','set')",  
      'Content Settings');  
  }  
         if ($env{'request.symb'}=~/^uploaded/ &&  
             &Apache::lonnet::allowed('mdc',$crs)) {  
             $hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]',  
                              "gocmd('/adm/coursedocs','direct')",  
                              'Folder/Page Content');  
         }  
 # -- End Homework  
         ###  
         ### Determine whether or not to display the 'cstr' button for this  
         ### resource  
         ###  
         my $editbutton = '';  
         my $noeditbutton = 1;  
         my ($cnum,$cdom,$cfile,$switchserver,$home,$uploaded);  
         if ($env{'request.course.id'}) {  
             $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
             $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
         }  
         if ($env{'user.author'}) {  
             if ($env{'request.role'}=~/^(aa|ca|au)/) {  
 #  
 # We have the role of an author  
 #  
                 # Set defaults for authors  
                 my ($top,$bottom) = ('con-','struct');  
                 my $action = "go('/priv/".$env{'user.domain'}.'/'.$env{'user.name'}."');";  
                 my $cadom  = $env{'request.role.domain'};  
                 my $caname = $env{'user.name'};  
                 my $desc = "Enter my construction space";  
                 # Set defaults for co-authors  
                 if ($env{'request.role'} =~ /^ca/) {   
                     ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);  
                     ($top,$bottom) = ('co con-','struct');  
                     $action = "go('/priv/".$cadom.'/'.$caname."');";  
                     $desc = "Enter construction space as co-author";  
                 } elsif ($env{'request.role'} =~ /^aa/) {  
                     ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);  
                     ($top,$bottom) = ('co con-','struct');  
                     $action = "go('/priv/".$cadom.'/'.$caname."');";  
                     $desc = "Enter construction space as assistant co-author";  
                 }  
                 # Check that we are on the correct machine  
                 my $home = &Apache::lonnet::homeserver($caname,$cadom);  
  my $allowed=0;  
  my @ids=&Apache::lonnet::current_machine_ids();  
  if (($home ne 'no_host') && (grep(/^\Q$home\E$/,@ids))) {  
     $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);  
                 }  
             } else {  
 #  #
 # We are an author for some stuff, but currently do not have the role of author.  # This applies in course context
 # Figure out if we have authoring privileges for the resource we are looking at.  
 #  #
                 my ($cfile,$switchserver,$home,$uploaded);      if ($env{'request.course.id'}) {
                 if ($env{'request.filename'}) {          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                     my $file=&Apache::lonnet::declutter($env{'request.filename'});          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                     ##          $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
                     ## Determine if user can edit url.          my @privs;
                     ##          if ($env{'request.symb'} ne '') {
                     ($cfile,$home,$switchserver,$uploaded) =               if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
                         &Apache::lonnet::can_edit_resource($file,$cnum,$cdom);                   push(@privs,('mgr','vgr'));
                 }               }
                 # Turn the button on or off               push(@privs,'opa');
                 if (($cfile) && ($home ne '') && ($home ne 'no_host')) {  
                     my $nocrsedit;  
                     # 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 = &get_editbutton($cfile,$home,$switchserver,$uploaded);  
                     }  
                 } elsif ($editbutton eq '') {  
                     $editbutton=&clear(6,1);  
                 }  
             }  
         } elsif (($env{'request.filename'}) && $env{'request.course.id'}) {  
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  
                 if (($cnum =~ /$match_courseid/) && ($cdom =~ /$match_domain/)) {  
                     my ($cfile,$home,$switchserver,$uploaded) =  
                         &Apache::lonnet::can_edit_resource($file,$cnum,$cdom);  
                     if (($uploaded) && ($cfile ne '')) {  
                         $editbutton = &get_editbutton($cfile,$home,$switchserver,$uploaded);  
                     }  
                 }  
             }  
         }          }
         if ($env{'request.course.id'}) {          foreach my $priv (@privs) {
             if ($resurl eq "public/$cdom/$cnum/syllabus") {              $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {              if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
                     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {                  $perms{$priv} = 
                         $editbutton=&switch('','',6,1,'pcstr.png','Edit',                      &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                                             'resource[_2]',  
                                             "go('/adm/courseprefs?phase=display&actions=courseinfo')",  
                                             'Edit this resource');  
                     }  
                 }  
             }              }
         }          }
         ###  #
         ###  # Determine whether or not to show Grades and Submissions buttons
   #
           if ($env{'request.symb'} ne '' &&
               $env{'request.filename'}=~/$LONCAPA::assess_re/) {
               if ($perms{'mgr'}) {
                   &switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                           "gocmd('/adm/grades','gradingmenu')",
                           'Content Grades');
               } elsif ($perms{'vgr'}) {
                   &switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
                           "gocmd('/adm/grades','submission')",
                           'Content Submissions');
                }
           }
           if (($env{'request.symb'} ne '') && ($perms{'opa'})) {
               &switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
                       "gocmd('/adm/parmset','set')",
                       'Content Settings');
    }
   # End grades/submissions check 
   
   #
   # This applies to items inside a folder/page modifiable in the course. 
   #
           if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {
               &switch('','',7,4,'docs-22x22.png','Folder/Page Content','parms[_2]',
                       "gocmd('/adm/coursedocs','direct')",
                       'Folder/Page Content');
           }
   # End modifiable folder/page container check
       }
   # End course context
   
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my ($menuitems,$got_prt,$got_wishlist);          my ($menuitems,$got_prt,$got_wishlist);
         if ($const_space) {          if ($const_space) {
Line 771  ENDMENUITEMS Line 716  ENDMENUITEMS
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                      'tools', $inlineremote[63]);                       'tools', $inlineremote[63]);
             }              }
                           &advtools_crumbs(@inlineremote);
             unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {  
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(  
                     'advtools', @inlineremote[61,71,72,73,74,92]);  
             }  
         }          }
     }      }
   
Line 785  ENDMENUITEMS Line 726  ENDMENUITEMS
 }  }
   
 sub get_editbutton {  sub get_editbutton {
     my ($cfile,$home,$switchserver,$uploaded) = @_;      my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;
     my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,      my $jscall = 
                                                          $uploaded,$env{'request.symb'});          &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                   $forceedit,$forcereg,$env{'request.symb'});
     if ($jscall) {      if ($jscall) {
         return &switch('','',6,1,'pcstr.png','Edit','resource[_2]',          my $icon = 'pcstr.png';
                        $jscall,"Edit this resource");          my $label = 'Edit';
           if ($forceview) {
               $icon = 'tolastloc.png';
               $label = 'Exit Editing';
           }
           &switch('','',6,1,$icon,$label,'resource[_2]',
                   $jscall,"Edit this resource");
           return 1;
       }
       return;
   }
   
   sub prepare_functions {
       my ($resurl,$forcereg,$group,$bread_crumbs,$advtools) = @_;
       unless ($env{'request.registered'}) {
           undef(@inlineremote);
       }
       my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
           $forceview);
   
       if ($env{'request.course.id'}) {
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
       }
   
       my $editbutton = '';
   #
   # Determine whether or not to display 'Edit' icon/button
   #
       if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
   #
   # This applies to a user's own about me page
   #
           my ($sdom,$sname) = ($1,$2);
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           if (($sdom eq $env{'user.domain'}) && ($sname eq $env{'user.name'})) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
                   &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                       &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
               $editbutton = &get_editbutton($cfile,$env{'user.home'},$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ((!$editbutton) && (!$env{'request.course.id'}) &&
                ($env{'user.author'}) && ($env{'request.filename'}) &&
                ($env{'request.role'} !~/^(aa|ca|au)/)) {
   #
   # Currently do not have the role of author or co-author.
   # Do we have authoring privileges for the resource?
   #
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           # Turn the button on or off
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ($env{'request.course.id'}) {
   #
   # This applies in course context
   #
           if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {
               if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {
                   &switch('','',6,1,'pcstr.png','Edit',
                           'resource[_2]',
                           "go('/adm/courseprefs?phase=display&actions=courseinfo')",
                           'Edit this resource');
                   $editbutton = 1;
               } else {
                   $cfile = $resurl;
                   $home = &Apache::lonnet::homeserver($cnum,$cdom);
                   if ($env{'form.forceedit'}) {
                       $forceview = 1;
                   } else {
                       $forceedit = 1;
                   }
                   $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                 $forceedit,$forceview,$forcereg);
               }
           } elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) {
               if ($env{'request.filename'}) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   ($cfile,$home,$switchserver,$forceedit,$forceview) =
                       &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                           &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
                   if ($cfile ne '') {
                       $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                     $forceedit,$forceview,$forcereg);
                   }
               }
           }
       }
   # End determination of 'Edit' icon/button display
   
   # This applies to about me page for users in a course
       if ($env{'request.course.id'}) {
           if ($resurl =~ m{^adm/($match_domain)/($match_username)/aboutme$}) {
               my ($sdom,$sname) = ($1,$2);
               unless (&Apache::lonnet::is_course($sdom,$sname)) {
                   &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                           '',
                           "go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",
                               'Send message to specific user');
               }
               if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum)) {
                   foreach my $priv ('vsa','vgr','srm') {
                       $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                       if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
                           $perms{$priv} =
                               &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                       }
                   }
                   if ($perms{'vsa'}) {
                       &switch('','',6,5,'trck-22x22.png','Activity',
                               '',
                               "go('/adm/trackstudent?selected_student=$sname:$sdom')",
                               'View recent activity by this person');
                   }
                   if ($perms{'vgr'}) {
                       &switch('','',6,6,'rsrv-22x22.png','Reservations',
                               '',
                               "go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",
                               'Slot reservation history');
                   }
                   if ($perms{'srm'}) {
                       &switch('','',6,7,'contact-new-22x22.png','Records',
                               '',
                               "go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",
                               'Add records');
                   }
               }
           }
       }
   
   # End checking for items for about me page for users in a course
    
       if ($env{'request.registered'}) {
           return $editbutton;
       } else {
           if (ref($bread_crumbs) eq 'ARRAY') {
               if (@inlineremote > 0) {
                   if (ref($advtools) eq 'ARRAY') {
                       @{$advtools} = @inlineremote;
                   }
               }
               return;
           } elsif (@inlineremote > 0) {
               &Apache::lonhtmlcommon::clear_breadcrumb_tools();
               &advtools_crumbs(@inlineremote);
               return   &Apache::lonhtmlcommon::scripttag('', 'start')
                      . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                      . &Apache::lonhtmlcommon::scripttag('', 'end');
           }
       }
   }
   
   sub advtools_crumbs {
       my @funcs = @_;
       if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,64,65,66,67,74]);
       } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,71,72,73,74,92]);
     }      }
 }  }
   
Removed from v.1.389  
changed lines
  Added in v.1.390

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