|
version 1.49, 2005/02/22 21:33:27
|
version 1.50, 2005/04/07 06:56:21
|
|
Line 235 sub end_organicresponse {
|
Line 235 sub end_organicresponse {
|
| } |
} |
| &Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
| $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
| $Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$ENV{"form.MOLECULE_$id"}; |
$Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$env{"form.MOLECULE_$id"}; |
| } |
} |
| } elsif ($target eq "edit") { |
} elsif ($target eq "edit") { |
| $result.= &Apache::edit::tag_end($target,$token,''); |
$result.= &Apache::edit::tag_end($target,$token,''); |
|
Line 272 sub start_organicstructure {
|
Line 272 sub start_organicstructure {
|
| if (!$texwidth) { $texwidth='90'; } |
if (!$texwidth) { $texwidth='90'; } |
| my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
| my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); |
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); |
| my $filename = $ENV{'user.name'}.'_'.$ENV{'user.domain'}. |
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. |
| '_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; |
'_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; |
| my $id=$filename; |
my $id=$filename; |
| &Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
![[BACK]](/icons/back.gif){kind=icon}
Return to chemresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework