version 1.51, 2003/10/08 17:41:17
|
version 1.58, 2003/10/09 18:24:32
|
Line 1020 sub end_message {
|
Line 1020 sub end_message {
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |
|
|
return &mt($self->{MESSAGE_TEXT}); |
return &mtn($self->{MESSAGE_TEXT}); |
} |
} |
# If a NEXTSTATE was given, switch to it |
# If a NEXTSTATE was given, switch to it |
sub postprocess { |
sub postprocess { |
Line 2081 sub render {
|
Line 2081 sub render {
|
} |
} |
} |
} |
} |
} |
|
function checksec(value) { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
|
comp = document.forms.helpform.elements.chksec.value; |
|
if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) { |
|
document.forms.helpform.elements[i].checked=value; |
|
} |
|
} |
|
} |
|
function checkactive() { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
|
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
|
document.forms.helpform.elements[i].checked=true; |
|
} |
|
} |
|
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
$buttons = <<BUTTONS; |
$buttons = <<BUTTONS; |
<br /> |
<br /> |
|
<input type="button" onclick="checkactive()" value="Select Only Current Students" /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Students" /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Students" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" /> |
|
<input type="button" onclick="checksec(true)" value="Select for Section/Group"> |
|
<input type="text" size="5" name="chksec"> |
|
<input type="button" onclick="checksec(false)" value="Unselect for Section/Group"> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
} |
} |
Line 2140 BUTTONS
|
Line 2159 BUTTONS
|
if (!$self->{'activeonly'} || $classlist->{$_}->[$status] eq |
if (!$self->{'activeonly'} || $classlist->{$_}->[$status] eq |
'Active') { |
'Active') { |
push @$choices, [$_, $classlist->{$_}->[$fullname], |
push @$choices, [$_, $classlist->{$_}->[$fullname], |
$classlist->{$_}->[$section], 'Student']; |
$classlist->{$_}->[$section], |
|
$classlist->{$_}->[$status], 'Student']; |
} |
} |
} |
} |
|
|
Line 2150 BUTTONS
|
Line 2170 BUTTONS
|
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
$result .= "<tr><td></td><td align='center'><b>$name</b></td>". |
$result .= "<tr><td></td><td align='center'><b>$name</b></td>". |
"<td align='center'><b>Section</b></td>" . |
"<td align='center'><b>Section</b></td>" . |
"<td align='center'><b>Role</b></td></tr>"; |
"<td align='center'><b>Status</b></td>" . |
|
"<td align='center'><b>Role</b></td>" . |
|
"<td align='center'><b>Username:Domain</b></td></tr>"; |
|
|
my $checked = 0; |
my $checked = 0; |
for my $choice (@$choices) { |
for my $choice (@$choices) { |
Line 2162 BUTTONS
|
Line 2184 BUTTONS
|
$checked = 1; |
$checked = 1; |
} |
} |
$result .= |
$result .= |
" value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2]) |
" value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2] . ':' . $choice->[1] . ':' . $choice->[3]) |
. "' /></td><td>" |
. "' /></td><td>" |
. HTML::Entities::encode($choice->[1]) |
. HTML::Entities::encode($choice->[1]) |
. "</td><td align='center'>" |
. "</td><td align='center'>" |
. HTML::Entities::encode($choice->[2]) |
. HTML::Entities::encode($choice->[2]) |
. "</td>\n<td>" |
. "</td>\n<td>" |
. HTML::Entities::encode($choice->[3]) . "</td></tr>\n"; |
. HTML::Entities::encode($choice->[3]) |
|
. "</td>\n<td>" |
|
. HTML::Entities::encode($choice->[4]) |
|
. "</td>\n<td>" |
|
. HTML::Entities::encode($choice->[0]) |
|
. "</td></tr>\n"; |
} |
} |
|
|
$result .= "</table>\n\n"; |
$result .= "</table>\n\n"; |