version 1.302, 2023/07/14 20:16:04
|
version 1.303, 2023/07/14 22:19:22
|
Line 2288 sub batchpublish {
|
Line 2288 sub batchpublish {
|
######################################### |
######################################### |
|
|
sub publishdirectory { |
sub publishdirectory { |
my ($r,$fn,$thisdisfn,$nokeyref)=@_; |
my ($r,$fn,$thisdisfn,$nokeyref,$crsauthor)=@_; |
$fn=~s/\/+/\//g; |
$fn=~s/\/+/\//g; |
$thisdisfn=~s/\/+/\//g; |
$thisdisfn=~s/\/+/\//g; |
my $thisdisresdir=$thisdisfn; |
my $thisdisresdir=$thisdisfn; |
Line 2329 sub publishdirectory {
|
Line 2329 sub publishdirectory {
|
&checkbox('excludemodmeta','exclude files with modified metadata'). |
&checkbox('excludemodmeta','exclude files with modified metadata'). |
'</fieldset>'. |
'</fieldset>'. |
'<fieldset><legend>'.&mt('Actions').'</legend>'. |
'<fieldset><legend>'.&mt('Actions').'</legend>'. |
&checkbox('obsolete','make file(s) obsolete').'<br />'. |
&checkbox('obsolete','make file(s) obsolete').'<br />'); |
&common_access('dist',&mt('apply common copyright/distribution'), |
unless ($crsauthor) { |
['default','domain','public','custom']).'<br />'. |
$r->print(&common_access('dist',&mt('apply common copyright/distribution'), |
&common_access('source',&mt('apply common source availability'), |
['default','domain','public','custom']).'<br />'); |
|
} |
|
$r->print(&common_access('source',&mt('apply common source availability'), |
['closed','open']). |
['closed','open']). |
'</fieldset>' |
'</fieldset>' |
); |
); |
Line 2361 sub publishdirectory {
|
Line 2363 sub publishdirectory {
|
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
if ($cmode&$dirptr) { |
if ($cmode&$dirptr) { |
if (($filename!~/^\./) && ($env{'form.pubrec'})) { |
if (($filename!~/^\./) && ($env{'form.pubrec'})) { |
&publishdirectory($r,$fn.'/'.$filename,$thisdisfn.'/'.$filename,$nokeyref); |
&publishdirectory($r,$fn.'/'.$filename,$thisdisfn.'/'.$filename,$nokeyref,$crsauthor); |
} |
} |
} elsif ((&Apache::loncommon::fileembstyle($extension) ne 'hdn') && |
} elsif ((&Apache::loncommon::fileembstyle($extension) ne 'hdn') && |
($filename!~/^[\#\.]/) && ($filename!~/\~$/)) { |
($filename!~/^[\#\.]/) && ($filename!~/\~$/)) { |
Line 2609 sub handler {
|
Line 2611 sub handler {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
my $crumbtext = 'Authoring Space'; |
my $crumbtext = 'Authoring Space'; |
my $crumbhref = &Apache::loncommon::authorspace($fn); |
my $crumbhref = &Apache::loncommon::authorspace($fn); |
|
my $crsauthor; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
if ($crumbhref eq "/priv/$cdom/$cnum/") { |
if ($crumbhref eq "/priv/$cdom/$cnum/") { |
$crumbtext = 'Course Authoring Space'; |
$crumbtext = 'Course Authoring Space'; |
|
$crsauthor = 1; |
} |
} |
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
Line 2688 END
|
Line 2692 END
|
|
|
if ($fn=~/\/$/) { |
if ($fn=~/\/$/) { |
# -------------------------------------------------------- This is a directory |
# -------------------------------------------------------- This is a directory |
&publishdirectory($r,$docroot.$fn,$thisdisfn,$nokeyref); |
&publishdirectory($r,$docroot.$fn,$thisdisfn,$nokeyref,$crsauthor); |
$r->print( |
$r->print( |
'<br /><br />'. |
'<br /><br />'. |
&Apache::lonhtmlcommon::actionbox([ |
&Apache::lonhtmlcommon::actionbox([ |