[BACK]Return to lonuserstate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.165 and 1.169

version 1.165, 2021/08/06 01:27:04 version 1.169, 2022/10/04 20:39:57
Line 199  sub loadmap { Line 199  sub loadmap {
         $errtext.= '<br />'          $errtext.= '<br />'
                   .&mt('Map not loaded: The file [_1] does not exist.',                    .&mt('Map not loaded: The file [_1] does not exist.',
                        "<tt>$fn</tt>");                         "<tt>$fn</tt>");
           $hash{'map_type_'.$lpc}='none';
           if (&is_advanced($courseid)) {
               $errtext .= &error_detail($parent_rid,$courseid,$ispage,$uri);
           }
  return;   return;
     }      }
   
Line 389  sub is_advanced { Line 393  sub is_advanced {
     return $advanced;      return $advanced;
 }  }
   
   sub error_detail {
       my ($parent_rid,$courseid,$ispage,$uri) = @_;
       my $errinfo;
       if ($courseid) {
           my $courseurl = &Apache::lonnet::courseid_to_courseurl($courseid);
           if ($parent_rid =~ /^(\d+)\.(\d+)$/) {
               my ($parent_pc,$parent_id) = ($1,$2);
               my ($parent_type,$published,$uploaded,$canedit,$role,$switchserver,$audom,$auname,
                   $editfile,$filerole,$fileswitch,$audomfile,$aunamefile);
               if (($parent_pc eq '0') && ($hash{'map_id_1'} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$})) {
                   ($audomfile,$aunamefile) = ($1,$2);
                   ($editfile,$filerole,$fileswitch) = &canedit_published($audomfile,$aunamefile);
                   if ($fileswitch) {
                       unless ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$audomfile)) &&
                               (&Apache::lonnet::will_trust('coaurem',$audomfile,$env{'user.domain'}))) {
                           undef($editfile);
                       }
                   }
                   $errinfo = &mt('Top level published sequence file is missing.');
               } else {
                   if ($parent_pc eq '1') {
                       if ($hash{'map_id_1'} eq "/uploaded$courseurl/default.sequence") {
                           $uploaded = 1;
                           if (&Apache::lonnet::allowed('mdc',$courseid)) {
                               $canedit = 1;
                           }
                           $errinfo = &mt('Map is referenced in the top level ([_1]Main Content[_2]) folder.',
                                          '<span class="LC_cusr_emph">','</span>');
                       } elsif ($hash{'map_id_1'} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {
                           ($audom,$auname) = ($1,$2);
                           ($canedit,$role,$switchserver) = &canedit_published($audom,$auname);
                           $published = 1;
                           $errinfo = &mt('Map is referenced in the top level published sequence file.');
                       }
                   } else {
                       if ($hash{'map_id_'.$parent_pc} =~ m{^\Q/uploaded$courseurl/default_\E\d+\.(sequence|page)$}) {
                           $uploaded = 1;
                           if (&Apache::lonnet::allowed('mdc',$courseid)) {
                               $canedit = 1;
                           }
                       } elsif ($hash{'map_id_'.$parent_pc} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {
                           ($audom,$auname) = ($1,$2);
                           ($canedit,$role,$switchserver) = &canedit_published($audom,$auname);
                           $published = 1;
                       }
                       if (exists($hash{'ids_'.$hash{'map_id_'.$parent_pc}})) {
                           $parent_type = $hash{'map_type_'.$parent_pc};
                           if ($published) {
                               $errinfo = &mt("Map is referenced in the published $parent_type file: [_1].",
                                              '<span class="LC_cusr_emph">'.$hash{'map_id_'.$parent_pc}.'</span>');
                           } else {
                               my $title = $hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$parent_pc}}};
                               if ($title ne '') {
                                   my $mapdesc;
                                   if ($parent_type eq 'sequence') {
                                       $mapdesc = 'folder';
                                   } else {
                                       $mapdesc = 'composite page';
                                   }
                                   $errinfo = &mt("Map is referenced in the $mapdesc named: [_1].",
                                                  '<span class="LC_cusr_emph">'.$title.'</span>');
                               }
                               my @containers = split(/,/,$hash{'map_hierarchy_'.$parent_pc});
                               shift(@containers);
                               my $folderpath;
                               foreach my $id (@containers) {
                                   my $name;
                                   if ($id == 1) {
                                       $name = &mt('Main Content');
                                   } elsif ($hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$id}}} ne '') {
                                       $name = $hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$id}}};
                                   }
                                   if ($name ne '') {
                                       $folderpath .= $name.' &raquo; ';
                                   }
                               }
                               if ($title eq '') {
                                   $folderpath =~ s/\Q &raquo; \E$//;
                               } else {
                                   $folderpath .= $title;
                               }
                               if ($folderpath) {
                                   $errinfo .= '<br />'.&mt('Hierarchy is: [_1]',
                                                       '<span class="LC_cusr_emph">'.$folderpath.'</span>');
                               }
                           }
                       }
                   }
                   if ($uri =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {
                       ($audomfile,$aunamefile) = ($1,$2);
                       ($editfile,$filerole,$fileswitch) = &canedit_published($audomfile,$aunamefile);
                       if ($fileswitch) {
                           unless ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$audomfile)) &&
                                   (&Apache::lonnet::will_trust('coaurem',$audomfile,$env{'user.domain'}))) {
                               undef($editfile);
                           }
                       }
                   }
               }
               if ($errinfo) {
                   $errinfo = '<br />'.$errinfo.'<br />';
               }
               if ($editfile) {
                   if ($errinfo ne '') {
                       $errinfo .= '<br />';
                   }
                   if ($canedit) {
                       $errinfo .= &mt('One way to rectify this problem is to create and publish the missing file');
                   } else {
                       $errinfo .= &mt('To rectify this problem, create and publish the missing file');
                   }
                   if ($fileswitch) {
                       my $rolename = &Apache::lonnet::plaintext($filerole);
                       my $rolecode;
                       if ($filerole eq 'au') {
                           $rolecode = 'au./'.$audomfile.'/';
                       } else {
                           $rolecode = $filerole.'./'.$audomfile.'/'.$aunamefile;
                       }
                       $errinfo .= '.<br />'.&mt('You will need to [_1]switch server[_2].',
                                                '<a href="/adm/switchserver?otherserver='.$switchserver.'&amp;role='.$rolecode.'">','</a>');
                   } else {
                       my $fileurl = $uri;
                       $fileurl =~s{^/res/}{/priv/};
                       $errinfo .= ':&nbsp;<a href="javascript:go('."'$fileurl'".');">'.&mt('Create the missing file').'</a>';
                   }
               }
               if ($canedit) {
                   if ($errinfo ne '') {
                       $errinfo .= '<br />';
                   }
                   if ($published) {
                       my $rolename = &Apache::lonnet::plaintext($role);
                       my $rolecode;
                       if ($role eq 'au') {
                           $rolecode = 'au./'.$audom.'/';
                       } else {
                           $rolecode = $role.'./'.$audom.'/'.$auname;
                       }
                       if ($editfile) {
                           $errinfo .= &mt('Another way is to edit the parent map to remove the reference to the missing file');
                       } else {
                           $errinfo .= &mt('To rectify this problem edit the parent map to remove the reference to the missing file');
                       }
                       if ($switchserver) {
                           $errinfo .= '.<br />';
                           if ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$audom)) &&
                               (&Apache::lonnet::will_trust('coaurem',$audom,$env{'user.domain'}))) {
                               $errinfo .= &mt('You will need to [_1]switch server[_2].',
                                               '<a href="/adm/switchserver?otherserver='.$switchserver.'&amp;role='.$rolecode.'">','</a>');
                           } else {
                               $errinfo .= &mt('Session switch required but prohibited.');
                           }
                       } else {
                           my $mapurl = $hash{'map_id_'.$parent_pc};
                           $mapurl =~s{^/res/}{/priv/};
                           $errinfo .= ':&nbsp;<a href="javascript:go('."'$mapurl'".');">'.&mt('Edit the map').'</a>';
                       }
                   } elsif ($uploaded && $courseid) {
                       my ($dest,$linktext);
                       my $crstype = &Apache::loncommon::course_type($courseid);
                       if ($parent_pc eq '1') {
                           $dest = '/adm/coursedocs?folderpath='.&escape('default&Main%20Content:::::');
                           $linktext = &mt('Edit Folder');
                       } elsif ($hash{'ids_'.$hash{'map_id_'.$parent_pc}} =~ /^(\d+)\.(\d+)$/) {
                           my ($editmap,$editidx) = ($1,$2);
                           my $symb = &Apache::lonnet::encode_symb($hash{'map_id_'.$editmap},
                                                                        $editidx,$hash{'map_id_'.$parent_pc});
                           $dest = '/adm/coursedocs?command=directnav&amp;symb='.&escape($symb);
                           if ($parent_type eq 'sequence') {
                               $linktext = &mt('Edit Folder');
                           } else {
                               $linktext = &mt('Edit Composite Page');
                           }
                       } else {
                           $dest = '/adm/coursedocs?folderpath='.&escape('default&Main%20Content:::::');
                           $linktext = &mt("Edit $crstype");
                       }
                       if ($editfile) {
                           $errinfo .= &mt("Another way is to use the $crstype Editor to delete the reference to the missing file");
                       } else {
                           $errinfo .= &mt("To rectify this problem use the $crstype Editor to delete the reference to the missing file");
                       }
                       $errinfo .= ':&nbsp;<a href="javascript:go('."'$dest'".');">'.$linktext.'</a>';
                   }
                   $errinfo .= '<br />';
               }
           }
       }
       return $errinfo;
   }
   
   sub canedit_published {
       my ($audom,$auname) = @_;
       my ($canedit,$role,$switchserver);
       my $now = time;
       if (($auname eq $env{'user.name'}) && ($audom eq $env{'user.domain'})) {
           if (exists($env{"user.role.au./$audom/"})) {
               my ($start,$end) = split(/\./,$env{"user.role.au./$audom/"});
               unless (($end && $end < $now) || ($start && $start > $now)) {
                   $canedit = 1;
                   $role = 'au';
               }
           }
       }
       unless ($canedit) {
           foreach my $possrole ('ca','aa') {
               if (exists($env{"user.role.$possrole./$audom/$auname"})) {
                   my ($end,$start) = split(/\./,$env{"user.role.$possrole./$audom/$auname"});
                   unless (($end && $end < time) || ($start && $start > time)) {
                       $canedit = 1;
                       $role = $possrole;
                       last;
                   }
               }
           }
       }
       if ($canedit) {
           my $auhome = &Apache::lonnet::homeserver($auname,$audom);
           my @ids=&Apache::lonnet::current_machine_ids();
           if (($auhome ne 'no_host') && (!grep(/^\Q$auhome\E$/,@ids))) {
               $switchserver = $auhome;
           }
       }
       return ($canedit,$role,$switchserver);
   }
   
 # -------------------------------------------------------------------- Resource  # -------------------------------------------------------------------- Resource
 #  #
 #  Parses a resource tag to produce the value to push into the  #  Parses a resource tag to produce the value to push into the
