Index: openacs-4/packages/lorsm/www/admin/course-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/admin/course-add.tcl	31 Dec 2006 00:36:04 -0000	1.1
+++ openacs-4/packages/lorsm/www/admin/course-add.tcl	17 Nov 2008 13:36:44 -0000	1.2
@@ -13,33 +13,34 @@
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 
-if { ![info exists man_id] } { 
+if { ![info exists man_id] } {
    set man_id ""
 }
 
 # Gets file-storage root folder_id
 # eventually, we should provide an option so it can be imported in
 # different subfolders
 set fs_package_id [site_node_apm_integration::get_child_package_id \
-		       -package_id [dotlrn_community::get_package_id $community_id] \
-		       -package_key "file-storage"\
-		      ]
+               -package_id [dotlrn_community::get_package_id $community_id] \
+               -package_key "file-storage"]
 
 #set fs_package_id [apm_package_id_from_key "file-storage"] -- if used
-# with OpenACS 
+# with OpenACS
 
-# Gets root folder and root folder name 
+# Gets root folder and root folder name
 set folder_id [fs::get_root_folder -package_id $fs_package_id]
 set folder_name [fs::get_object_name -object_id $folder_id]
 
 # Gets whether the file-storage instance is a indb_p or file system
 # (StoreFilesInDatabaseP) one not that we use it now -since we are
 # currently putting everything on the file system, but eventually we
-# will have the option to put it on the db. 
+# will have the option to put it on the db.
 
-set indb_p [parameter::get -parameter "StoreFilesInDatabaseP" -package_id $fs_package_id]
+set indb_p [parameter::get \
+                -parameter "StoreFilesInDatabaseP" \
+                -package_id $fs_package_id]
 
-# Gets URL for file-storage package 
+# Gets URL for file-storage package
 
 set fs_url [apm_package_url_from_id $fs_package_id]
 
@@ -52,34 +53,48 @@
 # set context
 set context [list "[_ lorsm.lt_Upload_IMS_Content_Pa]"]
 
-template::form create course_upload -action course-add-2 -html {enctype multipart/form-data}
+template::form create course_upload \
+    -action course-add-2 \
+    -html {enctype multipart/form-data}
 
-template::element create course_upload course_id  \
-  -label "[_ lorsm.course_id]" -datatype integer -widget hidden
+template::element create course_upload course_id \
+    -label "[_ lorsm.course_id]" \
+    -datatype integer \
+    -widget hidden
 
-template::element create course_upload indb_p  \
-  -label "[_ lorsm.indb_p]" -datatype integer -widget hidden
+template::element create course_upload indb_p \
+    -label "[_ lorsm.indb_p]" \
+    -datatype integer \
+    -widget hidden
 
-template::element create course_upload fs_package_id  \
-  -label "[_ lorsm.fs_package_id]" -datatype integer -widget hidden
+template::element create course_upload fs_package_id \
+    -label "[_ lorsm.fs_package_id]" \
+    -datatype integer \
+    -widget hidden
 
-template::element create course_upload folder_id  \
-  -label "[_ lorsm.folder_id]" -datatype integer -widget hidden
+template::element create course_upload folder_id \
+    -label "[_ lorsm.folder_id]" \
+    -datatype integer \
+    -widget hidden
 
-template::element create course_upload upload_file  \
-  -label "[_ lorsm.lt_Choose_the_course_zip]" -help_text "[_ lorsm.lt_Use_the_Browse_button]" -datatype text -widget file
+template::element create course_upload upload_file \
+    -label "[_ lorsm.lt_Choose_the_course_zip]" \
+    -help_text "[_ lorsm.lt_Use_the_Browse_button]" \
+    -datatype text \
+    -widget file
 
 # To support course versions
-template::element create course_upload man_id  \
-  -datatype integer -widget hidden
+template::element create course_upload man_id \
+    -datatype integer \
+    -widget hidden
 
 template::element set_properties course_upload course_id -value $course_id
 template::element set_properties course_upload folder_id -value $folder_id
 template::element set_properties course_upload indb_p -value $indb_p
-template::element set_properties course_upload fs_package_id -value $fs_package_id
+template::element set_properties course_upload fs_package_id \
+    -value $fs_package_id
 template::element set_properties course_upload man_id -value $man_id
 
-
 ad_return_template