|
version 1.122, 2004/12/04 00:41:26
|
version 1.124, 2005/01/31 22:00:40
|
|
Line 182 sub end_foilgroup {
|
Line 182 sub end_foilgroup {
|
| my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
| push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
| } elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
| if ( defined $ENV{'form.submitted'}) { |
if ( &Apache::response::submitted()) { |
| my @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
| my $temp=1;my $name; |
my $temp=1;my $name; |
| my %responsehash; |
my %responsehash; |
|
Line 629 sub end_foil {
|
Line 629 sub end_foil {
|
| if ($value ne 'unused') { |
if ($value ne 'unused') { |
| my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
| &Apache::lonxml::debug("Got a name of :$name:"); |
&Apache::lonxml::debug("Got a name of :$name:"); |
| if (!$name) { $name=$Apache::lonxml::curdepth; } |
if (!$name) { |
| |
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
| |
$name=$Apache::lonxml::curdepth; |
| |
} |
| &Apache::lonxml::debug("Using a name of :$name:"); |
&Apache::lonxml::debug("Using a name of :$name:"); |
| if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
| &Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework