version 1.287, 2013/12/01 21:29:15
|
version 1.289, 2014/01/15 18:49:56
|
Line 1529 Returns:
|
Line 1529 Returns:
|
0: fail |
0: fail |
1: success |
1: success |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
#'stupid emacs |
#'stupid emacs |
Line 1926 sub publishdirectory {
|
Line 1928 sub publishdirectory {
|
my $thisdisresdir=$thisdisfn; |
my $thisdisresdir=$thisdisfn; |
$thisdisresdir=~s/^\/priv\//\/res\//; |
$thisdisresdir=~s/^\/priv\//\/res\//; |
my $resdir = $r->dir_config('lonDocRoot').$thisdisresdir; |
my $resdir = $r->dir_config('lonDocRoot').$thisdisresdir; |
$r->print(&Apache::lonhtmlcommon::start_pick_box() |
$r->print('<form name="pubdirpref" method="post" action="">' |
|
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::row_title(&mt('Directory')) |
.&Apache::lonhtmlcommon::row_title(&mt('Directory')) |
.'<span class="LC_filename">'.$thisdisfn.'</span>' |
.'<span class="LC_filename">'.$thisdisfn.'</span>' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
Line 1940 sub publishdirectory {
|
Line 1943 sub publishdirectory {
|
$r->print(&Apache::lonhtmlcommon::row_closure() |
$r->print(&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title(&mt('Options')) |
.&Apache::lonhtmlcommon::row_title(&mt('Options')) |
); |
); |
$r->print('<form name="pubdirpref" method="post" action="">'. |
$r->print(&hiddenfield('phase','two'). |
&hiddenfield('phase','two'). |
|
&hiddenfield('filename',$env{'form.filename'}). |
&hiddenfield('filename',$env{'form.filename'}). |
&checkbox('pubrec','include subdirectories'). |
&checkbox('pubrec','include subdirectories'). |
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('forceoverride','force directory level metadata over existing'). |
&checkbox('forceoverride','force directory level metadata over existing') |
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>'); |
); |
$r->print(&Apache::lonhtmlcommon::row_closure(1) |
$r->print(&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
|
.'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>' |
); |
); |
$lock=0; |
$lock=0; |
} else { |
} else { |
Line 2213 sub handler {
|
Line 2216 sub handler {
|
if ($fn=~/\/$/) { |
if ($fn=~/\/$/) { |
# -------------------------------------------------------- This is a directory |
# -------------------------------------------------------- This is a directory |
&publishdirectory($r,$docroot.$fn,$thisdisfn); |
&publishdirectory($r,$docroot.$fn,$thisdisfn); |
$r->print('<hr /><a href="'.$thisdisfn.'">'.&mt('Return to Directory').'</a>'); |
$r->print( |
|
'<br /><br />'. |
|
&Apache::lonhtmlcommon::actionbox([ |
|
'<a href="'.$thisdisfn.'">'.&mt('Return to Directory').'</a>'])); |
} else { |
} else { |
# ---------------------- Evaluate individual file, and then output information. |
# ---------------------- Evaluate individual file, and then output information. |
$fn=~/\.(\w+)$/; |
$fn=~/\.(\w+)$/; |
Line 2305 __END__
|
Line 2311 __END__
|
|
|
=back |
=back |
|
|
=back |
|
|
|
=cut |
=cut |
|
|