version 1.157, 2014/06/23 17:02:49
|
version 1.158, 2014/06/29 03:33:23
|
Line 100 sub handler {
|
Line 100 sub handler {
|
} |
} |
my @files; |
my @files; |
if (opendir(DIR,$fn)) { |
if (opendir(DIR,$fn)) { |
@files = readdir(DIR); |
@files = grep(!/^\.+$/,readdir(DIR)); |
closedir(DIR); |
closedir(DIR); |
} else { |
} else { |
$r->print('<p class="LC_error">'.&mt('Could not open directory.').'</p>'); |
$r->print('<p class="LC_error">'.&mt('Could not open directory.').'</p>'); |
Line 126 sub handler {
|
Line 126 sub handler {
|
my $sortby = $env{'form.sortby'}; |
my $sortby = $env{'form.sortby'}; |
my $sortorder = $env{'form.sortorder'}; |
my $sortorder = $env{'form.sortorder'}; |
|
|
if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username/priv})) { |
if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) { |
if ($thisdisfn =~ m{^/$match_domain/$match_username/priv$}) { |
if ($thisdisfn =~ m{^/$match_domain/$match_username$}) { |
$r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>'); |
$r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>'); |
} else { |
} else { |
$r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>'); |
$r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>'); |