loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.116, 2008/12/05 09:41:59	version 1.118, 2008/12/19 03:54:19
Line 159 sub getEffectiveUrl {	Line 159 sub getEffectiveUrl {
# Replace the ~username of the URL with /home/username/public_html	# Replace the ~username of the URL with /home/username/public_html
# so that we don't have to worry about ~ expansion internally.	# so that we don't have to worry about ~ expansion internally.
#	#
$fn=~s/^http\:\/\/[^\/]+\///;	$fn=~s/^https?\:\/\/[^\/]+\///;
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html};	$fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html};

Line 376 sub dircontrols {	Line 376 sub dircontrols {
);	);
my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript	my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript
$r->print(<<END);	$r->print(<<END);
<div class="columnSection">	<div class="LC_columnSection">
<div>	<div>
<form name="curractions" method="post" action="">	<form name="curractions" method="post" action="">
<fieldset>	<fieldset>