loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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>');