rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.77, 2008/11/20 15:19:05	version 1.79, 2009/04/23 17:31:25
Line 337 sub handler {	Line 337 sub handler {
return REDIRECT;	return REDIRECT;
}	}
}	}
$currenturl=~s/^http\:\/\///;	$currenturl=~s/^https?\:\/\///;
$currenturl=~s/^[^\/]+//;	$currenturl=~s/^[^\/]+//;
#	#
# Is the current URL on the map? If not, start with last known URL	# Is the current URL on the map? If not, start with last known URL
Line 478 $start_page	Line 478 $start_page
<p>	<p>
$lt{'pick'}:	$lt{'pick'}:
<p>	<p>
<table border=2>	<table border="2">
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>	<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
ENDSTART	ENDSTART
foreach my $id (@possibilities) {	foreach my $id (@possibilities) {