loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.74, 2002/10/11 21:29:18	version 1.75, 2002/10/11 21:34:42
Line 917 sub new_handle {	Line 917 sub new_handle {
my $currenturl = $ENV{'form.postdata'};	my $currenturl = $ENV{'form.postdata'};
$currenturl=~s/^http\:\/\///;	$currenturl=~s/^http\:\/\///;
$currenturl=~s/^[^\/]+//;	$currenturl=~s/^[^\/]+//;
my $queryAdd = "postdata=" . &Apache::lonnet::escape($currenturl);	# alreadyHere allows us to only open the maps necessary to view
	# the current location once, while at the same time remembering
	# the current location. Without that check, the user would never
	# be able to close those maps; the user would close it, and the
	# currenturl scan would re-open it.
	my $queryAdd = "postdata=" . &Apache::lonnet::escape($currenturl) .
	"&alreadyHere=1";

$r->print('<a href="navmaps?condition=1&filter=">Show All Resources</a><br /><br />');	$r->print('<a href="navmaps?condition=1&filter=">Show All Resources</a><br /><br />');

Line 935 sub new_handle {	Line 941 sub new_handle {
# loop should be obvious.	# loop should be obvious.
# Here's a simple example of the iterator.	# Here's a simple example of the iterator.
# If there is a current resource	# If there is a current resource
if ($currenturl) {	if ($currenturl && !$ENV{'form.alreadyHere'}) {
# Give me every resource...	# Give me every resource...
my $mapIterator = $navmap->getIterator(undef, undef, {}, 1);	my $mapIterator = $navmap->getIterator(undef, undef, {}, 1);
my $found != 0;	my $found != 0;