version 1.90, 2005/01/03 13:45:31
|
version 1.94, 2005/01/20 20:20:35
|
Line 1165 sub start_choice {
|
Line 1165 sub start_choice {
|
$parser)); |
$parser)); |
my $nextstate = $token->[2]{'nextstate'}; |
my $nextstate = $token->[2]{'nextstate'}; |
my $evalFlag = $token->[2]{'eval'}; |
my $evalFlag = $token->[2]{'eval'}; |
push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate, |
push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate, |
$evalFlag]; |
$evalFlag]; |
return ''; |
return ''; |
} |
} |
Line 1281 BUTTONS
|
Line 1281 BUTTONS
|
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
$result .= "/></td><td> ".qq{<label for="$id">}. |
$result .= "/></td><td> ".qq{<label for="$id">}. |
&mtn($choiceLabel). "</label></td></tr>\n"; |
$choiceLabel. "</label></td></tr>\n"; |
} |
} |
$result .= "</table>\n\n\n"; |
$result .= "</table>\n\n\n"; |
$result .= $buttons; |
$result .= $buttons; |
Line 1871 sub start_option {
|
Line 1871 sub start_option {
|
if (!defined($paramHash->{OPTION_TEXTS})) { |
if (!defined($paramHash->{OPTION_TEXTS})) { |
$paramHash->{OPTION_TEXTS} = [ ]; |
$paramHash->{OPTION_TEXTS} = [ ]; |
$paramHash->{OPTION_VARS} = [ ]; |
$paramHash->{OPTION_VARS} = [ ]; |
|
|
} |
} |
|
# OPTION_TEXTS is a list of the text attribute |
|
# values used to create column headings. |
|
# OPTION_VARS is a list of the variable names, used to create the checkbox |
|
# inputs. |
# We're ok with empty elements. as place holders |
# We're ok with empty elements. as place holders |
# Although the 'variable' element should really exist. |
# Although the 'variable' element should really exist. |
|
# |
|
|
my $option_texts = $paramHash->{OPTION_TEXTS}; |
my $option_texts = $paramHash->{OPTION_TEXTS}; |
my $option_vars = $paramHash->{OPTION_VARS}; |
my $option_vars = $paramHash->{OPTION_VARS}; |
|
|
push(@$option_texts, $token->[2]{'text'}); |
push(@$option_texts, $token->[2]{'text'}); |
push(@$option_vars, $token->[2]{'variable'}); |
push(@$option_vars, $token->[2]{'variable'}); |
|
|
|
# Need to create and declare the option variables as well to make them |
|
# persistent. |
|
# |
|
my $varname = $token->[2]{'variable'}; |
|
$helper->declareVar($varname); |
|
|
|
|
return ''; |
return ''; |
} |
} |
|
|
Line 1989 BUTTONS
|
Line 2001 BUTTONS
|
my $resource_name = |
my $resource_name = |
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); |
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); |
if($option_vars) { |
if($option_vars) { |
foreach my $var (@$option_vars) { |
foreach my $option_var (@$option_vars) { |
$col .= |
$col .= |
"<td align='center'><input type='checkbox' name ='$var'.forminput' value='". |
"<td align='center'><input type='checkbox' name ='$option_var". |
|
".forminput' value='". |
$resource_name . "' /> </td>"; |
$resource_name . "' /> </td>"; |
} |
} |
} |
} |
Line 2111 sub start_student {
|
Line 2124 sub start_student {
|
$helper->declareVar($paramHash->{'variable'}); |
$helper->declareVar($paramHash->{'variable'}); |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'coursepersonnel'} = $token->[2]{'coursepersonnel'}; |
$paramHash->{'coursepersonnel'} = $token->[2]{'coursepersonnel'}; |
$paramHash->{'sctiveonly'} = $token->[2]{'activeonly'}; |
$paramHash->{'activeonly'} = $token->[2]{'activeonly'}; |
if (defined($token->[2]{'nextstate'})) { |
if (defined($token->[2]{'nextstate'})) { |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
} |
} |
Line 2181 SCRIPT
|
Line 2194 SCRIPT
|
|
|
$buttons = <<BUTTONS; |
$buttons = <<BUTTONS; |
<br /> |
<br /> |
<input type="button" onclick="checkactive()" value="$lt{'ocs'}" /> |
<table> |
<input type="button" onclick="uncheckexpired()" value="$lt{'ues'}" /><br /> |
<tr> |
<input type="button" onclick="checkall(true, '$var')" value="$lt{'sas'}" /> |
|
<input type="button" onclick="checkall(false, '$var')" value="$lt{'uas'}" /><br /> |
<td><input type="button" onclick="checkactive()" value="$lt{'ocs'}" /></td> |
<input type="button" onclick="checksec(true)" value="$lt{'sfsg'}"> |
<td><input type="button" onclick="uncheckexpired()" value="$lt{'ues'}" /><br /></td> |
<input type="text" size="5" name="chksec"> |
</tr> |
<input type="button" onclick="checksec(false)" value="$lt{'ufsg'}"> |
<tr> |
|
<td><input type="button" onclick="checkall(true, '$var')" value="$lt{'sas'}" /></td> |
|
<td> <input type="button" onclick="checkall(false, '$var')" value="$lt{'uas'}" /><br /></td> |
|
</tr> |
|
<tr> |
|
<td><input type="button" onclick="checksec(true)" value="$lt{'sfsg'}"></td> |
|
<td><input type="text" size="5" name="chksec"> </td> |
|
</tr> |
|
<tr> |
|
<td><input type="button" onclick="checksec(false)" value="$lt{'ufsg'}"></td> |
|
<td></td> |
|
</tr> |
|
</table> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
} |
} |
Line 2997 will make a "Finish Helper" button that
|
Line 3022 will make a "Finish Helper" button that
|
which is useful for the Course Initialization helper so the users never see |
which is useful for the Course Initialization helper so the users never see |
the old values taking effect. |
the old values taking effect. |
|
|
|
If the parameter "restartCourse" is not true a 'Finish' Button will be |
|
presented that takes the user back to whatever was defined as <exitpage> |
|
|
=cut |
=cut |
|
|
no strict; |
no strict; |
Line 3094 sub render {
|
Line 3122 sub render {
|
$result .= '</ul>'; |
$result .= '</ul>'; |
} |
} |
|
|
|
my $actionURL = $self->{EXIT_PAGE}; |
|
my $targetURL = ''; |
|
my $finish=&mt('Finish'); |
if ($self->{'restartCourse'}) { |
if ($self->{'restartCourse'}) { |
my $targetURL = '/adm/menu'; |
my $actionURL = '/adm/roles'; |
|
$targetURL = '/adm/menu'; |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.url'}=~/^uploaded/) { |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.url'}=~/^uploaded/) { |
$targetURL = '/adm/coursedocs'; |
$targetURL = '/adm/coursedocs'; |
} else { |
} else { |
Line 3104 sub render {
|
Line 3136 sub render {
|
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
$targetURL = '/adm/parmset?overview=1'; |
$targetURL = '/adm/parmset?overview=1'; |
} |
} |
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
my $finish=&mt('Finish Course Initialization'); |
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
|
$result .= "<center>\n" . |
|
"<form action='/adm/roles' method='post' target='loncapaclient'>\n" . |
|
"<input type='button' onclick='history.go(-1)' value='$previous' />" . |
|
"<input type='hidden' name='orgurl' value='$targetURL' />" . |
|
"<input type='hidden' name='selectrole' value='1' />\n" . |
|
"<input type='hidden' name='" . $ENV{'request.role'} . |
|
"' value='1' />\n<input type='submit' value='" . |
|
&mt('Finish Course Initialization') . "' />\n" . |
|
"</form></center>"; |
|
} |
} |
|
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
|
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
|
$result .= "<center>\n" . |
|
"<form action='".$actionURL."' method='post' target='loncapaclient'>\n" . |
|
"<input type='button' onclick='history.go(-1)' value='$previous' />" . |
|
"<input type='hidden' name='orgurl' value='$targetURL' />" . |
|
"<input type='hidden' name='selectrole' value='1' />\n" . |
|
"<input type='hidden' name='" . $ENV{'request.role'} . |
|
"' value='1' />\n<input type='submit' value='" . $finish . "' />\n" . |
|
"</form></center>"; |
|
|
return $result; |
return $result; |
} |
} |
|
|
sub overrideForm { |
sub overrideForm { |
my $self = shift; |
return 1; |
return $self->{'restartCourse'}; |
|
} |
} |
|
|
1; |
1; |