version 1.180, 2023/07/14 18:01:23
|
version 1.181, 2023/11/17 17:02:22
|
Line 315 my $result = "<script type=\"text/javasc
|
Line 315 my $result = "<script type=\"text/javasc
|
} |
} |
|
|
# 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 328 my $result = "<script type=\"text/javasc
|
Line 329 my $result = "<script type=\"text/javasc
|
$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 923 sub getStatus {
|
Line 925 sub getStatus {
|
sub putresource { |
sub putresource { |
my ($r, $udom, $uname, $filename, $thisdisfn, $resdir, |
my ($r, $udom, $uname, $filename, $thisdisfn, $resdir, |
$targetdir, $linkdir, $crsauthor, $cmtime, $size, |
$targetdir, $linkdir, $crsauthor, $cmtime, $size, |
$numres, $linkfilename, $title, $status, $pubstatus) = @_; |
$numres, $linkfilename, $title, $status, $pubstatus, |
|
$editors) = @_; |
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename); |
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename); |
|
|
my $editlink=''; |
my $editlink=''; |
Line 932 sub putresource {
|
Line 935 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 ($filename=~/\.(xml|html|htm|xhtml|xhtm)$/ || $filename=~/$LONCAPA::assess_re/) { |
if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) { |
if (($editors->{'daxe'}) && |
|
($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9)) { |
my $daxeurl = '/daxepage'.$linkdir.'/'.$filename; |
my $daxeurl = '/daxepage'.$linkdir.'/'.$filename; |
$editlink .= ' (<a href="'.$daxeurl.'" target="_blank">Daxe</a>)'; |
$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)$/) { |