version 1.17, 2006/04/10 22:47:29
|
version 1.18, 2006/05/30 12:45:37
|
Line 34 use Apache::loncommon;
|
Line 34 use Apache::loncommon;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
my %qparms; |
my %qparms; |
my $prefix; |
my $prefix; |
Line 146 sub get_parent_uri {
|
Line 149 sub get_parent_uri {
|
} |
} |
my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); |
my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); |
if (defined($anchor)) { $anchor='#'.$anchor; } |
if (defined($anchor)) { $anchor='#'.$anchor; } |
return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor; |
return $src.'?symb='.&escape($symb).$anchor; |
} |
} |
|
|
sub handler { |
sub handler { |