version 1.158, 2007/03/08 01:58:45
|
version 1.160, 2007/06/26 23:06:17
|
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; |
|
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)) { |
|
//alert(document.forms[i].elements[j].value); |
|
} |
|
} |
|
} |
|
} |
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 812 sub display_line {
|
Line 826 sub display_line {
|
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1]; |
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1]; |
$updir=~s/\/+/\//g; |
$updir=~s/\/+/\//g; |
|
|
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td>\n"); |
$r->print("<td>\n"); |
$r->print ('<form method="post" name="dirpathUP" action="'.$updir. |
$r->print ('<form method="post" name="dirpathUP" action="'.$updir. |
'/" '. |
'/" '. |
Line 840 sub display_line {
|
Line 854 sub display_line {
|
if ($filecom[1] eq 'domain') { |
if ($filecom[1] eq 'domain') { |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n") |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n") |
if ($env{'form.dirPointer'} eq "on"); |
if ($env{'form.dirPointer'} eq "on"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td>"); |
$r->print("<td>"); |
&begin_form ($r,$filecom[0]); |
&begin_form ($r,$filecom[0]); |
my $anchor = $filecom[0]; |
my $anchor = $filecom[0]; |
Line 866 sub display_line {
|
Line 880 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=\"tester\" 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"); |
Line 907 sub display_line {
|
Line 924 sub display_line {
|
} |
} |
# Set the icon for the file |
# Set the icon for the file |
my $iconname = &Apache::loncommon::icon($listname); |
my $iconname = &Apache::loncommon::icon($listname); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='nowrap' valign='top'>"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\"><td nowrap='nowrap' valign='top'>"); |
|
|
if ($env{'form.catalogmode'} eq 'interactive') { |
if ($env{'form.catalogmode'} eq 'interactive') { |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
Line 1072 sub display_line {
|
Line 1089 sub display_line {
|
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 bgcolor=$fileclr>$extrafield<td valign=$valign>"); |
$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>"); |
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
my $indentm1 = $indent-1; |
my $indentm1 = $indent-1; |
if ($indentm1 < 11 and $indentm1 > 0) { |
if ($indentm1 < 11 and $indentm1 > 0) { |