--- loncom/homework/chemresponse.pm 2003/05/05 20:43:46 1.4 +++ loncom/homework/chemresponse.pm 2003/05/05 21:14:10 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.4 2003/05/05 20:43:46 albertel Exp $ +# $Id: chemresponse.pm,v 1.5 2003/05/05 21:14:10 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -215,8 +215,14 @@ sub end_chemstructure { } sub reaction_javascript { + my $rightarrow; + if ($ENV{'browser.unicode'}) { + $rightarrow=" → " + } else { + $rightarrow=" ® "; + } my $result=< + + REACTIONJAVASCRIPT return $result; } @@ -406,7 +412,7 @@ sub start_reactionresponse { if ($target eq 'web') { $result.=&reaction_javascript(); # $result.=''; - $result.='\');newWindow.document.close()" />' + $result.='' } elsif ($target eq "edit") { } return $result;