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; |