Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.128 and 1.142

version 1.128, 2019/08/11 14:16:59	version 1.142, 2022/10/04 20:39:57
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 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
Line 360 ENDEXT	Line 418 ENDEXT
if ($env{'form.all_submit_pressed'}) {	if ($env{'form.all_submit_pressed'}) {
$posthash{'all_submit'}='yes';	$posthash{'all_submit'}='yes';
}	}
}	} elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
	$posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};
	}
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 382 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 424 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 586 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;
# ---------------------------------------------------------------- End SSI cell	# ---------------------------------------------------------------- End SSI cell
}	}
}	}
}	}
}	}
unless ($contents) {	unless ($contents) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 641 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 703 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 779 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 861 ENDEXT	Line 965 ENDEXT
}	}
# ------------------------------------------------------------- End render page	# ------------------------------------------------------------- End render page
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	if ($hash{'map_type_'.$hash{'map_pc_'.$requrl}} eq 'none') {
$r->send_http_header;	&Apache::loncommon::content_type($r,'text/html');
&Apache::lonsequence::viewmap($r,$requrl);	$r->send_http_header;
	$r->print(&Apache::loncommon::start_page(undef,undef,
	{'force_register' => 1,}));
	my $crstype = &Apache::loncommon::course_type();
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	$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."));
	} else {
	if ($crstype eq 'Placement') {
	$r->print('<span class="LC_warning">'.&mt('Missing page').'</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());
	} else {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
	&Apache::lonsequence::viewmap($r,$requrl);
	}
}	}
# ------------------------------------------------------------------ Untie hash	# ------------------------------------------------------------------ Untie hash
unless (untie(%hash)) {	unless (untie(%hash)) {
Line 885 ENDEXT	Line 1010 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,$shownsymb);
	if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) {
	$aname = 'LC_'.$rid;
	$shownsymb = &Apache::lonenc::encrypted($symb);
	} else {
	$shownsymb = $symb;
	my $dispsymb = $symb;
	if ($symb =~ /\#([^\#]+)$/) {
	my $escan = &escape('#');
	$dispsymb =~ s/#([^\#]+)$/$escan$1/;
	}
	$aname = &escape($dispsymb);
	}
	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 925 sub get_buttons {	Line 1065 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 933 sub get_buttons {	Line 1074 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 942 sub get_buttons {	Line 1086 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 963 sub get_buttons {	Line 1108 sub get_buttons {
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb);	&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb);
if ($cfile ne '') {	if ($cfile ne '') {
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,	my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
$forceedit,1,$symb,undef,	$forceedit,1,$symb,$shownsymb,
&escape($env{'form.title'}),	undef,&escape($env{'form.title'}),
$hostname);	$hostname);
if ($jscall) {	if ($jscall) {
$editbutton = 1;	$editbutton = 1;
Line 983 sub get_buttons {	Line 1128 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 1051 $collapse	Line 1199 $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__

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.

Removed from v.1.128
changed lines
	Added in v.1.142