--- loncom/interface/portfolio.pm	2004/12/04 18:37:36	1.61
+++ loncom/interface/portfolio.pm	2004/12/06 18:13:10	1.63
@@ -361,11 +361,23 @@ sub select_files {
         # eventually, have to handle removing those not checked, but . . . 
         my @items=&Apache::loncommon::get_env_multiple('form.selectedfile');
         &Apache::lonnet::save_selected_files($ENV{'user.name'}, $ENV{'form.currentpath'}, @items);
+    } else {
+        if ($ENV{'form.currentpath'} eq '/') {
+            #empty the file for a fresh start
+            # &Apache::lonnet::clear_selected_files($ENV{'user.name'});
+        }
+    }
+    my @files = &Apache::lonnet::files_not_in_path($ENV{'user.name'}, $ENV{'form.currentpath'});
+    my $java_files = join ",", @files;
+    if ($java_files) {
+        $java_files.=',';
     }
-    my $java_script =(<<ENDSMP);
+    my $javascript =(<<ENDSMP);
         <script language='javascript'>
         function finishSelect() {
-            fileList = "";
+ENDSMP
+    $javascript .= 'fileList = "'.$java_files.'";';
+    $javascript .= (<<ENDSMP);
             for (i=0;i<document.forms.checkselect.length;i++) { 
                 if (document.forms.checkselect[i].checked){
                     fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;
@@ -373,14 +385,14 @@ sub select_files {
             }
             opener.document.forms.lonhomework.
 ENDSMP
-    $java_script .= $ENV{'form.fieldname'};
-    $java_script .= (<<ENDSMP);
+    $javascript .= $ENV{'form.fieldname'};
+    $javascript .= (<<ENDSMP);
         .value=fileList;
             self.close();
         }
         </script>
 ENDSMP
-    $r->print($java_script);
+    $r->print($javascript);
     $r->print("<h1>Select portfolio files</h1>
                 Check as many as you wish in response to the essay problem.<br />");
     $r->print("<strong>Files selected from other directories:</strong><br />");