[LON-CAPA-cvs] cvs: loncom /homework chemresponse.pm

[raeburn]

raeburn		Tue Jan 15 18:09:43 2013 EDT

  Modified files:              
    /loncom/homework	chemresponse.pm 
  Log:
  - Moving &get_uniq_name() from lonhtmlcommon.pm (removed in rev 1.297)
    to chemresponse.pm, as this is now the only modules that calls it. 
  
  
Index: loncom/homework/chemresponse.pm
diff -u loncom/homework/chemresponse.pm:1.90 loncom/homework/chemresponse.pm:1.91
--- loncom/homework/chemresponse.pm:1.90	Mon Nov 14 03:08:01 2011
+++ loncom/homework/chemresponse.pm	Tue Jan 15 18:09:43 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.90 2011/11/14 03:08:01 raeburn Exp $
+# $Id: chemresponse.pm,v 1.91 2013/01/15 18:09:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -165,7 +165,7 @@
     if (defined($shown_text)) { $display=&mt($shown_text); }
     my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
     my $function = 
-	'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name();
+	'LONCAPA_draw_molecule_'.&get_uniq_name();
     my $result=<<CHEMINPUT;
 <script type="text/javascript">
     function $function() {
@@ -644,5 +644,11 @@
     return $result;
 }
 
+my $uniq=0;
+sub get_uniq_name {
+    $uniq++;
+    return 'uniquename'.$uniq;
+}
+
 1;
 __END__