Index: openacs-4/packages/lors-central/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-add-3.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lors-central/www/course-add-3.tcl	22 Jan 2007 08:09:25 -0000	1.3
+++ openacs-4/packages/lors-central/www/course-add-3.tcl	25 Apr 2018 19:47:47 -0000	1.4
@@ -74,7 +74,7 @@
 
     # checks whether the directory given actually exists
     if {[file exists $fs_dir]} { 
-        set all_files [list]
+        set all_files {}
         # now that exists, let's create it on the CR
 
         # gets rid of the path and leaves the name of the directory
@@ -152,7 +152,7 @@
 
         # for each directory found..
         while {[llength $dirx] != 0} {
-            set collector [list]
+            set collector {}
             foreach dir $dirx {
                 # if the dirx loop is 0...
                 set base_parent_id [lindex $dir 0]
@@ -381,7 +381,7 @@
         if { ![empty_string_p $organizations] } {
 
 	    # for multiple organizations
-            set add [list]
+            set add {}
             foreach organization [$organizations child all organization] {
 
                 set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
@@ -430,15 +430,15 @@
 
         }
 
-        set l_files [list]
+        set l_files {}
 
         set resources [$manifest child all resources]
 
         set resourcex [$resources child all resource]
 
         if { ![empty_string_p $resourcex] } {
 
-            set res_list [list]
+            set res_list {}
             foreach resource $resourcex {
                 set res_identifier [lors::imsmd::getResource -node $resource -att identifier]
                 set res_type [lors::imsmd::getResource -node $resource -att type]