version 1.2, 2005/03/10 03:50:49
|
version 1.3, 2005/04/07 06:56:27
|
Line 27
|
Line 27
|
|
|
package Apache::lonpubmenu; |
package Apache::lonpubmenu; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
|
|
sub handler { |
sub handler { |
Line 61 sub handler {
|
Line 62 sub handler {
|
prnt => 'Print' |
prnt => 'Print' |
); |
); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']); |
my $disp = $ENV{'form.disp'}; |
my $disp = $env{'form.disp'}; |
# set defaults for parent directory in case frameloc is unable to determine directory |
# set defaults for parent directory in case frameloc is unable to determine directory |
my $defaultdir = '/priv/'.$ENV{'user.name'}.'/'; |
my $defaultdir = '/priv/'.$env{'user.name'}.'/'; |
if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) { |
if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) { |
$defaultdir = '/priv/'.$1.'/'; |
$defaultdir = '/priv/'.$1.'/'; |
} |
} |
$r->print(<<"ENDONE"); |
$r->print(<<"ENDONE"); |