'
@@ -160,7 +159,7 @@ sub getEffectiveUrl {
# Replace the ~username of the URL with /home/username/public_html
# so that we don't have to worry about ~ expansion internally.
#
- $fn=~s/^http\:\/\/[^\/]+\///;
+ $fn=~s/^https?\:\/\/[^\/]+\///;
$fn=~s/^\///;
$fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html};
@@ -377,42 +376,46 @@ sub dircontrols {
);
my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript
$r->print(<
-