loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.127, 2011/10/21 17:51:23	version 1.128, 2011/10/21 18:04:51
Line 60 sub handler {	Line 60 sub handler {
# ----------------------------------------------------------- Start page output	# ----------------------------------------------------------- Start page output

my $fn=$r->filename;	my $fn=$r->filename;
	$fn=~s/\/$//;

my $thisdisfn=$fn;	my $thisdisfn=$fn;
my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root.	my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root.
$thisdisfn=~s/^\Q$docroot\E\/priv//;	$thisdisfn=~s/^\Q$docroot\E\/priv//;

&Apache::lonnet::logthis("Thisdisfn: $thisdisfn");

my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory	my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory
my $targetdir='/res'.$thisdisfn; # Publication target directory.	my $targetdir='/res'.$thisdisfn; # Publication target directory.
my $linkdir='/priv'.$thisdisfn; # Full URL name of constr space.	my $linkdir='/priv'.$thisdisfn; # Full URL name of constr space.

&Apache::lonnet::logthis("Values: $resdir $targetdir $linkdir");

my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);	my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);

&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.	&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.