version 1.84, 2005/06/23 22:24:54
|
version 1.85, 2005/07/12 14:56:36
|
Line 111 sub handler {
|
Line 111 sub handler {
|
'<th bgcolor="#DDDDDD">'.&mt('Title').'</th>'. |
'<th bgcolor="#DDDDDD">'.&mt('Title').'</th>'. |
'<th bgcolor="#DDDDDD">'.&mt('Status').'</th>'. |
'<th bgcolor="#DDDDDD">'.&mt('Status').'</th>'. |
'<th bgcolor="#DDDDDD">'.&mt('Last Modified'). |
'<th bgcolor="#DDDDDD">'.&mt('Last Modified'). |
'</th></tr>'); |
'</th></tr>'."\n"); |
|
|
my $filename; |
my $filename; |
my $dirptr=16384; # Mask indicating a directory in stat.cmode. |
my $dirptr=16384; # Mask indicating a directory in stat.cmode. |
Line 354 sub dircontrols {
|
Line 354 sub dircontrols {
|
$r->print(<<END); |
$r->print(<<END); |
<table cellspacing="4" cellpadding="4" width="100%"> |
<table cellspacing="4" cellpadding="4" width="100%"> |
<tr> |
<tr> |
<td bgcolor="#DDDDDD" align="middle"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'acti'}</b></font></td> |
<td bgcolor="#DDDDDD" align="center"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'acti'}</b></font></td> |
<td bgcolor="#DDDDDD" align="middle"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'updc'}</b></font></td> |
<td bgcolor="#DDDDDD" align="center"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'updc'}</b></font></td> |
<td bgcolor="#DDDDDD" align="middle"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'crea'}</b></font></td> |
<td bgcolor="#DDDDDD" align="center"><font face="Arial, Helvetica, sans-serif" size="-1"><b>$lt{'crea'}</b></font></td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td bgcolor="#ccddaa" valign="top" align="center"> |
<td bgcolor="#ccddaa" valign="top" align="center"> |
<form name="curractions" method="post" action=""> |
<form name="curractions" method="post" action=""> |
<select name="dirtask" onChange="currdiract(this.form)"> |
<select name="dirtask" onchange="currdiract(this.form)"> |
<option>$lt{'sela'}</option> |
<option>$lt{'sela'}</option> |
<option value="publish">$lt{'pubd'}</option> |
<option value="publish">$lt{'pubd'}</option> |
<option value="editcat">$lt{'edit'}</option> |
<option value="editcat">$lt{'edit'}</option> |
Line 414 sub pubbuttons {
|
Line 414 sub pubbuttons {
|
'<table><tr><td><input type="hidden" name="filename" value="/~'. |
'<table><tr><td><input type="hidden" name="filename" value="/~'. |
$uname.$thisdisfn.'/" />'. |
$uname.$thisdisfn.'/" />'. |
'<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. |
'<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. |
'<input type="button" onClick="window.location='."'/~". |
'<input type="button" onclick="window.location='."'/~". |
$uname.$thisdisfn."/default.meta'".'" value="'. |
$uname.$thisdisfn."/default.meta'".'" value="'. |
&mt('Edit Directory Catalog Information').'" /></td></tr></table></form>'); |
&mt('Edit Directory Catalog Information').'" /></td></tr></table></form>'); |
} |
} |
Line 513 sub putdirectory {
|
Line 513 sub putdirectory {
|
$actionitem = |
$actionitem = |
'<form name="dirselect_'.$$numdir. |
'<form name="dirselect_'.$$numdir. |
'" action="/adm/publish" target="_parent">'. |
'" action="/adm/publish" target="_parent">'. |
'<select name="diraction" onChange="SetPubDir(this.form,document)">'. |
'<select name="diraction" onchange="SetPubDir(this.form,document)">'. |
'<option selected="selected">'.&mt('Select action').'</option>'. |
'<option selected="selected">'.&mt('Select action').'</option>'. |
'<option value="open">'.&mt('Open').'</option>'. |
'<option value="open">'.&mt('Open').'</option>'. |
'<option value="publish">'.&mt('Publish').'</option>'. |
'<option value="publish">'.&mt('Publish').'</option>'. |
Line 639 sub create_pubselect {
|
Line 639 sub create_pubselect {
|
my ($r,$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres) = @_; |
my ($r,$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres) = @_; |
$$pub_select = ' |
$$pub_select = ' |
<form name="resselect_'.$$numres.'" action=""> |
<form name="resselect_'.$$numres.'" action=""> |
<select name="reschoice" onChange="SetResChoice(this.form)"> |
<select name="reschoice" onchange="SetResChoice(this.form)"> |
<option>'.&mt('Select action').'</option>'. |
<option>'.&mt('Select action').'</option>'. |
'<option value="copy">'.&mt('Copy').'</option>'; |
'<option value="copy">'.&mt('Copy').'</option>'; |
if ($pubstatus eq 'obsolete' || $pubstatus eq 'unpublished') { |
if ($pubstatus eq 'obsolete' || $pubstatus eq 'unpublished') { |