version 1.213.4.9, 2020/09/03 15:49:27
|
version 1.225, 2016/06/19 04:27:50
|
Line 565 END
|
Line 565 END
|
} else { |
} else { |
$r->print($reshome); |
$r->print($reshome); |
} |
} |
$r->print("'>".&mt('Home directory').'</a></span>'); |
$r->print("'>".&mt('Home').'</a></span>'); |
} |
} |
$r->print('</form>'); |
$r->print('</form>'); |
# ------------------------------------------------------ Remember where we were |
# ------------------------------------------------------ Remember where we were |
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 1088 $r->print ('<input type="hidden" name="a
|
Line 1101 $r->print ('<input type="hidden" name="a
|
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_startdir = Apache::loncommon::escape_single($startdir); |
my $quotable_startdir = Apache::loncommon::escape_single($startdir); |
my $quotable_listname = &Apache::loncommon::escape_single($listname); |
my $quotable_listname = &Apache::loncommon::escape_single($listname); |
my $curfext = lc((split(/\./,$listname))[-1]); |
|
my $modalstyle; |
|
if ($curfext =~ /^js|css|txt|tab$/) { |
|
$modalstyle = ",'','background-color:#ffffff'"; |
|
} |
|
|
|
$r->print (" <a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes'".$modalstyle.");\">$listname</a> "); |
$r->print (" <a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">$listname</a> "); |
$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta'); |
$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta'); |
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
$r->print (" (<a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">".&mt('metadata')."</a>) "); |
$r->print (" (<a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">".&mt('metadata')."</a>) "); |
Line 1356 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 />'); |
} |
} |
} |
} |