version 1.159, 2007/06/20 18:38:44
|
version 1.161, 2007/06/27 16:35:55
|
Line 350 END
|
Line 350 END
|
my $js = <<"ENDHEADER"; |
my $js = <<"ENDHEADER"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
$catalogmodefunctions |
$catalogmodefunctions |
|
function checkAll(dir) { |
|
var numForms = document.forms.length; |
|
var dirLength = dir.length; |
|
var dirCheckbox = document.getElementById(dir); |
|
for (i=0;i<numForms;i++) { |
|
var numElements = document.forms[i].elements.length; |
|
for (j=0;j<numElements;j++){ |
|
var fieldVal = document.forms[i].elements[j].value; |
|
var comp = fieldVal.substr(0,dirLength); |
|
if ((comp == dir) && (dirLength < fieldVal.length)) { |
|
if (dirCheckbox.checked == true) { |
|
document.forms[i].elements[j].checked = true; |
|
} else { |
|
document.forms[i].elements[j].checked = false; |
|
} |
|
} |
|
} |
|
} |
|
} |
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
var xpos = (screen.width-w)/2; |
var xpos = (screen.width-w)/2; |
xpos = (xpos < 0) ? '0' : xpos; |
xpos = (xpos < 0) ? '0' : xpos; |
Line 866 sub display_line {
|
Line 885 sub display_line {
|
# display user directory |
# display user directory |
} |
} |
if ($filecom[1] eq 'user') { |
if ($filecom[1] eq 'user') { |
$r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield"); |
# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td nowrap>\n"); |
|
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
|
$r->print("<tr valign=$valign bgcolor=\"$fileclr\">"); |
|
$r->print("<td>\n"); |
|
$r->print("<input type=\"checkbox\" name=\"$curdir\" id=\"$curdir\" value=\"$curdir\" onClick=\"javascript:checkAll('$curdir')\" /></td>\n"); |
|
$r->print("<td nowrap>\n"); |
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath. |
$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath. |
'whitespace1.gif" border="0" />'."\n"); |
'whitespace1.gif" border="0" />'."\n"); |