loncom/publisher/lonpubmenu.pm - diff

Return to lonpubmenu.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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