loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.156 and 1.160

version 1.156, 2007/01/16 21:20:57	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 856 sub display_line {	Line 870 sub display_line {
'\')"><img alt="" src="'.$iconpath.'server.gif"');	'\')"><img alt="" src="'.$iconpath.'server.gif"');
$r->print (' border="0" /></a>'."\n");	$r->print (' border="0" /></a>'."\n");
$r->print (&mt("Domain")." - $listname ");	$r->print (&mt("Domain")." - $listname ");
if ($Apache::lonnet::domaindescription{$listname}) {	if (&Apache::lonnet::domain($listname,'description')) {
$r->print("(".$Apache::lonnet::domaindescription{$listname}.	$r->print("(".&Apache::lonnet::domain($listname,'description').
")");	")");
}	}
$r->print ("</form>$tabtag</tr>\n");	$r->print ("</form>$tabtag</tr>\n");
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) {
Line 1203 sub showpreview {	Line 1220 sub showpreview {
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />';	$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />';
} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {	} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {
$output='<img alt="'.&mt('Preview').'" src="http://'.	$output='<img alt="'.&mt('Preview').'" src="http://'.
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}.	&Apache::lonnet::hostname(&Apache::lonnet::homeserver($2,$1)).
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';	'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
}	}
return $output;	return $output;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.156
changed lines
	Added in v.1.160