rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.86, 2007/09/26 00:32:55	version 1.90, 2008/12/19 03:50:48
Line 27	Line 27
#	#
###	###




package Apache::lonpage;	package Apache::lonpage;

use strict;	use strict;
Line 78 sub tracetable {	Line 81 sub tracetable {
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};	my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
$sofar=	$sofar=
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},	&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
'&'.$frid.'&');	'&'.$frid.$beenhere);
$sofar++;	$sofar++;
if ($hash{'src_'.$frid}) {	if ($hash{'src_'.$frid}) {
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});	my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
Line 339 sub handler {	Line 342 sub handler {
}	}
$thisdir=~s/\/[^\/]*$//;	$thisdir=~s/\/[^\/]*$//;
foreach (@rlinks) {	foreach (@rlinks) {
unless (($_=~/^http:\/\//i) \|\|	unless (($_=~/^https?:\/\//i) \|\|
($_=~/^\//) \|\|	($_=~/^\//) \|\|
($_=~/^javascript:/i) \|\|	($_=~/^javascript:/i) \|\|
($_=~/^mailto:/i) \|\|	($_=~/^mailto:/i) \|\|
Line 590 sub get_buttons {	Line 593 sub get_buttons {
1;	1;
__END__	__END__


=head1 NAME	=head1 NAME

Apache::lonpage - Page Handler	Apache::lonpage - Page Handler
Line 691 tracetable() : Build page table.	Line 695 tracetable() : Build page table.
=cut	=cut