version 1.68, 2004/12/02 19:45:39
|
version 1.76, 2005/01/24 21:55:20
|
Line 94 sub handler {
|
Line 94 sub handler {
|
if ($ENV{'environment.remote'} eq 'off') { |
if ($ENV{'environment.remote'} eq 'off') { |
&dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, |
&dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, |
# browse/upload + new file page. |
# browse/upload + new file page. |
|
} else { |
|
&pubbuttons($r,$uname,$thisdisfn); |
} |
} |
&resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. |
&resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. |
|
|
Line 212 sub startpage {
|
Line 214 sub startpage {
|
} |
} |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
<script> |
<script> |
|
top.document.title = '$thisdisfn/ - LON-CAPA Construction Space'; |
// Store directory location for menu bar to find |
// Store directory location for menu bar to find |
|
|
parent.lastknownpriv='/~$uname$thisdisfn/'; |
parent.lastknownpriv='/~$uname$thisdisfn/'; |
Line 251 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 254 parent.lastknownpriv='/~$uname$thisdisfn
|
} |
} |
|
|
function forcepub(theform) { |
function forcepub(theform) { |
if (confirm('Force publication of unmodified files? - OK=yes; Cancel=No.')) { |
if (confirm('Force publication of unmodified files? - Cancel=No; OK=yes.')) { |
theform.forcerepub.value="ON"; |
theform.forcerepub.value="ON"; |
} |
} |
} |
} |
Line 266 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 269 parent.lastknownpriv='/~$uname$thisdisfn
|
|
|
function SetPubDir(theform,printForm) { |
function SetPubDir(theform,printForm) { |
if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") { |
if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") { |
top.location = theform.filename.value |
top.location = theform.openname.value |
return |
return |
} |
} |
if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") { |
if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") { |
Line 298 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 301 parent.lastknownpriv='/~$uname$thisdisfn
|
if (activity == 'delete') { |
if (activity == 'delete') { |
var delform = document.delresource |
var delform = document.delresource |
delform.filename.value = theform.filename.value |
delform.filename.value = theform.filename.value |
if (confirm("Are you sure you want to delete "+theform.filename.value+"?")) { |
delform.submit() |
delform.submit() |
|
} |
|
} |
} |
if (activity == 'obsolete') { |
if (activity == 'obsolete') { |
var pubform = document.pubresource |
var pubform = document.pubresource |
Line 332 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 333 parent.lastknownpriv='/~$uname$thisdisfn
|
ENDPUBDIRSCRIPT |
ENDPUBDIRSCRIPT |
$r->print($pubdirscript); |
$r->print($pubdirscript); |
|
|
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) { |
if ((($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) && |
|
$ENV{'environment.remote'} ne 'off') { |
$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom. |
$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom. |
'</h3>'); |
'</h3>'); |
} |
} |
Line 380 sub dircontrols {
|
Line 382 sub dircontrols {
|
<nobr> |
<nobr> |
<input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> |
<input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> |
<select name="action"> |
<select name="action"> |
<option>Select action</option> |
<option>Select Action</option> |
<option value="newfile">New file:</option> |
<option value="newfile">New file:</option> |
<option value="newhtmlfile">New HTML file:</option> |
<option value="newhtmlfile">New HTML file:</option> |
<option value="newproblemfile">New problem:</option> |
<option value="newproblemfile">New problem:</option> |
Line 398 sub dircontrols {
|
Line 400 sub dircontrols {
|
END |
END |
} |
} |
|
|
|
sub pubbuttons { |
|
my ($r,$uname,$thisdisfn) = @_; |
|
$r->print('<form method="post" action="/adm/publish" target="_parent">'. |
|
'<table><tr><td><input type="hidden" name="filename" value="/~'. |
|
$uname.$thisdisfn.'/" />'. |
|
'<input type="button" onClick="pubdir(this.form);" value="'. |
|
&mt('Publish Directory').'" />'. |
|
'<input type="hidden" name="pubrec" value="" />'. |
|
'<input type="hidden" name="forcerepub" value="NO" />'. |
|
'<input type="button" onClick="pubrecdir(this.form);" value="'. |
|
&mt('Publish Directory and Sub Directories').'" /></td><td>'. |
|
'<input type="button" onClick="window.location='."'/~". |
|
$uname.$thisdisfn."/default.meta'".'" value="'. |
|
&mt('Edit Directory Catalog Information').'" /></td></tr></table></form>'); |
|
} |
|
|
sub resourceactions { |
sub resourceactions { |
my ($r,$uname,$udom,$thisdisfn) = @_; |
my ($r,$uname,$udom,$thisdisfn) = @_; |
$r->print(<<END); |
$r->print(<<END); |
Line 499 sub putdirectory {
|
Line 517 sub putdirectory {
|
'<option value="printdir">'.&mt('Print directory'). |
'<option value="printdir">'.&mt('Print directory'). |
'</select>'. |
'</select>'. |
'<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'. |
'<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'. |
|
'<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'. |
'<input type="hidden" name="pubrec" value="" />'. |
'<input type="hidden" name="pubrec" value="" />'. |
'<input type="hidden" name="forcerepub" value="" />'. |
'<input type="hidden" name="forcerepub" value="" />'. |
'<input type="hidden" name="postdata" value="" />'. |
'<input type="hidden" name="postdata" value="" />'. |