--- loncom/homework/inputtags.pm	2005/04/08 19:39:32	1.166
+++ loncom/homework/inputtags.pm	2005/05/20 18:53:53	1.167
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.166 2005/04/08 19:39:32 albertel Exp $
+# $Id: inputtags.pm,v 1.167 2005/05/20 18:53:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -305,6 +305,10 @@ sub end_hiddenline {
 sub file_selector {
     my ($part,$id,$uploadedfiletypes,$which)=@_;
     if (!$uploadedfiletypes) { return ''; }
+
+    my $jspart=$part;
+    $jspart=~s/\./_/g;
+
     my $result;
     
     $result.='<tr><td>';
@@ -315,7 +319,7 @@ sub file_selector {
     if ($which eq 'uploadonly' || $which eq 'both') { 
 	$result.=&mt('Submit a file: (only one file can be uploaded)').
 	    ' <br /><input type="file" size="50" name="HWFILE'.
-	    $part.'_'.$id.'" /><br />';
+	    $jspart.'_'.$id.'" /><br />';
 	my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"},'<>&"');
 
 	if ($uploadedfile) {
@@ -334,9 +338,9 @@ sub file_selector {
 	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
     }
     if ($which eq 'portfolioonly' || $which eq 'both') { 
-	$result.='<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname=HWPORT'.$part.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
+	$result.='<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
 	    &mt('Select Portfolio Files').'</a><br />'.
-	    '<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'.
+	    '<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
 	    '<br />';
 	if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}=~/[^\s]/){
 	    my @filelist;