|
version 1.25, 2006/11/30 23:35:38
|
version 1.28, 2008/03/03 19:57:28
|
|
Line 68 sub wrapper {
|
Line 68 sub wrapper {
|
| |
|
| my %layout = ('border' => 0); |
my %layout = ('border' => 0); |
| if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} eq 'off') { |
| $layout{'rows'} = "180,*"; |
if ($env{'environment.icons'} eq 'iconsonly') { |
| |
$layout{'rows'} = "100,*"; |
| |
} else { |
| |
$layout{'rows'} = "200,*"; |
| |
} |
| } else { |
} else { |
| $layout{'rows'} = "1,*"; |
$layout{'rows'} = "1,*"; |
| $topurl = "/adm/rat/empty.html"; |
$topurl = "/adm/rat/empty.html"; |
|
Line 122 sub handler {
|
Line 126 sub handler {
|
| $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu'; |
$orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu'; |
| $url=~s/^\/adm\/wrapper//; |
$url=~s/^\/adm\/wrapper//; |
| my $is_ext = $url =~ m|^/ext/|; |
my $is_ext = $url =~ m|^/ext/|; |
| $url=~s/^\/ext\//http\:\/\//; |
$url=~s{^/ext/}{http://}; |
| $url=~s|http://https://|https://|; |
$url=~s|http://https://|https://|; |
| $url=~s|:|:|g; |
$url=~s|:|:|g; |
| # |
# |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonwrapper.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat