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.16 and 1.23

version 1.16, 2003/04/30 19:23:48	version 1.23, 2003/05/07 19:24:07
Line 149 of the information used is persistent be	Line 149 of the information used is persistent be
and -maintain code.	and -maintain code.

It is possible to do some of the work with an XML fragment parsed by	It is possible to do some of the work with an XML fragment parsed by
lonxml; again, see lonprintout.pm for an example.	lonxml; again, see lonprintout.pm for an example. In that case it is
	imperative that you call B<Apache::lonhelper::registerHelperTags()>
	before parsing XML fragments and B<Apache::lonhelper::unregisterHelperTags()>
	when you are done. See lonprintout.pm for examples of this usage in the
	printHelper subroutine.

=cut	=cut

Line 462 sub process {	Line 466 sub process {

# Phase 2: Preprocess current state	# Phase 2: Preprocess current state
my $startState = $self->{STATE};	my $startState = $self->{STATE};
my $state = $self->{STATES}{$startState};	my $state = $self->{STATES}->{$startState};

# For debugging, print something here to determine if you're going	# For debugging, print something here to determine if you're going
# to an undefined state.	# to an undefined state.
Line 473 sub process {	Line 477 sub process {

# Phase 3: While the current state is different from the previous state,	# Phase 3: While the current state is different from the previous state,
# keep processing.	# keep processing.
while ( $startState ne $self->{STATE} )	while ( $startState ne $self->{STATE} &&
	defined($self->{STATES}->{$self->{STATE}}) )
{	{
$startState = $self->{STATE};	$startState = $self->{STATE};
$state = $self->{STATES}{$startState};	$state = $self->{STATES}->{$startState};
$state->preprocess();	$state->preprocess();
}	}

Line 495 sub display {	Line 500 sub display {

my $result = "";	my $result = "";

	if (!defined($state)) {
	$result = "<font color='#ff0000'>Error: state '$state' not defined!</font>";
	return $result;
	}

# Phase 4: Display.	# Phase 4: Display.
my $stateTitle = $state->title();	my $stateTitle = $state->title();
my $bodytag = &Apache::loncommon::bodytag("$self->{TITLE}",'','');	my $bodytag = &Apache::loncommon::bodytag("$self->{TITLE}",'','');
Line 987 sub render {	Line 997 sub render {
if ($self->{'multichoice'}) {	if ($self->{'multichoice'}) {
$result .= <<SCRIPT;	$result .= <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
document.forms.helpform.elements[i].checked=value;	ele = document.forms.helpform.elements[i];
	if (ele.name == checkName + '.forminput') {
	document.forms.helpform.elements[i].checked=value;
	}
}	}
}	}
</script>	</script>
SCRIPT	SCRIPT
$buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true)" value="Select All" />	<input type="button" onclick="checkall(true, '$var')" value="Select All" />
<input type="button" onclick="checkall(false)" value="Unselect All" />	<input type="button" onclick="checkall(false, '$var')" value="Unselect All" />
<br />	<br />
BUTTONS	BUTTONS
}	}
Line 1295 the user can manipulate the folders.	Line 1308 the user can manipulate the folders.

<resource> takes the standard variable attribute to control what helper	<resource> takes the standard variable attribute to control what helper
variable stores the results. It also takes a "multichoice" attribute,	variable stores the results. It also takes a "multichoice" attribute,
which controls whether the user can select more then one resource.	which controls whether the user can select more then one resource. The
	"toponly" attribute controls whether the resource display shows just the
	resources in that sequence, or recurses into all sub-sequences, defaulting
	to false.

B<SUB-TAGS>	B<SUB-TAGS>

Line 1356 sub start_resource {	Line 1372 sub start_resource {
$paramHash->{'variable'} = $token->[2]{'variable'};	$paramHash->{'variable'} = $token->[2]{'variable'};
$helper->declareVar($paramHash->{'variable'});	$helper->declareVar($paramHash->{'variable'});
$paramHash->{'multichoice'} = $token->[2]{'multichoice'};	$paramHash->{'multichoice'} = $token->[2]{'multichoice'};
	$paramHash->{'toponly'} = $token->[2]{'toponly'};
return '';	return '';
}	}

Line 1460 sub render {	Line 1477 sub render {
if ($self->{'multichoice'}) {	if ($self->{'multichoice'}) {
$result = <<SCRIPT;	$result = <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
ele = document.forms.helpform.elements[i];	ele = document.forms.helpform.elements[i];
if (ele.type == "checkbox") {	if (ele.name == checkName + '.forminput') {
document.forms.helpform.elements[i].checked=value;	document.forms.helpform.elements[i].checked=value;
}	}
}	}
Line 1472 sub render {	Line 1489 sub render {
SCRIPT	SCRIPT
$buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true)" value="Select All" />	<input type="button" onclick="checkall(true, '$var')" value="Select All Resources" />
<input type="button" onclick="checkall(false)" value="Unselect All" />	<input type="button" onclick="checkall(false, '$var')" value="Unselect All Resources" />
<br />	<br />
BUTTONS	BUTTONS
}	}
Line 1516 BUTTONS	Line 1533 BUTTONS
}	}
};	};

