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

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

version 1.583, 2024/01/13 12:07:13 version 1.585, 2024/02/27 22:09:40
Line 1451  sub needs_linkprot_passback { Line 1451  sub needs_linkprot_passback {
                                 $pbscope = 'nonrec';                                  $pbscope = 'nonrec';
                             }                              }
                         } elsif ($scope eq 'rec') {                          } elsif ($scope eq 'rec') {
                             my @recurseup = &get_map_hierarchy($map,$env{'request.course.id'});                              if (&Apache::lonnet::clutter($deeplink_map) eq $map) {
                             if (grep(/^\Q$deeplink_map\E$/,@recurseup)) {  
                                 $passback = 1;                                  $passback = 1;
                                 $pbscope = 'map';                                  $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';
                                   }
                             }                              }
                         }                          }
                         return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);                          return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);
Line 1647  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.583  
changed lines
  Added in v.1.585

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