version 1.213.4.8, 2015/01/23 22:59:28
|
version 1.225, 2016/06/19 04:27:50
|
Line 709 sub scanDir {
|
Line 709 sub scanDir {
|
return if ($c->aborted()); |
return if ($c->aborted()); |
#This is a kludge, sorry aboot this |
#This is a kludge, sorry aboot this |
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
next if($strip =~ /.*\.meta$/ | $obs eq '1'); |
next if (($strip =~ /\.meta$/) || ($obs)); |
|
if ($dom ne 'domain') { |
|
my ($udom,$uname); |
|
if ($dom eq 'user') { |
|
($udom) = ($startdir =~ m{^/res/($match_domain)}); |
|
$uname = $strip; |
|
} else { |
|
($udom,$uname) = ($startdir =~ m{^/res/($match_domain)/($match_courseid)}); |
|
} |
|
if ($udom ne '' && $uname ne '') { |
|
# Don't display "course author" directory. |
|
next if (&Apache::lonnet::is_course($udom,$uname)); |
|
} |
|
} |
my (@fileparts) = split(/\./,$strip); |
my (@fileparts) = split(/\./,$strip); |
if ($hash{'display_attrs_9'} != 1) { |
if ($hash{'display_attrs_9'} != 1) { |
# if not all versions to be shown |
# if not all versions to be shown |
Line 1351 sub coursecontext {
|
Line 1364 sub coursecontext {
|
$r->print( |
$r->print( |
&mt('Already in this course:').'<br />' |
&mt('Already in this course:').'<br />' |
.&mt('[_1] in folder/map [_2]', |
.&mt('[_1] in folder/map [_2]', |
&Apache::lonnet::gettitle($resource), |
&Apache::lonnet::gettitle($resource), |
&Apache::lonnet::gettitle($map)) |
&Apache::lonnet::gettitle($map)) |
.'<br />'); |
.'<br />'); |
} |
} |
} |
} |