version 1.29, 2003/05/14 20:16:56
|
version 1.33, 2003/05/21 13:41:00
|
Line 53 Each state contains one or more state el
|
Line 53 Each state contains one or more state el
|
messages, resource selections, or date queries. |
messages, resource selections, or date queries. |
|
|
The helper tag is required to have one attribute, "title", which is the name |
The helper tag is required to have one attribute, "title", which is the name |
of the helper itself, such as "Parameter helper". |
of the helper itself, such as "Parameter helper". The helper tag may optionally |
|
have a "requiredpriv" attribute, specifying the priviledge a user must have |
|
to use the helper, or get denied access. See loncom/auth/rolesplain.tab for |
|
useful privs. Default is full access, which is often wrong! |
|
|
=head2 State tags |
=head2 State tags |
|
|
Line 257 sub real_handler {
|
Line 260 sub real_handler {
|
# xml parsing |
# xml parsing |
&Apache::lonxml::xmlparse($r, 'helper', $file); |
&Apache::lonxml::xmlparse($r, 'helper', $file); |
|
|
|
my $allowed = $helper->allowedCheck(); |
|
if (!$allowed) { |
|
$ENV{'user.error.msg'} = $ENV{'request.uri'}.':'.$helper->{REQUIRED_PRIV}. |
|
":0:0:Permission denied to access this helper."; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
|
$helper->process(); |
$helper->process(); |
|
|
$r->print($helper->display()); |
$r->print($helper->display()); |
return OK; |
return OK; |
} |
} |
|
|
sub registerHelperTags { |
sub registerHelperTags { |
Line 284 sub start_helper {
|
Line 294 sub start_helper {
|
|
|
registerHelperTags(); |
registerHelperTags(); |
|
|
Apache::lonhelper::helper->new($token->[2]{'title'}); |
Apache::lonhelper::helper->new($token->[2]{'title'}, $token->[2]{'requiredpriv'}); |
return ''; |
return ''; |
} |
} |
|
|
Line 343 sub new {
|
Line 353 sub new {
|
my $self = {}; |
my $self = {}; |
|
|
$self->{TITLE} = shift; |
$self->{TITLE} = shift; |
|
$self->{REQUIRED_PRIV} = shift; |
|
|
# If there is a state from the previous form, use that. If there is no |
# If there is a state from the previous form, use that. If there is no |
# state, use the start state parameter. |
# state, use the start state parameter. |
Line 467 sub declareVar {
|
Line 478 sub declareVar {
|
} |
} |
} |
} |
|
|
|
sub allowedCheck { |
|
my $self = shift; |
|
|
|
if (!defined($self->{REQUIRED_PRIV})) { |
|
return 1; |
|
} |
|
|
|
return Apache::lonnet::allowed($self->{REQUIRED_PRIV}, $ENV{'request.course.id'}); |
|
} |
|
|
sub changeState { |
sub changeState { |
my $self = shift; |
my $self = shift; |
$self->{STATE} = shift; |
$self->{STATE} = shift; |
Line 549 sub display {
|
Line 570 sub display {
|
HEADER |
HEADER |
if (!$state->overrideForm()) { $result.="<form name='helpform' method='POST'>"; } |
if (!$state->overrideForm()) { $result.="<form name='helpform' method='POST'>"; } |
$result .= <<HEADER; |
$result .= <<HEADER; |
<table border="0"><tr><td> |
<table border="0" width='100%'><tr><td> |
<h2><i>$stateTitle</i></h2> |
<h2><i>$stateTitle</i></h2> |
HEADER |
HEADER |
|
|
|
$result .= "<table cellpadding='10' width='100%'><tr><td rowspan='2' valign='top'>"; |
|
|
if (!$state->overrideForm()) { |
if (!$state->overrideForm()) { |
$result .= $self->_saveVars(); |
$result .= $self->_saveVars(); |
} |
} |
$result .= $state->render() . "<p> </p>"; |
$result .= $state->render(); |
|
|
|
$result .= "</td><td valign='top' align='right'>"; |
|
|
|
# Warning: Copy and pasted from below, because it's too much trouble to |
|
# turn this into a subroutine |
|
if (!$state->overrideForm()) { |
|
if ($self->{STATE} ne $self->{START_STATE}) { |
|
#$result .= '<input name="SUBMIT" type="submit" value="<- Previous" /> '; |
|
} |
|
if ($self->{DONE}) { |
|
my $returnPage = $self->{RETURN_PAGE}; |
|
$result .= "<a href=\"$returnPage\">End Helper</a>"; |
|
} |
|
else { |
|
$result .= '<nobr><input name="back" type="button" '; |
|
$result .= 'value="<- Previous" onclick="history.go(-1)" /> '; |
|
$result .= '<input name="SUBMIT" type="submit" value="Next ->" /></nobr>'; |
|
} |
|
} |
|
|
|
$result .= "</td></tr><tr><td valign='bottom' align='right'>"; |
|
|
|
# Warning: Copy and pasted from above, because it's too much trouble to |
|
# turn this into a subroutine |
if (!$state->overrideForm()) { |
if (!$state->overrideForm()) { |
$result .= '<center>'; |
|
if ($self->{STATE} ne $self->{START_STATE}) { |
if ($self->{STATE} ne $self->{START_STATE}) { |
#$result .= '<input name="SUBMIT" type="submit" value="<- Previous" /> '; |
#$result .= '<input name="SUBMIT" type="submit" value="<- Previous" /> '; |
} |
} |
Line 568 HEADER
|
Line 613 HEADER
|
$result .= "<a href=\"$returnPage\">End Helper</a>"; |
$result .= "<a href=\"$returnPage\">End Helper</a>"; |
} |
} |
else { |
else { |
$result .= '<input name="back" type="button" '; |
$result .= '<nobr><input name="back" type="button" '; |
$result .= 'value="<- Previous" onclick="history.go(-1)" /> '; |
$result .= 'value="<- Previous" onclick="history.go(-1)" /> '; |
$result .= '<input name="SUBMIT" type="submit" value="Next ->" />'; |
$result .= '<input name="SUBMIT" type="submit" value="Next ->" /></nobr>'; |
} |
} |
$result .= "</center>\n"; |
|
} |
} |
|
|
#foreach my $key (keys %{$self->{VARS}}) { |
#foreach my $key (keys %{$self->{VARS}}) { |
# $result .= "|$key| -> " . $self->{VARS}->{$key} . "<br />"; |
# $result .= "|$key| -> " . $self->{VARS}->{$key} . "<br />"; |
#} |
#} |
|
|
|
$result .= "</td></tr></table>"; |
|
|
$result .= <<FOOTER; |
$result .= <<FOOTER; |
</td> |
</td> |
</tr> |
</tr> |
Line 684 sub addElement {
|
Line 730 sub addElement {
|
push @{$self->{ELEMENTS}}, $element; |
push @{$self->{ELEMENTS}}, $element; |
} |
} |
|
|
use Data::Dumper; |
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |
my @results = (); |
my @results = (); |
Line 734 some setting accidentally.
|
Line 779 some setting accidentally.
|
|
|
Again, see the course initialization helper for examples. |
Again, see the course initialization helper for examples. |
|
|
|
B<getValue method> |
|
|
|
If the element stores the name of the variable in a 'variable' member, which |
|
the provided ones all do, you can retreive the value of the variable by calling |
|
this method. |
|
|
=cut |
=cut |
|
|
BEGIN { |
BEGIN { |
Line 820 sub overrideForm {
|
Line 871 sub overrideForm {
|
return 0; |
return 0; |
} |
} |
|
|
|
sub getValue { |
|
my $self = shift; |
|
return $helper->{VARS}->{$self->{'variable'}}; |
|
} |
|
|
1; |
1; |
|
|
package Apache::lonhelper::message; |
package Apache::lonhelper::message; |
Line 1866 no strict;
|
Line 1922 no strict;
|
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
|
|
use Apache::lonpubdir; # for getTitleString |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::files', |
&Apache::lonhelper::register('Apache::lonhelper::files', |
('files', 'filechoice', 'filefilter')); |
('files', 'filechoice', 'filefilter')); |
Line 2022 BUTTONS
|
Line 2080 BUTTONS
|
$color = ''; |
$color = ''; |
} |
} |
|
|
|
# Get the title |
|
my $title = Apache::lonpubdir::getTitleString($fileName); |
|
|
# Netscape 4 is stupid and there's nowhere to put the |
# Netscape 4 is stupid and there's nowhere to put the |
# information on the input tag that the file is Published, |
# information on the input tag that the file is Published, |
# Unpublished, etc. In *real* browsers we can just say |
# Unpublished, etc. In *real* browsers we can just say |
Line 2048 BUTTONS
|
Line 2109 BUTTONS
|
if (!$self->{'multichoice'} && $choices == 0) { |
if (!$self->{'multichoice'} && $choices == 0) { |
$result .= ' checked'; |
$result .= ' checked'; |
} |
} |
$result .= "/></td><td bgcolor='$color'>" . $file . |
$result .= "/></td><td bgcolor='$color'>" . $file . "</td>" . |
"</td><td bgcolor='$color'>$status</td></tr>\n"; |
"<td bgcolor='$color'>$title</td>" . |
|
"<td bgcolor='$color'>$status</td>" . "</tr>\n"; |
$choices++; |
$choices++; |
} |
} |
} |
} |
Line 2389 sub render {
|
Line 2451 sub render {
|
for my $element (@{$state->{ELEMENTS}}) { |
for my $element (@{$state->{ELEMENTS}}) { |
if (defined($element->{FINAL_CODE})) { |
if (defined($element->{FINAL_CODE})) { |
# Compile the code. |
# Compile the code. |
my $code = 'sub { my $helper = shift; ' . $element->{FINAL_CODE} . |
my $code = 'sub { my $helper = shift; my $element = shift; ' |
'}'; |
. $element->{FINAL_CODE} . '}'; |
$code = eval($code); |
$code = eval($code); |
die 'Error while executing final code for element with var ' . |
die 'Error while executing final code for element with var ' . |
$element->{'variable'} . ', Perl said: ' . $@ if $@; |
$element->{'variable'} . ', Perl said: ' . $@ if $@; |
|
|
my $result = &$code($helper); |
my $result = &$code($helper, $element); |
if ($result) { |
if ($result) { |
push @results, $result; |
push @results, $result; |
} |
} |