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

Diff for /loncom/homework/structuretags.pm between versions 1.582 and 1.585

version 1.582, 2023/11/28 04:48:15 version 1.585, 2024/02/27 22:09:40
Line 1439  sub needs_linkprot_passback { Line 1439  sub needs_linkprot_passback {
                             $lti_in_use = $domlti{$itemnum};                              $lti_in_use = $domlti{$itemnum};
                         }                          }
                         my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);                          my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);
                         my $passback;                          my ($passback,$pbscope);
                         if ($scope eq 'resource') {                          if ($scope eq 'res') {
                             if ($deeplink_symb eq $symb) {                              if ($deeplink_symb eq $symb) {
                                 $passback = 1;                                  $passback = 1;
                                   $pbscope = 'resource';
                             }                              }
                         } elsif ($scope eq 'map') {                          } elsif ($scope eq 'map') {
                             if (&Apache::lonnet::clutter($deeplink_map) eq $map) {                              if (&Apache::lonnet::clutter($deeplink_map) eq $map) {
                                 $passback = 1;                                  $passback = 1;
                                   $pbscope = 'nonrec';
                               }
                           } elsif ($scope eq 'rec') {
                               if (&Apache::lonnet::clutter($deeplink_map) eq $map) {
                                   $passback = 1;
                                   $pbscope = 'map';
                               } else {
                                   my @recurseup = &Apache::lonnet::get_map_hierarchy($map,$env{'request.course.id'});
                                   if (grep(/^\Q$deeplink_map\E$/,@recurseup)) {
                                       $passback = 1;
                                       $pbscope = 'map';
                                   }
                             }                              }
                         } elsif ($scope eq 'recurse') {  
 #FIXME check if $deeplink_map contains $map  
                             $passback = 1;  
                         }                          }
                         return ($passback,$scope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);                          return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);
                     }                      }
                 }                  }
             }              }
Line 1642  sub access_status_msg { Line 1652  sub access_status_msg {
         $msg ='\noindent \vskip 1 mm '.          $msg ='\noindent \vskip 1 mm '.
               $startminipage.'\vskip 0 mm';                $startminipage.'\vskip 0 mm';
         if ($status eq 'UNAVAILABLE') {          if ($status eq 'UNAVAILABLE') {
             $msg.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';              $msg.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.');
           } elsif ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
               $msg.=&mt('Problem is not open to be viewed. It')." $accessmsg";
         } else {          } else {
             $msg.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";              $msg.=&mt('Problem is not open to be viewed.');
         }          }
           $msg .= " \\vskip 0 mm ";
     }      }
     return $msg;      return $msg;
 }  }
Removed from v.1.582  
changed lines
  Added in v.1.585

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