$ENV{'form.condition'} = 1;	$ENV{'form.condition'} = !$self->{'toponly'};
$result .=	$result .=
&Apache::lonnavmaps::render( { 'cols' => [$renderColFunc,	&Apache::lonnavmaps::render( { 'cols' => [$renderColFunc,
Apache::lonnavmaps::resource()],	Apache::lonnavmaps::resource()],
Line 1613 sub render {	Line 1630 sub render {
my $self = shift;	my $self = shift;
my $result = '';	my $result = '';
my $buttons = '';	my $buttons = '';
	my $var = $self->{'variable'};

if ($self->{'multichoice'}) {	if ($self->{'multichoice'}) {
$result = <<SCRIPT;	$result = <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
document.forms.helpform.elements[i].checked=value;	ele = document.forms.helpform.elements[i];
	if (ele.name == checkName + '.forminput') {
	document.forms.helpform.elements[i].checked=value;
	}
}	}
}	}
</script>	</script>
SCRIPT	SCRIPT
$buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true)" value="Select All" />	<input type="button" onclick="checkall(true, '$var')" value="Select All Students" />
<input type="button" onclick="checkall(false)" value="Unselect All" />	<input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" />
<br />	<br />
BUTTONS	BUTTONS
}	}
Line 1668 BUTTONS	Line 1689 BUTTONS
$checked = 1;	$checked = 1;
}	}
$result .=	$result .=
" value='" . HTML::Entities::encode($_)	" value='" . HTML::Entities::encode($_ . ':' . $choices->{$_}->[$section])
. "' /></td><td>"	. "' /></td><td>"
. HTML::Entities::encode($choices->{$_}->[$fullname])	. HTML::Entities::encode($choices->{$_}->[$fullname])
. "</td><td align='center'>"	. "</td><td align='center'>"
Line 1814 sub render {	Line 1835 sub render {

my $filterFunc = $self->{FILTER_FUNC};	my $filterFunc = $self->{FILTER_FUNC};
my $buttons = '';	my $buttons = '';
	my $type = 'radio';
	if ($self->{'multichoice'}) {
	$type = 'checkbox';
	}

if ($self->{'multichoice'}) {	if ($self->{'multichoice'}) {
$result = <<SCRIPT;	$result = <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
ele = document.forms.helpform.elements[i];	ele = document.forms.helpform.elements[i];
if (ele.type == "checkbox") {	if (ele.name == checkName + '.forminput') {
	document.forms.helpform.elements[i].checked=value;
	}
	}
	}

	function checkallclass(value, className) {
	for (i=0; i<document.forms.helpform.elements.length; i++) {
	ele = document.forms.helpform.elements[i];
	if (ele.type == "$type" && ele.onclick) {
document.forms.helpform.elements[i].checked=value;	document.forms.helpform.elements[i].checked=value;
}	}
}	}
Line 1830 sub render {	Line 1864 sub render {
SCRIPT	SCRIPT
$buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true)" value="Select All" />	<input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
<input type="button" onclick="checkall(false)" value="Unselect All" />	<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
	BUTTONS

	if ($helper->{VARS}->{'construction'}) {
	$buttons .= <<BUTTONS;
	<input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" />
	<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" />
<br />	<br />
BUTTONS	BUTTONS
	}
}	}

# Get the list of files in this directory.	# Get the list of files in this directory.
Line 1855 BUTTONS	Line 1896 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.
my $choices = 0;	my $choices = 0;
my $type = 'radio';
if ($self->{'multichoice'}) {
$type = 'checkbox';
}
# Print each legitimate file choice.	# Print each legitimate file choice.
for my $file (@fileList) {	for my $file (@fileList) {
$file = (split(/&/, $file))[0];	$file = (split(/&/, $file))[0];
Line 1872 BUTTONS	Line 1909 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
	# Netscape 4 is stupid and there's nowhere to put the
	# information on the input tag that the file is Published,
	# Unpublished, etc. In real browsers we can just say
	# "class='Published'" and check the className attribute of
	# the input tag, but Netscape 4 is too stupid to understand
	# that attribute, and un-comprehended attributes are not
	# reflected into the object model. So instead, what I do
	# is either have or don't have an "onclick" handler that
	# does nothing, give Published files the onclick handler, and
	# have the checker scripts check for that. Stupid and clumsy,
	# and only gives us binary "yes/no" information (at least I
	# couldn't figure out how to reach into the event handler's
	# actual code to retreive a value), but it works well enough
	# here.

	my $onclick = '';
	if ($status eq 'Published' && $helper->{VARS}->{'construction'}) {
	$onclick = 'onclick="a=1" ';
	}
	$result .= '<tr><td align="right"' . " bgcolor='$color'>" .
	"<input $onclick 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 1895 BUTTONS	Line 1954 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.16
changed lines
	Added in v.1.23