loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelper.pm between versions 1.19 and 1.21

version 1.19, 2003/05/05 18:05:21	version 1.21, 2003/05/07 18:22:43
Line 1847 sub render {	Line 1847 sub render {
}	}
}	}
}	}

	function checkallid(value, idName) {
	for (i=0; i<document.forms.helpform.elements.length; i++) {
	ele = document.forms.helpform.elements[i];
	if (ele.id == idName) {
	document.forms.helpform.elements[i].checked=value;
	}
	}
	}
</script>	</script>
SCRIPT	SCRIPT
$buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true, '$var')" value="Select All Files" />	<input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />	<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
	<input type="button" onclick="checkallid(true, 'Published')" value="Select All Published" />
	<input type="button" onclick="checkallid(false, 'Published')" value="Unselect All Published" />
<br />	<br />
BUTTONS	BUTTONS
}	}
Line 1876 BUTTONS	Line 1887 BUTTONS
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';	$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
}	}

$result .= '<table border="0" cellpadding="1" cellspacing="1">';	$result .= '<table border="0" cellpadding="2" cellspacing="0">';

# Keeps track if there are no choices, prints appropriate error	# Keeps track if there are no choices, prints appropriate error
# if there are none.	# if there are none.
Line 1893 BUTTONS	Line 1904 BUTTONS
}	}
my $fileName = $subdir .'/'. $file;	my $fileName = $subdir .'/'. $file;
if (&$filterFunc($file)) {	if (&$filterFunc($file)) {
$result .= '<tr><td align="right">' .	(my $status, my $color) = @{fileState($subdir, $file)};
"<input type='$type' name='" . $var	$result .= '<tr><td align="right"' . " bgcolor='$color'>" .
	"<input id='$status' type='$type' name='" . $var
. ".forminput' value='" . HTML::Entities::encode($fileName) .	. ".forminput' value='" . HTML::Entities::encode($fileName) .
"'";	"'";
if (!$self->{'multichoice'} && $choices == 0) {	if (!$self->{'multichoice'} && $choices == 0) {
$result .= ' checked';	$result .= ' checked';
}	}
$result .= "/></td><td>" . $file . "</td></tr>\n";	$result .= "/></td><td bgcolor='$color'>" . $file .
	"</td><td bgcolor='$color'>$status</td></tr>\n";
$choices++;	$choices++;
}	}
}	}
Line 1916 BUTTONS	Line 1929 BUTTONS
return $result;	return $result;
}	}

	# Determine the state of the file: Published, unpublished, modified.
	# Return the color it should be in and a label as a two-element array
	# reference.
	# Logic lifted from lonpubdir.pm, even though I don't know that it's still
	# the most right thing to do.

	sub fileState {
	my $constructionSpaceDir = shift;
	my $file = shift;

	my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
	my $subdirpart = $constructionSpaceDir;
	$subdirpart =~ s/^\/home\/$ENV{'user.name'}\/public_html//;
	my $resdir = $docroot . '/res/' . $ENV{'user.domain'} . '/' . $ENV{'user.name'} .
	$subdirpart;

	my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file);
	my @resourceSpaceFileStat = stat($resdir . '/' . $file);
	if (!@resourceSpaceFileStat) {
	return ['Unpublished', '#FFCCCC'];
	}

	my $constructionSpaceFileModified = $constructionSpaceFileStat[9];
	my $resourceSpaceFileModified = $resourceSpaceFileStat[9];

	if ($constructionSpaceFileModified > $resourceSpaceFileModified) {
	return ['Modified', '#FFFFCC'];
	}
	return ['Published', '#CCFFCC'];
	}

sub postprocess {	sub postprocess {
my $self = shift;	my $self = shift;
my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'};	my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'};

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

Removed from v.1.19
changed lines
	Added in v.1.21