--- 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;