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

[raeburn]

raeburn		Tue Sep  7 20:37:33 2021 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - Bug 6962
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.354 loncom/homework/inputtags.pm:1.355
--- loncom/homework/inputtags.pm:1.354	Sun Sep  5 16:27:16 2021
+++ loncom/homework/inputtags.pm	Tue Sep  7 20:37:33 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.354 2021/09/05 16:27:16 raeburn Exp $
+# $Id: inputtags.pm,v 1.355 2021/09/07 20:37:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1930,10 +1930,10 @@
     my $prefix = $env{'form.request.prefix'};
     $prefix =~ tr{.}{_};
     my $function_name = 'LONCAPA_previous_tries_'.$prefix;
-    if (($env{'request.state'} eq 'construct') || ($id =~ /[._]|[^\w\s\-]/)) {
+    if (($env{'request.state'} eq 'construct') || ($id =~ /\W/)) {
         $function_name .= $Apache::lonxml::curdepth;
     } else {
-        $function_name .= &js_escape($id);
+        $function_name .= $id;
     }
     $function_name .= '_'.$Apache::lonxml::counter;
     my $possmathjax = 1;