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

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

version 1.149.2.5.2.3, 2022/10/05 22:54:00 version 1.165, 2021/08/06 01:27:04
Line 42  use Safe::Hole; Line 42  use Safe::Hole;
 use Opcode;  use Opcode;
 use Apache::lonenc;  use Apache::lonenc;
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
 use LONCAPA qw(:DEFAULT :match);    use LONCAPA qw(:DEFAULT :match);
 use File::Basename;  use File::Basename;
   
     
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 260  sub loadmap { Line 256  sub loadmap {
  push(@map_ids, $resource_id);   push(@map_ids, $resource_id);
                 if ($hash{'src_'.$lpc.'.'.$resource_id}) {                  if ($hash{'src_'.$lpc.'.'.$resource_id}) {
                     $rescount{$lpc} ++;                      $rescount{$lpc} ++;
                     if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) ||                      if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) || 
                         ($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) {                          ($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) {
                         $mapcount{$lpc} ++;                          $mapcount{$lpc} ++; 
                     }                      }
                 }                  }
                 unless ($codechecked) {                  unless ($codechecked) {
Line 393  sub is_advanced { Line 389  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);  
                 $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 ($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');  
                 }  
                 my $fileurl = $uri;  
                 $fileurl =~s{^/res/}{/priv/};  
                 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.  
                                              '&amp;origurl='.&escape($fileurl).'">','</a>');  
                 } else {  
                     &js_escape(\$fileurl);  
                     $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');  
                     }  
                     my $mapurl = $hash{'map_id_'.$parent_pc};  
                     $mapurl =~s{^/res/}{/priv/};  
                     if ($switchserver) {  
                         $errinfo .= '.<br />'.  
                                     &mt('You will need to [_1]switch server[_2].',  
                                         '<a href="/adm/switchserver?otherserver='.$switchserver.'&amp;role='.$rolecode.  
                                         '&amp;origurl='.&escape($mapurl).'">','</a>');  
                     } else {  
                         &js_escape(\$mapurl);  
                         $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 1168  sub traceroute { Line 950  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(':',map { &escape($_); } @deeplink);              $hash{'deeplinkonly_'.$rid}=join(':',@deeplink);
         }          }
   
  if (defined($hash{'conditions_'.$rid})) {   if (defined($hash{'conditions_'.$rid})) {
Line 1713  sub readmap { Line 1495  sub readmap {
         if ($redirect) {          if ($redirect) {
             $retfurl = $url;              $retfurl = $url;
         }          }
     }       }
     return ($retfurl,$errtext);      return ($retfurl,$errtext);
 }  }
   
Line 1831  sub build_tmp_hashes { Line 1613  sub build_tmp_hashes {
             }              }
             my $deeplink;              my $deeplink;
             if ($hash{'deeplinkonly_'.$loginrid} ne '') {              if ($hash{'deeplinkonly_'.$loginrid} ne '') {
                 my @deeplinkinfo = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$loginrid});                  $deeplink = $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 (($protect ne 'none') && ($protect ne '')) {                  if ($others eq 'hide') {
                     my ($acctype,$item) = split(/:/,$protect);                      my @recfolders;
                     if ($acctype =~ /lti(c|d)$/) {                      if ($scope eq 'rec') {
                         unless ($env{'request.linkprot'} eq $item.$1.':'.$env{'request.deeplink.login'}) {                          foreach my $key (keys(%hash)) {
                             $disallow = 1;                              if ($key=~/^map_hierarchy_(\d+)$/) {
                         }                                  my $mpc = $1;
                     } elsif ($acctype eq 'key') {                                  my @ids = split(/,/,$hash{$key});
                         unless ($env{'request.linkkey'} eq $item) {                                  if (grep(/^$deeplink_login_pc$/,@ids)) {
                             $disallow = 1;                                      my $idx;
                         }                                      foreach my $mapid (@ids) {
                     }                                          if ($idx) {
                 }                                              push(@recfolders,$mapid);
                 if ($disallow) {                                          } elsif ($mapid == $deeplink_login_pc) {
                     &Apache::lonnet::delenv('request.deeplink.login');                                              push(@recfolders,$mapid);
                     if ($env{'request.deeplink.target'} ne '') {                                              $idx = $mapid;
                         &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)) {                      }
                             if ($key=~/^src_(.+)$/) {                      foreach my $key (keys(%hash)) {
                                 my $rid = $1;                          if ($key=~/^src_(.+)$/) {
                                 next if ($rid eq '0.0');                              my $rid = $1;
                                 next if ($rid eq $loginrid);                              next if ($rid eq '0.0');
                                 if ($scope ne 'res') {                              next if ($rid eq $loginrid);
                                     my $mapid = (split(/\./,$rid))[0];                              if ($scope ne 'res') {
                                     next if ($mapid eq $deeplink_login_pc);                                  my $mapid = (split(/\./,$rid))[0];
                                     if ($scope eq 'rec') {                                  next if ($mapid eq $deeplink_login_pc);
                                         next if (grep(/^$mapid$/,@recfolders));                                  if ($scope eq 'rec') {
                                     }                                      next if (grep(/^$mapid$/,@recfolders));
                                 }                                  }
                                 $deeplinkout{$rid} = 1;  
                             }                              }
                               $deeplinkout{$rid} = 1;
                         }                          }
                     }                      }
                 }                  }
                 &deeplinkouts();  
             }              }
               &deeplinkouts();
         }          }
     }      }
     &mapcrumbs();      &mapcrumbs();
Line 2030  sub get_mapparam { Line 1789  sub get_mapparam {
                     last;                      last;
                 }                  }
             }              }
               my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
               if (defined($$useropt{$recursechk})) {
                   return $$useropt{$recursechk};
               }
         }          }
     }      }
   
Line 2051  sub get_mapparam { Line 1814  sub get_mapparam {
                     last;                      last;
                 }                  }
             }              }
               my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;
               if (defined($$courseopt{$recursechk})) {
                   return $$courseopt{$recursechk};
               }
         }          }
     }      }
   
Line 2072  sub get_mapparam { Line 1839  sub get_mapparam {
                     last;                      last;
                 }                  }
             }              }
               my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;
               if (defined($$courseopt{$recursechk})) {
                   return $$courseopt{$recursechk};
               }
         }          }
     }      }
   
Line 2115  sub get_mapparam { Line 1886  sub get_mapparam {
                         last;                          last;
                     }                      }
                 }                  }
                   my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
                   if (defined($$courseopt{$recursechk})) {
                       return $$courseopt{$recursechk};
                   }
             }              }
         }          }
     }      }
Removed from v.1.149.2.5.2.3  
changed lines
  Added in v.1.165

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