Line 950  sub traceroute { Line 1181  sub traceroute {
             @deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup);              @deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup);
         }          }
         unless (@deeplink < 2) {          unless (@deeplink < 2) {
             $hash{'deeplinkonly_'.$rid}=join(':',@deeplink);              $hash{'deeplinkonly_'.$rid}=join(':',map { &escape($_); } @deeplink);
         }          }
   
  if (defined($hash{'conditions_'.$rid})) {   if (defined($hash{'conditions_'.$rid})) {
Line 1613  sub build_tmp_hashes { Line 1844  sub build_tmp_hashes {
             }              }
             my $deeplink;              my $deeplink;
             if ($hash{'deeplinkonly_'.$loginrid} ne '') {              if ($hash{'deeplinkonly_'.$loginrid} ne '') {
                 $deeplink = $hash{'deeplinkonly_'.$loginrid};                  my @deeplinkinfo = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$loginrid});
                   unless (@deeplinkinfo < 2) {
                       $deeplink = $deeplinkinfo[0];
                   }
             }              }
             if ($deeplink) {              if ($deeplink) {
                   my $disallow;
                 my ($state,$others,$listed,$scope,$protect) = split(/,/,$deeplink);                  my ($state,$others,$listed,$scope,$protect) = split(/,/,$deeplink);
                 if ($others eq 'hide') {                  if (($protect ne 'none') && ($protect ne '')) {
                     my @recfolders;                      my ($acctype,$item) = split(/:/,$protect);
                     if ($scope eq 'rec') {                      if ($acctype =~ /lti(c|d)$/) {
                         foreach my $key (keys(%hash)) {                          unless ($env{'request.linkprot'} eq $item.$1.':'.$env{'request.deeplink.login'}) {
                             if ($key=~/^map_hierarchy_(\d+)$/) {                              $disallow = 1;
                                 my $mpc = $1;                          }
                                 my @ids = split(/,/,$hash{$key});                      } elsif ($acctype eq 'key') {
                                 if (grep(/^$deeplink_login_pc$/,@ids)) {                          unless ($env{'request.linkkey'} eq $item) {
                                     my $idx;                              $disallow = 1;
                                     foreach my $mapid (@ids) {                          }
                                         if ($idx) {                      }
                                             push(@recfolders,$mapid);                  }
                                         } elsif ($mapid == $deeplink_login_pc) {                  if ($disallow) {
                                             push(@recfolders,$mapid);                      &Apache::lonnet::delenv('request.deeplink.login');
                                             $idx = $mapid;                      if ($env{'request.deeplink.target'} ne '') {
                           &Apache::lonnet::delenv('request.deeplink.target');
                       }
                   } else {
                       if ($others eq 'hide') {
                           my @recfolders;
                           if ($scope eq 'rec') {
                               foreach my $key (keys(%hash)) {
                                   if ($key=~/^map_hierarchy_(\d+)$/) {
                                       my $mpc = $1;
                                       my @ids = split(/,/,$hash{$key});
                                       if (grep(/^$deeplink_login_pc$/,@ids)) {
                                           my $idx;
                                           foreach my $mapid (@ids) {
                                               if ($idx) {
                                                   push(@recfolders,$mapid);
                                               } elsif ($mapid == $deeplink_login_pc) {
                                                   push(@recfolders,$mapid);
                                                   $idx = $mapid;
                                               }
                                         }                                          }
                                           push(@recfolders,$mpc);
                                     }                                      }
                                     push(@recfolders,$mpc);  
                                 }                                  }
                             }                              }
                         }                          }
                     }                          foreach my $key (keys(%hash)) {
                     foreach my $key (keys(%hash)) {                              if ($key=~/^src_(.+)$/) {
                         if ($key=~/^src_(.+)$/) {                                  my $rid = $1;
                             my $rid = $1;                                  next if ($rid eq '0.0');
                             next if ($rid eq '0.0');                                  next if ($rid eq $loginrid);
                             next if ($rid eq $loginrid);                                  if ($scope ne 'res') {
                             if ($scope ne 'res') {                                      my $mapid = (split(/\./,$rid))[0];
                                 my $mapid = (split(/\./,$rid))[0];                                      next if ($mapid eq $deeplink_login_pc);
                                 next if ($mapid eq $deeplink_login_pc);                                      if ($scope eq 'rec') {
                                 if ($scope eq 'rec') {                                          next if (grep(/^$mapid$/,@recfolders));
                                     next if (grep(/^$mapid$/,@recfolders));                                      }
                                 }                                  }
                                   $deeplinkout{$rid} = 1;
                             }                              }
                             $deeplinkout{$rid} = 1;  
                         }                          }
                     }                      }
                 }                  }
                   &deeplinkouts();
             }              }
             &deeplinkouts();  
         }          }
     }      }
     &mapcrumbs();      &mapcrumbs();
Removed from v.1.165  
changed lines
  Added in v.1.169

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