Diff for /rat/lonpage.pm between versions 1.111.2.10.2.1 and 1.140

version 1.111.2.10.2.1, 2020/01/22 15:02:22 version 1.140, 2022/06/29 17:51:10
Line 44  use Apache::lonhomework; Line 44  use Apache::lonhomework;
 use Apache::lonparmset;  use Apache::lonparmset;
 use Apache::lonenc();  use Apache::lonenc();
 use HTML::TokeParser;  use HTML::TokeParser;
   use HTML::Entities();
 use GDBM_File;  use GDBM_File;
 use Apache::lonsequence;  use Apache::lonsequence;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
Line 101  sub tracetable { Line 102  sub tracetable {
             } else {              } else {
                 $sofar++;                  $sofar++;
                 if ($hash{'src_'.$rid}) {                  if ($hash{'src_'.$rid}) {
                     my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});                      my ($mapid,$resid)=split(/\./,$rid);
                       my $symb = &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
                       my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid},$symb);
                     if (($brepriv eq '2') || ($brepriv eq 'F')) {                      if (($brepriv eq '2') || ($brepriv eq 'F')) {
                         if (defined($rows[$sofar])) {                          if (defined($rows[$sofar])) {
                             $rows[$sofar].='&'.$rid;                              $rows[$sofar].='&'.$rid;
Line 187  sub handler { Line 190  sub handler {
       if (-e "$fn.db") {        if (-e "$fn.db") {
           my %buttonshide;            my %buttonshide;
           my $hostname = $r->hostname();            my $hostname = $r->hostname();
             my $lonhost = $r->dir_config('lonHostID');
             my $ip = &Apache::lonnet::get_host_ip($lonhost);
           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {            if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
 # ------------------------------------------------------------------- Hash tied  # ------------------------------------------------------------------- Hash tied
               my $firstres=$hash{'map_start_'.$requrl};                my $firstres=$hash{'map_start_'.$requrl};
Line 199  sub handler { Line 204  sub handler {
                   my ($pagesymb,$courseid,$domain,$name)=&Apache::lonnet::whichuser();                    my ($pagesymb,$courseid,$domain,$name)=&Apache::lonnet::whichuser();
                   unless ($pagesymb) {                    unless ($pagesymb) {
                       $pagesymb=&Apache::lonnet::symbread($requrl);                        $pagesymb=&Apache::lonnet::symbread($requrl);
                   }                                      }
                   if ($pagesymb && ($courseid ne '') && ($domain ne '') && ($name ne '')) {                    if ($pagesymb && ($courseid ne '') && ($domain ne '') && ($name ne '')) {
                       my %times=&Apache::lonnet::get('firstaccesstimes',                        my %times=&Apache::lonnet::get('firstaccesstimes',
                                                      [$courseid."\0".$pagesymb],                                                       [$courseid."\0".$pagesymb],
Line 273  sub handler { Line 278  sub handler {
                   my %ssilink=();                    my %ssilink=();
                   my %ssivlink=();                    my %ssivlink=();
                   my %ssialink=();                    my %ssialink=();
                     my %cssrefs=();
                     my %httpref=();
             
                   my %cellemb=();                    my %cellemb=();
                   my %cellexternal=();                    my %cellexternal=();
Line 304  sub handler { Line 311  sub handler {
                       foreach (@colcont) {                        foreach (@colcont) {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           my $plainsrc = $src;                            my $plainsrc = $src;
                             my $anchor;
                             if ($hash{'ext_'.$_} eq 'true:') {
                                 $cellexternal{$_}=($hash{'ext_'.$_} eq 'true:');
                                 $src =~ s{^/ext/}{http://};
                                 $src =~ s{http://https://}{https://};
                                 if ($src =~ /(\#[^#]+)$/) {
                                     $anchor = $1;
                                     $src =~ s/\#[^#]+$//;
                                 }
                             }
                             my $unencsrc = $src;
                           my ($extension)=($src=~/\.(\w+)$/);                            my ($extension)=($src=~/\.(\w+)$/);
   $cellexternal{$_}=($hash{'ext_'.$_} eq 'true:');  
   if ($hash{'encrypted_'.$_}) {    if ($hash{'encrypted_'.$_}) {
       $src=&Apache::lonenc::encrypted($src);        $src=&Apache::lonenc::encrypted($src);
   }    }
                           my ($mapid,$resid)=split(/\./,$_);                            my ($mapid,$resid)=split(/\./,$_);
                           my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src);                            my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$plainsrc);
                           unless ($env{'request.role.adv'}) {                            unless ($env{'request.role.adv'}) {
                               $buttonshide{$symb} = &Apache::lonnet::EXT("resource.0.buttonshide",$symb);                                $buttonshide{$symb} = &Apache::lonnet::EXT("resource.0.buttonshide",$symb);
                           }                            }
                           $cellemb{$_}=                            $cellemb{$_}=
       &Apache::loncommon::fileembstyle($extension);        &Apache::loncommon::fileembstyle($extension);
                           if ($cellexternal{$_}) {                            if ($cellexternal{$_}) {
                               unless (($target eq 'tex') || ($target eq 'tex_answer')) {                                if (($target eq 'tex') || ($target eq 'tex_answer')) {
                                   $ssibody{$_} = <<ENDEXT;                                    my $shown = $src.$anchor;
 <iframe src="$src" width="100%">No iframe support!</iframe>                                    if (($hash{'encrypted_'.$_}) && (!$env{'request.role.adv'})) {
                                         $shown = &mt('URL not shown (encrypted)');
                                     }
                                     my $title=&Apache::lonnet::gettitle($symb);
                                     $title = &Apache::lonxml::latex_special_symbols($title);
                                     $shown = &Apache::lonxml::latex_special_symbols($shown);
                                     $ssibody{$_} = ' \strut \\\\ \textit{'.$title.'} \strut \\\\ '.$shown.'\\\\';
                                 } else {
                                     my $showsrc = $src;
                                     my ($is_pdf,$title,$linktext);
                                     if ($unencsrc =~ /\.pdf$/i) {
                                         $is_pdf = 1;
                                     }
                                     if (($hash{'encrypted_'.$_}) && ($symb)) {
                                         $title=&Apache::lonnet::gettitle(&Apache::lonenc::encrypted($symb));
                                     } else {
                                         $title=&Apache::lonnet::gettitle($symb);
                                     }
                                     if ($env{'browser.mobile'}) {
                                         if ($is_pdf) {
                                             $linktext = &mt('Link to PDF (for mobile devices)');
                                             $ssibody{$_} = &create_extlink($unencsrc,$anchor,$title,$linktext);
                                         } else {
                                             $linktext = &mt('Link to resource');
                                             $ssibody{$_} = &create_extlink($unencsrc,$anchor,$title,$linktext);
                                         }
                                     } else {
                                         my $absolute = $env{'request.use_absolute'};
                                         my $uselink = &Apache::loncommon::is_nonframeable($unencsrc,$absolute,$hostname,$ip);
                                         if (($uselink) || (($ENV{'SERVER_PORT'} == 443) && ($unencsrc =~ m{^http://}))) {
                                             $linktext = &mt('Link to resource');
                                             $ssibody{$_} =  &create_extlink($unencsrc,$anchor,$title,$linktext);
                                         } else {
                                             if (($hash{'encrypted_'.$_}) && ($symb) && (!$env{'request.role.adv'})) {
                                                 $showsrc .= '?symb='.&Apache::lonenc::encrypted($symb);
                                             } elsif ($anchor) {
                                                 $showsrc .= $anchor;
                                             }
                                             $ssibody{$_} = <<ENDEXT;
   <iframe src="$showsrc" width="100%" height="300px">No iframe support!</iframe>
 ENDEXT  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 363  ENDEXT Line 421  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 387  ENDEXT Line 442  ENDEXT
                               my $bodydef=0;                                my $bodydef=0;
                               my $thisxml=0;                                my $thisxml=0;
                               my @rlinks=();                                my @rlinks=();
                                 my @css_hrefs=();
                               if ($output=~/\?xml/) {                                if ($output=~/\?xml/) {
                                  $isxml=1;                                   $isxml=1;
                                  $thisxml=1;                                   $thisxml=1;
Line 429  ENDEXT Line 485  ENDEXT
                                            ($bodydef==0)) {                                             ($bodydef==0)) {
       $allscript.="\n\n"        $allscript.="\n\n"
                                                 .$parser->get_text('/script');                                                  .$parser->get_text('/script');
                                     } elsif (($token->[1] eq 'link') &&
                                              ($bodydef==0)) {
                                         if (($token->[2]->{'href'} !~ m{^/adm/}) &&
                                             ($token->[2]->{'rel'} eq 'stylesheet')) {
                                                 $css_hrefs[$#css_hrefs+1]=
                                                     $token->[2]->{'href'};
   
                                         }
                                   }                                    }
         }          }
       }        }
Line 591  ENDEXT Line 655  ENDEXT
                      $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;                       $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
   }    }
       }        }
                                 foreach my $css_href (@css_hrefs) {
                                     next if ($css_href eq '');
                                     unless ($css_href =~ m{https?://}) {
                                         my $proburl = &Apache::lonnet::clutter($plainsrc);
                                         unless ($css_href =~ m{^/}) {
                                             my $probdir = $proburl;
                                             $probdir=~s/\/[^\/]*$//;
                                             $css_href = &Apache::lonnet::hreflocation($probdir,$css_href);
                                         }
                                         if ($css_href =~ m{^/(res|uploaded)/}) {
                                             unless (($env{'httpref.'.$css_href}) ||
                                                     ($httpref{'httpref.'.$css_href}) ||
                                                     (&Apache::lonnet::is_on_map($css_href))) {
                                                 if ($env{'httpref.'.$proburl}) {
                                                     $proburl = $env{'httpref.'.$proburl};
                                                 }
                                                 $httpref{'httpref.'.$css_href} = $proburl;
                                             }
                                         }
                                     }
                                     $cssrefs{$css_href} = 1;
                                 }
 # -------------------------------------------------- Deal with Applet codebases  # -------------------------------------------------- Deal with Applet codebases
   $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;    $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
Line 603  ENDEXT Line 689  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 646  ENDEXT Line 732  ENDEXT
                                             '// ]]>'.                                              '// ]]>'.
                                             "\n</script>\n";                                              "\n</script>\n";
                           }                            }
                             &Apache::lonhtmlcommon::clear_breadcrumb_tools();
                           if (keys(%hastimeleft)) {                            if (keys(%hastimeleft)) {
                               my (%uniquetimes,%uniquedisplays);                                my (%uniquetimes,%uniquedisplays);
                               foreach my $item (values(%hastimeleft)) {                                foreach my $item (values(%hastimeleft)) {
Line 708  ENDEXT Line 795  ENDEXT
                                   }                                    }
                               }                                }
                           }                            }
                             if (keys(%cssrefs)) {
                                 my $links;
                                 if (keys(%cssrefs)) {
                                     foreach my $css_href (keys(%cssrefs)) {
                                         next unless ($css_href =~ m{^(/res/|/uploaded/|https?://)});
                                         $links .= '<link rel="stylesheet" type="text/css" href="'.$css_href.'" />'."\n";
                                     }
                                 }
                                 if ($links) {
                                     if (keys(%httpref)) {
                                         &Apache::lonnet::appenv(\%httpref);
                                     }
                                     $allscript .= "\n$links";
                                 }
                             }
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
   $r->print(&Apache::loncommon::start_page(undef,$allscript,    $r->print(&Apache::loncommon::start_page(undef,$allscript,
    {'force_register' => 1,     {'force_register' => 1,
Line 784  ENDEXT Line 886  ENDEXT
       }                     }             
       $r->print('>');        $r->print('>');
   }    }
                                   unless (($cellexternal{$rid}) &&                                     $r->print($ssibody{$rid});
                                           ($target eq 'tex') && ($target eq 'tex_answer')) {  
                                       $r->print($ssibody{$rid});  
                                   }  
   unless (($target eq 'tex') || ($target eq 'tex_answer')) {    unless (($target eq 'tex') || ($target eq 'tex_answer')) {
       $r->print('</font>');        $r->print('</font>');
                                   }                                    }
Line 890  ENDEXT Line 989  ENDEXT
 sub get_buttons {  sub get_buttons {
     my ($hash,$rid,$buttonshide,$hostname) = @_;      my ($hash,$rid,$buttonshide,$hostname) = @_;
   
     my $metainfo = '';  
     my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});  
     my ($mapid,$resid)=split(/\./,$rid);      my ($mapid,$resid)=split(/\./,$rid);
     my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid},      my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid},
   $resid,    $resid,
   $hash->{'src_'.$rid});    $hash->{'src_'.$rid});
       my $aname;
       if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) {
           $aname = 'LC_'.$rid;
       } else {
           my $shownsymb = $symb;
           if ($symb =~ /\#([^\#]+)$/) {
               my $escan = &escape('#');
               $shownsymb =~ s/#([^\#]+)$/$escan$1/;
           }
           $aname = &escape($shownsymb);
       }
       my $metainfo = '<a name="'.$aname.'"></a>';
     unless ($env{'request.role.adv'}) {      unless ($env{'request.role.adv'}) {
         if ($buttonshide->{$symb} eq 'yes') {          if ($buttonshide->{$symb} eq 'yes') {
             return;              return $metainfo;
         }          }
     }      }
       my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
                                                  ? "/$env{'request.course.sec'}"
                                                  : '');
       my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});
     if ($hash->{'encrypted_'.$rid}) {      if ($hash->{'encrypted_'.$rid}) {
  $symb=&Apache::lonenc::encrypted($symb);  
  $esrc=&Apache::lonenc::encrypted($esrc);   $esrc=&Apache::lonenc::encrypted($esrc);
     }      }
     if ($hash->{'src_'.$rid} !~ m-^/uploaded/-      if ($hash->{'src_'.$rid} !~ m-^/uploaded/-
         && $hash->{'src_'.$rid} !~ m{^https?://}          && $hash->{'src_'.$rid} !~ m{^/ext/}
  && !$env{'request.enc'}   && !$env{'request.enc'}
  && ($env{'request.role.adv'}   && ($env{'request.role.adv'}
     || !$hash->{'encrypted_'.$rid})) {       || !$hash->{'encrypted_'.$rid})) { 
  $metainfo .='<a name="'.&escape($symb).'" />'.   $metainfo .= '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" '.
     '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.      'target="LONcatInfo">'.
             '<img src="/res/adm/pages/catalog.png" class="LC_icon"'.              '<img src="/res/adm/pages/catalog.png" class="LC_icon"'.
             ' alt="'.&mt('Show Metadata').'"'.              ' alt="'.&mt('Show Metadata').'"'.
             ' title="'.&mt('Show Metadata').'" />'.              ' title="'.&mt('Show Metadata').'" />'.
     '</a>';      '</a>';
     }      }
     if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) &&      if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) &&
         ($hash->{'src_'.$rid} !~ m{^https?://})) {          ($hash->{'src_'.$rid} !~ m{^/ext/})) {
         $metainfo .= '<a href="/adm/evaluate?postdata='.          $metainfo .= '<a href="/adm/evaluate?postdata='.
     &escape($esrc).      &escape($esrc).
     '" target="LONcatInfo">'.      '" target="LONcatInfo">'.
Line 930  sub get_buttons { Line 1042  sub get_buttons {
     if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&      if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&
  ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {   ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {
   
  if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {   if ((&Apache::lonnet::allowed('mgr',$crs_sec)) ||
               (&Apache::lonnet::allowed('vgr',$crs_sec))) {
     $metainfo.=      $metainfo.=
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=submission" target="LONcatInfo">'.  #               '&command=submission" target="LONcatInfo">'.
Line 938  sub get_buttons { Line 1051  sub get_buttons {
                 '<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'.                  '<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'.
                 ' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'.                  ' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'.
                 ' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'.                  ' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'.
  '</a>'.   '</a>';
           }
           if (&Apache::lonnet::allowed('mgr',$crs_sec)) {
               $metainfo.=
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=gradingmenu" target="LONcatInfo">'.  #               '&command=gradingmenu" target="LONcatInfo">'.
  '&command=gradingmenu">'.   '&command=gradingmenu">'.
Line 947  sub get_buttons { Line 1063  sub get_buttons {
                 ' title="'.&mt('Content Grades').'" />'.                  ' title="'.&mt('Content Grades').'" />'.
  '</a>';   '</a>';
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {   if ((&Apache::lonnet::allowed('opa',$crs_sec)) ||
               (&Apache::lonnet::allowed('vpa',$crs_sec))) {
     $metainfo.=      $metainfo.=
  '<a href="/adm/parmset?symb='.&escape($symb).   '<a href="/adm/parmset?symb='.&escape($symb).
 #               '" target="LONcatInfo">'.  #               '" target="LONcatInfo">'.
Line 988  sub get_buttons { Line 1105  sub get_buttons {
             if ((&Apache::lonnet::allowed('cre','/')) &&              if ((&Apache::lonnet::allowed('cre','/')) &&
                 (&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) {                  (&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) {
                 $viewsrcbutton = 1;                  $viewsrcbutton = 1;
             } elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {              } elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
                 if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::match_username)/}) {                  if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::match_username)/}) {
                     my $auname = $1;                      my $auname = $1;
                     if (($env{'request.course.adhocsrcaccess'} ne '') &&                      if (($env{'request.course.adhocsrcaccess'} ne '') &&
                         (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {                          (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
                         $viewsrcbutton = 1;                          $viewsrcbutton = 1;
                       } elsif ((&Apache::lonnet::metadata($url,'sourceavail') eq 'open') &&
                                (&Apache::lonnet::allowed('bre',$crs_sec))) {
                           $viewsrcbutton = 1;
                     }                      }
                 }                  }
             }              }
Line 1037  sub add_countdown_timer { Line 1157  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') {
Line 1056  $collapse Line 1176  $collapse
 <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>  <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>
 <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>  <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>
 END  END
     &Apache::lonhtmlcommon::clear_breadcrumb_tools();  
     &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$output);      &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$output);
     return;      return;
 }  }
   
   sub create_extlink {
       my ($url,$anchor,$title,$linktext) = @_;
       my $shownlink;
       unless ($title eq '') {
           $shownlink = '<span style="font-weight:bold;">'.$title.'</span><br />';
       }
       my $dest = &HTML::Entities::encode($url.$anchor,'&<>"');
       $shownlink .= '<a href="'.$dest.'">'.$linktext.'</a>';
       return $shownlink;
   }
   
 1;  1;
 __END__  __END__

Removed from v.1.111.2.10.2.1  
changed lines
  Added in v.1.140


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.