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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.22 and 1.369.2.27

version 1.369.2.22, 2012/08/27 15:53:40 version 1.369.2.27, 2012/12/13 17:38:40
Line 488  sub registerurl { Line 488  sub registerurl {
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
         $force_title=&Apache::lonxml::display_title();          $force_title=&Apache::lonxml::display_title();
     }      }
     if (($env{'environment.remote'} eq 'off') ||      if (($env{'environment.remote'} ne 'on') ||
         ((($env{'request.publicaccess'}) ||          ((($env{'request.publicaccess'}) ||
          (!&Apache::lonnet::is_on_map(           (!&Apache::lonnet::is_on_map(
            &unescape($env{'request.noversionuri'})))) &&             &unescape($env{'request.noversionuri'})))) &&
Line 509  sub registerurl { Line 509  sub registerurl {
 }  }
   
 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 517  sub innerregister { Line 517  sub innerregister {
   
     $env{'request.registered'} = 1;      $env{'request.registered'} = 1;
   
     my $noremote = ($env{'environment.remote'} eq 'off');      my $noremote = ($env{'environment.remote'} ne 'on');
   
     undef(@inlineremote);      undef(@inlineremote);
   
Line 530  sub innerregister { Line 530  sub innerregister {
         $newmail= 'swmenu.setstatus("you have","messages");';          $newmail= 'swmenu.setstatus("you have","messages");';
     }      }
   
     my $resurl;       my ($mapurl,$resurl);
     if ( $env{'request.symb'} && $env{'request.course.id'} ) {  
   
         (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());      if ($env{'request.course.id'}) {
         my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};          if ($env{'request.symb'}) {
               ($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
               my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
   
               my $maptitle = &Apache::lonnet::gettitle($mapurl);
               my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
   
         my $maptitle = &Apache::lonnet::gettitle($mapurl);  
         my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());  
   
 #SD  #SD
 #course_type only Course and Community?  #course_type only Course and Community?
 #  #
         my @crumbs;              my @crumbs;
         unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')              unless (($forcereg) && 
                 && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {                      ($env{'request.noversionuri'} eq '/adm/navmaps') &&
             @crumbs = ({text  => Apache::loncommon::course_type()                       ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                                 . ' Contents',                   @crumbs = ({text  => Apache::loncommon::course_type() 
                         href  => "Javascript:gopost('/adm/navmaps','')"});                                      . ' Contents', 
         }                              href  => "Javascript:gopost('/adm/navmaps','')"});
         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {               }
             push(@crumbs, {text  => '...',              if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
                            no_mt => 1});                  push(@crumbs, {text  => '...',
         }                                 no_mt => 1});
               }
         push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle   
                                                    && $maptitle ne 'default.sequence'               push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle 
                                                    && $maptitle ne $coursetitle);                                                         && $maptitle ne 'default.sequence' 
                                                          && $maptitle ne $coursetitle);
         push @crumbs, {text => $restitle, no_mt => 1} if $restitle;   
               push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
         &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);              &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
     }elsif (! $const_space){          } else {
               $resurl = $env{'request.noversionuri'};
               my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
               my $crstype = &Apache::loncommon::course_type();
               my $title = &mt('View Resource');
               if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) {
                   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']);
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   if ($env{'form.title'}) {
                       $title = $env{'form.title'};
                   }
                   my $trail;
                   if ($env{'form.folderpath'}) {
                       my $editbutton =
                           &prepare_functions($resurl,$forcereg,$group,undef,undef,1);
                       ($trail) =
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   } else {
                       &Apache::lonhtmlcommon::add_breadcrumb(
                       {text  => "Supplemental $crstype Content",
                        href  => "javascript:gopost('/adm/supplemental','')"});
                       $title = &mt('View Resource');
                       ($trail) =
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   }
                   return $trail;
               }
               unless ($env{'request.state'} eq 'construct') {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
               }
           }
       } 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'});
           }
     }      }
     my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );      my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})      if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
                        || ($forcereg)) {                         || ($forcereg)) {
 # -- This applies to homework problems for users with grading privileges      my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
  my $crs='/'.$env{'request.course.id'};          $forceview,$editbutton);
  if ($env{'request.course.sec'}) {      if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) ||
     $crs.='_'.$env{'request.course.sec'};          ($env{'request.role'} !~/^(aa|ca|au)/)) {
  }          $editbutton = &prepare_functions($resurl,$forcereg,$group);
  $crs=~s/\_/\//g;      }
       if ($editbutton eq '') {
         my %swtext;          &clear(6,1);
         if ($noremote) {      }
             %swtext = &get_inline_text();  
         } else {  
             %swtext = &get_rc_text();  
         }   
         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',$swtext{'pgrd'},'grades[_4]',  
                        "gocmd('/adm/grades','gradingmenu')",  
                        'Content Grades');  
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {  
  $hwkadd.=&switch('','',7,2,'subm.png',$swtext{'subm'},'missions[_1]',  
                        "gocmd('/adm/grades','submission')",  
        'Content Submissions');  
             }  
  }  
  if ($env{'request.symb'} ne '' &&  
     &Apache::lonnet::allowed('opa',$crs)) {  
     $hwkadd.=&switch('','',7,3,'pparm.png',$swtext{'pparm'},'parms[_2]',  
      "gocmd('/adm/parmset','set')",  
      'Content Settings');  
  }  
         if ($noremote) {    
             if ($env{'request.symb'}=~/^uploaded/ &&  
                 &Apache::lonnet::allowed('mdc',$crs)) {  
                 $hwkadd.=&switch('','',7,4,'docs.png',$swtext{'docs'},'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);  
         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();  
  foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }  
  if (!$allowed) {  
     $editbutton=&switch('','',6,1,,$top,$bottom,$action,$desc);  
                     $noeditbutton = 0;  
                 }  
             }  
 #  
 # We are an author for some stuff, but currently do not have the role of author.  
 # Figure out if we have authoring privileges for the resource we are looking at.  
 # This should maybe become a privilege check in lonnet  
 #  
             ##  
             ## Determine if user can edit url.  
             ##  
             my $cfile='';  
             my $cfuname='';  
             my $cfudom='';  
             my $uploaded;  
             my $switchserver='';  
             my $home;  
             if ($env{'request.filename'}) {  
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  
                 if (defined($cnum) && defined($cdom)) {  
                     $uploaded = &is_course_upload($file,$cnum,$cdom);  
                 }  
                 if (!$uploaded) {  
   
                     $file=~s{^(priv/$match_domain/$match_username)}{/$1};  
                     $file=~s{^($match_domain/$match_username)}{/priv/$1};  
   
                     # Check that the user has permission to edit this resource  #
                     my $setpriv = 1;  # This applies in course context
                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);  #
                     if (defined($cfudom)) {      if ($env{'request.course.id'}) {
         $home=&Apache::lonnet::homeserver($cfuname,$cfudom);          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $allowed=0;          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my @ids=&Apache::lonnet::current_machine_ids();          $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
         foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }          my @privs;
         if ($allowed) {          if ($env{'request.symb'} ne '') {
                             $cfile=$file;               if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
                         } else {                   push(@privs,('mgr','vgr'));
                             $switchserver=$file;               }
                         }               push(@privs,'opa');
                     }          }
                 }          foreach my $priv (@privs) {
             }              $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
             # Finally, turn the button on or off              if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
             if (($cfile || $switchserver) && !$const_space) {                  $perms{$priv} =
                 my $nocrsedit;                      &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                 # 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 {  
                     my $bot = "go('$cfile')";  
                     if ($switchserver) {  
                         if ( $env{'request.symb'} && $env{'request.course.id'} ) {  
                             $cfile = '/adm/switchserver?otherserver='.$home.'&role='.  
                                      &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;symb='.  
                                      &HTML::Entities::encode($env{'request.symb'},'"<>&');  
                             $bot = "need_switchserver('$cfile');";  
                         }  
                     }  
                     $editbutton=&switch  
                        ('','',6,1,'pcstr.png',$swtext{'pcstr'},'resource[_2]',  
                         $bot,"Edit this resource");  
                     $noeditbutton = 0;  
                 }  
             } elsif ($editbutton eq '') {  
                 $editbutton=&clear(6,1);  
             }              }
         }          }
         if (($noeditbutton) && ($env{'request.filename'})) {   #
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  # Determine whether or not to show Grades and Submissions buttons
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  #
                 if (defined($cnum) && defined($cdom)) {          if ($env{'request.symb'} ne '' &&
                     if (&is_course_upload($file,$cnum,$cdom)) {              $env{'request.filename'}=~/$LONCAPA::assess_re/) {
                         my $cfile = &edit_course_upload($file,$cnum,$cdom);              if ($perms{'mgr'}) {
                         if ($cfile) {                  &switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                             $editbutton=&switch                          "gocmd('/adm/grades','gradingmenu')",
                                         ('','',6,1,'pcstr.png',$swtext{'pcstr'},                          'Content Grades');
                                          'resource[_2]',"go('".$cfile."');",              } elsif ($perms{'vgr'}) {
                                          'Edit this resource');                  &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');
         }          }
         if ($env{'request.course.id'}) {  # End grades/submissions check
             if ($resurl eq "public/$cdom/$cnum/syllabus") {  
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {  #
                     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  # This applies to items inside a folder/page modifiable in the course.
                         $editbutton=&switch('','',6,1,'pcstr.png',$swtext{'pcstr'},  #
                                             'resource[_2]',          if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {
                                             "go('/adm/courseprefs?phase=display&actions=courseinfo')",              my $text = 'Edit Folder';
                                             'Edit this resource');              if (($mapurl =~ /\.page$/) ||
                     }                  ($env{'request.symb'}=~
                 }                       m{uploaded/$cdom/$cnum/default_\d+\.page$}))  {
             }                  $text = 'Edit Page';
               }
               &switch('','',7,4,'docs-22x22.png',$text,'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,$cstritems);          my ($menuitems,$got_prt,$got_wishlist,$cstritems);
         if ($const_space) {          if ($const_space) {
Line 928  ENDMENUITEMS Line 849  ENDMENUITEMS
                         &Apache::lonhtmlcommon::add_breadcrumb_tool(                          &Apache::lonhtmlcommon::add_breadcrumb_tool(
                             'tools', $inlineremote[63]);                              'tools', $inlineremote[63]);
                     }                      }
                     unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {                      &advtools_crumbs(@inlineremote);
                         &Apache::lonhtmlcommon::add_breadcrumb_tool(  
                             'advtools', @inlineremote[61,71,72,73,74,92]);  
                     }  
                 }                  }
             }              }
             return   &Apache::lonhtmlcommon::scripttag('', 'start')              return   &Apache::lonhtmlcommon::scripttag('', 'start')
Line 1081  sub get_rc_text { Line 999  sub get_rc_text {
     return %text;      return %text;
 }  }
   
 sub is_course_upload {  
     my ($file,$cnum,$cdom) = @_;  
     my $uploadpath = &LONCAPA::propath($cdom,$cnum);  
     $uploadpath =~ s{^\/}{};  
     if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) ||  
         ($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {  
         return 1;  
     }  
     return;  
 }  
   
 sub edit_course_upload {  
     my ($file,$cnum,$cdom) = @_;  
     my $cfile;  
     if ($file =~/\.(htm|html|css|js|txt)$/) {  
         my $ext = $1;  
         my $url = &Apache::lonnet::hreflocation('',$file);  
         my $home = &Apache::lonnet::homeserver($cnum,$cdom);  
         my @ids=&Apache::lonnet::current_machine_ids();  
         my $dest;  
         if ($home && grep(/^\Q$home\E$/,@ids)) {  
             $dest = $url.'?forceedit=1';  
         } else {  
             unless (&Apache::lonnet::get_locks()) {  
                 $dest = '/adm/switchserver?otherserver='.  
                         $home.'&role='.$env{'request.role'}.  
                         '&url='.$url.'&forceedit=1';  
             }  
         }  
         if ($dest) {  
             $cfile = &HTML::Entities::encode($dest,'"<>&');  
         }  
     }  
     return $cfile;  
 }  
   
 sub loadevents() {  sub loadevents() {
     if ($env{'request.state'} eq 'construct' ||      if ($env{'request.state'} eq 'construct' ||
         $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }          $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
Line 1286  ENDOPEN Line 1168  ENDOPEN
     return '<script type="text/javascript">'.$returnval.'</script>';      return '<script type="text/javascript">'.$returnval.'</script>';
 }  }
   
   sub get_editbutton {
       my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;
       my $jscall;
       if (($forceview) && ($env{'form.todocs'})) {
           my ($folderpath,$command);
           if ($env{'request.symb'}) {
               $folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'});
           } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
               $folderpath = $env{'form.folderpath'};
               $command = '&forcesupplement=1';
           }
           $folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));
           $jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";
       } else {
           $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                   $forceedit,$forcereg,$env{'request.symb'},
                                                   &escape($env{'form.folderpath'}),
                                                   &escape($env{'form.title'}),$env{'form.idx'},
                                                   &escape($env{'form.suppurl'},$env{'form.todocs'}));
       }
       if ($jscall) {
           my $icon = 'pcstr.png';
           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,$docscrumbs) = @_;
       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$}) {
       if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
           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) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ((!$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);
           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 eq '/adm/extresedit') &&
                    (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
                                                  $env{'form.symb'});
               if ($cfile ne '') {
                   $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                 $forceedit,$forceview,$forcereg,
                                                 $env{'form.title'},$env{'form.suppurl'});
               }
           } 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
   
       if ($env{'request.course.id'}) {
   # This applies to about me page for users in a course
           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');
               }
               my $hideprivileged = 1;
               if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
                                              $hideprivileged)) {
                   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');
                   }
               }
           } elsif ($resurl =~ m{^/?adm/viewclasslist}) {
   # This applies to viewclasslist page for users in a course
               if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
                   &switch('','',6,4,'pparm.png','Settings',
                           '',
                           "go('/adm/courseprefs?actions=classlists&phase=display')",
                           'Student-viewable classlist options');
               }
           }
           if (($env{'form.folderpath'} =~ /^supplemental/) &&
               (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
               (($resurl =~ m{^/adm/wrapper/ext/}) ||
                ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
                ($resurl eq '/adm/supplemental') ||
                ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
                ($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
               my @folders=split('&',$env{'form.folderpath'});
               if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {
                   my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
                   &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
                           "location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'",
                           'Folder/Page Content');
               }
           }
       }
   
   # End checking for items for about me page for users in a course
       if ($docscrumbs) {
           &Apache::lonhtmlcommon::clear_breadcrumb_tools();
           &advtools_crumbs(@inlineremote);
           return $editbutton;
       } elsif ($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]);
       } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[64]);
       }
   }
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
Line 1750  sub utilityfunctions { Line 1859  sub utilityfunctions {
     my $end_page_annotate =       my $end_page_annotate = 
         &Apache::loncommon::end_page({'js_ready' => 1});          &Apache::loncommon::end_page({'js_ready' => 1});
   
     my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.      my $jumptores = &Apache::lonhtmlcommon::javascript_jumpto_resource();
                          &mt('Switch server?');  
   
     my $esc_url=&escape($currenturl);      my $esc_url=&escape($currenturl);
     my $esc_symb=&escape($currentsymb);      my $esc_symb=&escape($currentsymb);
Line 1774  function go(url) { Line 1882  function go(url) {
    }     }
 }  }
   
 function need_switchserver(url) {  $jumptores
     if (url!='' && url!= null) {  
         if (confirm("$confirm_switch")) {  
             go(url);   
         }  
     }  
     return;  
 }  
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
Line 1975  sub roles_selector { Line 2076  sub roles_selector {
     } else {      } else {
         $ccrole = 'cc';          $ccrole = 'cc';
     }      }
     my $priv;      my ($priv,$gotsymb,$destsymb);
     my $destinationurl = $ENV{'REQUEST_URI'};      my $destinationurl = $ENV{'REQUEST_URI'};
       if ($destinationurl =~ /\?symb=/) {
           $gotsymb = 1;
       } elsif ($destinationurl =~ m{^/enc/}) {
           my $plainurl = &Apache::lonenc::unencrypted($destinationurl);
           if ($plainurl =~ /\?symb=/) {
               $gotsymb = 1;
           }
       }
       unless ($gotsymb) {
           $destsymb = &Apache::lonnet::symbread();
           if ($destsymb ne '') {
               $destsymb = &Apache::lonenc::check_encrypt($destsymb);
           }
       }
     my $reqprivs = &required_privs();      my $reqprivs = &required_privs();
     if (ref($reqprivs) eq 'HASH') {      if (ref($reqprivs) eq 'HASH') {
         my $destination = $destinationurl;          my $destination = $destinationurl;
Line 2064  sub roles_selector { Line 2179  sub roles_selector {
                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';                   $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; 
             }              }
         }          }
         $role_selector .= '</select>'."\n".          $role_selector .= '</select>'."\n";
           if ($destsymb ne '') {
               $role_selector .= '<input type="hidden" name="destsymb" value="'.
                                 &HTML::Entities::encode($destsymb).'" />'."\n";
           }
           $role_selector .=
                '<input type="hidden" name="destinationurl" value="'.                 '<input type="hidden" name="destinationurl" value="'.
                &HTML::Entities::encode($destinationurl).'" />'."\n".                 &HTML::Entities::encode($destinationurl).'" />'."\n".
                '<input type="hidden" name="gotorole" value="1" />'."\n".                 '<input type="hidden" name="gotorole" value="1" />'."\n".
