version 1.43, 2012/11/29 20:13:49
|
version 1.44, 2013/09/07 19:58:08
|
Line 40 use Apache::lonextresedit();
|
Line 40 use Apache::lonextresedit();
|
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
sub wrapper { |
sub wrapper { |
my ($url,$brcrum) = @_; |
my ($url,$brcrum,$absolute) = @_; |
|
|
my $forcereg; |
my $forcereg; |
unless ($env{'form.folderpath'}) { |
unless ($env{'form.folderpath'}) { |
Line 54 sub wrapper {
|
Line 54 sub wrapper {
|
if (ref($brcrum) eq 'ARRAY') { |
if (ref($brcrum) eq 'ARRAY') { |
$args->{'bread_crumbs'} = $brcrum; |
$args->{'bread_crumbs'} = $brcrum; |
} |
} |
|
if ($absolute) { |
|
$args->{'use_absolute'} = $absolute; |
|
} |
|
|
my $startpage = Apache::loncommon::start_page('Menu',undef,$args); |
my $startpage = Apache::loncommon::start_page('Menu',undef,$args); |
my $endpage = Apache::loncommon::end_page(); |
my $endpage = Apache::loncommon::end_page(); |
Line 103 sub handler {
|
Line 106 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $url = $r->uri; |
my $url = $r->uri; |
my ($is_ext,$brcrum); |
my ($is_ext,$brcrum,$absolute); |
|
|
for ($url){ |
for ($url){ |
s|^/adm/wrapper||; |
s|^/adm/wrapper||; |
Line 113 sub handler {
|
Line 116 sub handler {
|
} |
} |
|
|
if ($is_ext) { |
if ($is_ext) { |
|
my $hostname = $r->hostname(); |
|
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
|
if ($lonhost) { |
|
my $actual = &Apache::lonnet::absolute_url($hostname); |
|
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
|
unless ($actual eq $expected) { |
|
$absolute = $expected; |
|
} |
|
} |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['forceedit','register','folderpath','symb','idx','title']); |
['forceedit','register','folderpath','symb','idx','title']); |
if (($env{'form.forceedit'}) && |
if (($env{'form.forceedit'}) && |
Line 160 sub handler {
|
Line 172 sub handler {
|
# encrypt url if not external |
# encrypt url if not external |
&Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ; |
&Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ; |
|
|
$r->print( wrapper($url,$brcrum) ); |
$r->print( wrapper($url,$brcrum,$absolute) ); |
|
|
} # not just the menu |
} # not just the menu |
|
|