Diff for /rat/lonpage.pm between versions 1.111.2.13.2.7 and 1.144

version 1.111.2.13.2.7, 2023/09/12 14:55:16 version 1.144, 2023/09/11 13:26:26
Line 384  ENDEXT Line 384  ENDEXT
                           } elsif ($cellemb{$_} eq 'ssi') {                            } elsif ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
       my $prefix='p_'.$_.'_';        my $prefix='p_'.$_.'_';
                               my $idprefix='p_'.join('_',($mapid,$resid,''));                                my $idprefix= 'p_'.join('_',($mapid,$resid,''));
                               my %posthash=('request.prefix' => $prefix,                                my %posthash=('request.prefix' => $prefix,
     'LONCAPA_INTERNAL_no_discussion' => 'true',      'LONCAPA_INTERNAL_no_discussion' => 'true',
     'symb' => $symb);      'symb' => $symb);
Line 422  ENDEXT Line 422  ENDEXT
       } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {        } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
                   $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};                    $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};
               }                }
                               if ($env{'environment.remote'} eq 'on') {  
                                   $posthash{'inhibitmenu'} = 'yes';  
                               }  
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
       $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;        $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
                               if (($target eq 'tex') || ($target eq 'tex_answer')) {                                if (($target eq 'tex') || ($target eq 'tex_answer')) {
Line 698  ENDEXT Line 695  ENDEXT
                       &Apache::loncommon::content_type($r,'text/html');                        &Apache::loncommon::content_type($r,'text/html');
                       $r->send_http_header;                        $r->send_http_header;
                       $r->print(&Apache::loncommon::start_page(undef,undef,                        $r->print(&Apache::loncommon::start_page(undef,undef,
        {'force_register' => 1}));         {'force_register' => 1,}));
                       $r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');                        $r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');
                       $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').                        $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').
  &Apache::loncommon::end_page());   &Apache::loncommon::end_page());
Line 751  ENDEXT Line 748  ENDEXT
                                       $uniquetimes{$item} = 1;                                        $uniquetimes{$item} = 1;
                                   }                                    }
                               }                                }
                               if (scalar(keys(%uniquetimes)) == 1) {                                 if (scalar(keys(%uniquetimes)) == 1) {
                                   my (%uniquedisplays,%uniquedones,$currdisp,$donebuttontime,                                    my (%uniquedisplays,%uniquedones,$currdisp,$donebuttontime,
                                       $donebuttonextras);                                        $donebuttonextras);
                                   if (keys(%countdowndisp)) {                                    if (keys(%countdowndisp)) {
Line 987  ENDEXT Line 984  ENDEXT
                           $r->print('<span class="LC_warning">'.&mt('Missing composite page file.').'</span><br />'.                            $r->print('<span class="LC_warning">'.&mt('Missing composite page file.').'</span><br />'.
                                     &mt("You may want to use the $crstype Editor to remove this item."));                                      &mt("You may want to use the $crstype Editor to remove this item."));
                       } else {                        } else {
                           $r->print('<span class="LC_info">'.                            if ($crstype eq 'Placement') {
                                     &mt('This resource was unavailable when your '.lc($crstype).' session was loaded').'<br />'.                                $r->print('<span class="LC_warning">'.&mt('Missing page').'</span>');
                                     &mt("Please use 'Contents' to list items available in the $crstype.").'</span>');                            } else {
                                 $r->print('<span class="LC_info">'.
                                           &mt('This resource was unavailable when your '.lc($crstype).' session was loaded').'<br />'.
                                           &mt("Please use 'Contents' to list items available in the $crstype.").'</span>');
                             }
                       }                        }
                       $r->print(&Apache::loncommon::end_page());                        $r->print(&Apache::loncommon::end_page());
                   } else {                    } else {
Line 1188  sub add_countdown_timer { Line 1189  sub add_countdown_timer {
             $donebuttontext = &mt('Done');              $donebuttontext = &mt('Done');
             $type = 'map';              $type = 'map';
         }          }
         $donebutton =          $donebutton = 
             &Apache::lonmenu::done_button_js($type,'','',$proctor,$donebuttontext);              &Apache::lonmenu::done_button_js($type,'','',$proctor,$donebuttontext);
     }      }
     unless ($env{'environment.icons'} eq 'iconsonly') {      unless ($env{'environment.icons'} eq 'iconsonly') {

Removed from v.1.111.2.13.2.7  
changed lines
  Added in v.1.144


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