version 1.116, 2008/12/05 09:41:59
|
version 1.119, 2009/02/12 21:15:56
|
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> |
Line 456 sub pubbuttons {
|
Line 456 sub pubbuttons {
|
'<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. |
'<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. |
'<input type="button" onclick="window.location='."'/~". |
'<input type="button" onclick="window.location='."'/~". |
$uname.$thisdisfn."/default.meta'".'" value="'. |
$uname.$thisdisfn."/default.meta'".'" value="'. |
&mt('Edit Directory Catalog Information').'" /></td></tr></table></form>'); |
&mt('Edit Directory Metadata').'" /></td></tr></table></form>'); |
} |
} |
|
|
sub resourceactions { |
sub resourceactions { |