version 1.160.2.5.2.2, 2023/12/29 21:36:23
|
version 1.160.2.5.2.3, 2024/02/28 04:58:02
|
Line 290 sub handler {
|
Line 290 sub handler {
|
} |
} |
|
|
# Print the sorted resources |
# Print the sorted resources |
|
my %editors = &Apache::loncommon::permitted_editors(); |
foreach my $filename (@sorted_files) { |
foreach my $filename (@sorted_files) { |
if ($filehash->{$filename}->{"cmode"}&$dirptr) { # Directories |
if ($filehash->{$filename}->{"cmode"}&$dirptr) { # Directories |
&putdirectory($r, $thisdisfn, $linkdir, $filename, |
&putdirectory($r, $thisdisfn, $linkdir, $filename, |
Line 302 sub handler {
|
Line 303 sub handler {
|
$filehash->{$filename}->{"linkfilename"}, |
$filehash->{$filename}->{"linkfilename"}, |
$filehash->{$filename}->{"fulltitle"}, |
$filehash->{$filename}->{"fulltitle"}, |
$filehash->{$filename}->{"status"}, |
$filehash->{$filename}->{"status"}, |
$filehash->{$filename}->{"pubstatus"}); |
$filehash->{$filename}->{"pubstatus"}, |
|
\%editors); |
} |
} |
} |
} |
|
|
Line 868 sub getStatus {
|
Line 870 sub getStatus {
|
sub putresource { |
sub putresource { |
my ($r, $udom, $uname, $filename, $thisdisfn, $resdir, $targetdir, |
my ($r, $udom, $uname, $filename, $thisdisfn, $resdir, $targetdir, |
$linkdir, $cmtime, $size, $numres, $linkfilename, $title, |
$linkdir, $cmtime, $size, $numres, $linkfilename, $title, |
$status, $pubstatus) = @_; |
$status, $pubstatus, $editors) = @_; |
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename); |
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename); |
|
|
my $editlink=''; |
my $editlink=''; |
Line 877 sub putresource {
|
Line 879 sub putresource {
|
$editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=edit">'.&mt('Edit').'</a>)'; |
$editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=edit">'.&mt('Edit').'</a>)'; |
} |
} |
if ($filename=~/$LONCAPA::assess_re/) { |
if ($filename=~/$LONCAPA::assess_re/) { |
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=editxml">'.&mt('EditXML').'</a>)'; |
if ($editors->{'xml'}) { |
$editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=edit">'.&mt('Edit').'</a>)'; |
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=editxml">'.&mt('EditXML').'</a>)'; |
|
} |
|
if ($editors->{'edit'}) { |
|
$editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&problemmode=edit">'.&mt('Edit').'</a>)'; |
|
} |
|
} |
|
if ($filename=~/\.(xml|html|htm|xhtml|xhtm)$/ || $filename=~/$LONCAPA::assess_re/) { |
|
if (($editors->{'daxe'}) && |
|
($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9)) { |
|
my $daxeurl = '/daxepage'.$linkdir.'/'.$filename; |
|
$editlink .= ' (<a href="'.$daxeurl.'">Daxe</a>)'; |
|
} |
} |
} |
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) { |
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) { |
$editlink.=' (<a href="/adm/cleanup?filename='.$linkfilename.'">'.&mt('Clean Up').')</a>'; |
$editlink.=' (<a href="/adm/cleanup?filename='.$linkfilename.'">'.&mt('Clean Up').')</a>'; |