--- loncom/homework/inputtags.pm	2016/12/06 20:51:11	1.344
+++ loncom/homework/inputtags.pm	2019/08/07 19:32:38	1.347
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.344 2016/12/06 20:51:11 damieng Exp $
+# $Id: inputtags.pm,v 1.347 2019/08/07 19:32:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -671,8 +671,8 @@ sub file_selector {
         my $free_space = $maxfilesize * 1048576;
         $result .= &mt('Submit a file: (only one file per submission)').
             ' <br /><input type="file" size="50" name="HWFILE'.$jspart.'_'.$id.
-            '" id="HWFILE'.$jspart.'_'.$id.'" class="flUpload" /><br />'.
-            '<input type="hidden" id="free_space" value="'.$free_space.'" /><br />'
+            '" id="HWFILE'.$jspart.'_'.$id.'" class="LC_flUpload" />'.
+            '<input type="hidden" id="free_space" value="'.$free_space.'" /><br />';
         }
     if ( $which eq 'both') {
 	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
@@ -1904,8 +1904,13 @@ sub previous_tries {
     my $tries_text = &get_tries_text('link');
     my $prefix = $env{'form.request.prefix'};
     $prefix =~ tr{.}{_};
-    my $function_name = "LONCAPA_previous_tries_".$prefix.
-	$Apache::lonxml::curdepth.'_'.$env{'form.counter'};
+    my $function_name = 'LONCAPA_previous_tries_'.$prefix;
+    if (($env{'request.state'} eq 'construct') || ($id =~ /[._]|[^\w\s\-]/)) {
+        $function_name .= $Apache::lonxml::curdepth;
+    } else {
+        $function_name .= &js_escape($id);
+    }
+    $function_name .= '_'.$Apache::lonxml::counter;
     my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";
     return $result;
 }