version 1.22, 2004/09/16 14:28:19
|
version 1.23, 2004/09/16 21:54:22
|
Line 169 sub ProblemSelector {
|
Line 169 sub ProblemSelector {
|
|
|
=pod |
=pod |
|
|
=item &MultpleProblemSelector($navmap,$ResponseTypes,$selected,$inputname) |
=item &MultpleProblemSelector($navmap,$selected,$inputname) |
|
|
Generate HTML with checkboxes for problem selection. |
Generate HTML with checkboxes for problem selection. |
|
|
Line 178 Input:
|
Line 178 Input:
|
$navmap: a navmap object. If undef, navmaps will be called to create a |
$navmap: a navmap object. If undef, navmaps will be called to create a |
new object. |
new object. |
|
|
$ResponseTypes: scalar containing regular expression which matches response |
|
types. Only those problems which contain the given response type will be |
|
shown. |
|
|
|
$selected: Scalar, Array, or hash reference of currently selected items. |
$selected: Scalar, Array, or hash reference of currently selected items. |
|
|
$inputname: The name of the form elements to use for the checkboxs. |
$inputname: The name of the form elements to use for the checkboxs. |
Line 194 and their contents. A checkbox is provi
|
Line 190 and their contents. A checkbox is provi
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
sub MultipleProblemSelector { |
sub MultipleProblemSelector { |
my ($navmap,$ReponseTypes,$inputname,$formname)=@_; |
my ($navmap,$inputname,$formname)=@_; |
my $cid = $ENV{'request.course.id'}; |
my $cid = $ENV{'request.course.id'}; |
my $Str; |
my $Str; |
# Massage the input as needed. |
# Massage the input as needed. |
Line 284 sub new_accumulator {
|
Line 280 sub new_accumulator {
|
sub { |
sub { |
if (@_) { |
if (@_) { |
my ($res,$checked) = @_; |
my ($res,$checked) = @_; |
$target.='<tr><td>'. |
$target.='<tr><td><label>'. |
'<input type="checkbox" name="'.$inputname.'" '; |
'<input type="checkbox" name="'.$inputname.'" '; |
if ($checked) { |
if ($checked) { |
$target .= 'checked '; |
$target .= 'checked '; |
} |
} |
$target.= |
$target.= |
'value="'.&Apache::lonnet::escape($res->symb).'" />'. |
'value="'.&Apache::lonnet::escape($res->symb).'" />'. |
'</td><td>'.&get_title($res->title,$res->symb).'</td>'. |
' '. |
|
&get_title($res->title,$res->symb).'</label></td>'. |
'</tr>'.$/; |
'</tr>'.$/; |
} else { |
} else { |
if (defined($target)) { |
if (defined($target)) { |
Line 1244 Returns: An array of scalars containing
|
Line 1241 Returns: An array of scalars containing
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
sub manage_caches { |
sub manage_caches { |
my ($r,$formname,$inputname) = @_; |
my ($r,$formname,$inputname,$update_message) = @_; |
&Apache::loncoursedata::clear_internal_caches(); |
&Apache::loncoursedata::clear_internal_caches(); |
my $sectionkey = |
my $sectionkey = |
join(',', |
join(',', |
Line 1261 sub manage_caches {
|
Line 1258 sub manage_caches {
|
(exists($ENV{'form.prevenrollstatus'}) && |
(exists($ENV{'form.prevenrollstatus'}) && |
$ENV{'form.prevenrollstatus'} ne $statuskey) |
$ENV{'form.prevenrollstatus'} ne $statuskey) |
) { |
) { |
|
if (defined($update_message)) { |
|
$r->print($update_message); |
|
} |
&Apache::lonstatistics::Gather_Full_Student_Data($r,$formname, |
&Apache::lonstatistics::Gather_Full_Student_Data($r,$formname, |
$inputname); |
$inputname); |
|
|
} |
} |
# |
# |
my @Buttons = |
my @Buttons = |