Line 2320  sub required_privs { Line 2440  sub required_privs {
   
 sub countdown_timer {  sub countdown_timer {
     if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&      if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&
         ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&          ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
         ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {          my ($type,$hastimeleft,$slothastime);
           my $now = time;
           if ($env{'request.filename'} =~ /\.task$/) {
               $type = 'Task';
           } else {
               $type = 'problem';
           }
           my ($status,$accessmsg,$slot_name,$slot) =
               &Apache::lonhomework::check_slot_access('0',$type);
           if ($slot_name ne '') {
               if (ref($slot) eq 'HASH') {
                   if (($slot->{'starttime'} < $now) &&
                       ($slot->{'endtime'} > $now)) {
                       $slothastime = 1;
                   }
               }
           }
           if ($status ne 'CAN_ANSWER') {
               return;
           }
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");          my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
         my @interval=&Apache::lonnet::EXT("resource.0.interval");          my @interval=&Apache::lonnet::EXT("resource.0.interval");
         my $hastimeleft;          my $hastimeleft;
Line 2334  sub countdown_timer { Line 2473  sub countdown_timer {
             }              }
         }          }
         if (($duedate && $duedate > time) ||          if (($duedate && $duedate > time) ||
             (!$duedate && $hastimeleft)) {              (!$duedate && $hastimeleft) ||
               ($slot_name ne '' && $slothastime)) {
             my ($collapse,$expand,$alttxt,$title,$currdisp);              my ($collapse,$expand,$alttxt,$title,$currdisp);
             if (@interval > 1 && $hastimeleft) {              if ((@interval > 1 && $hastimeleft) ||
                   ($type eq 'Task' && $slothastime)) {
                 $currdisp = 'inline';                  $currdisp = 'inline';
                 $collapse = '&#9658;&nbsp;';                  $collapse = '&#9658;&nbsp;';
             } else {              } else {
Removed from v.1.369.2.22  
changed lines
  Added in v.1.369.2.27

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