Index: openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -10,251 +10,219 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  "[_ lorsm.Educational_MD]"]
+set context [list \
+                [list   [export_vars -base "." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"] \
+                        "[_ lorsm.Educational_MD]"]
 set title "[_ lorsm.Educational_MD]"
 
 # Educational Interactivity Type
 template::list::create \
     -name d_ed_intt \
     -multirow d_ed_intt \
     -no_data "[_ lorsm.lt_No_Interactivity_Type]" \
-    -actions [list "[_ lorsm.lt_Add_Interactivity_Typ]" [export_vars -base educationalmd/educational_intt {ims_md_id}] "[_ lorsm.lt_Add_another_Interacti]"] \
+    -actions [list  "[_ lorsm.lt_Add_Interactivity_Typ]" \
+                    [export_vars -base educationalmd/educational_intt {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Interacti]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        intt {
-            label ""
-        }
+        intt { label "" }
     }
 
 db_multirow d_ed_intt select_ed_intt {
-    select 
-    '[' || int_type_s || '] ' || int_type_v as intt 
-    from 
-           ims_md_educational
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || int_type_s || '] ' || int_type_v as intt
+    from ims_md_educational
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Learning Resource Type
 template::list::create \
     -name d_ed_lrt \
     -multirow d_ed_lrt \
     -no_data "[_ lorsm.lt_No_Learning_Resource_]" \
-    -actions [list "[_ lorsm.lt_Add_Learning_Resource]" [export_vars -base educationalmd/educational_lrt {ims_md_id}] "[_ lorsm.lt_Add_another_Learning_]"] \
+    -actions [list  "[_ lorsm.lt_Add_Learning_Resource]" \
+                    [export_vars -base educationalmd/educational_lrt {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Learning_]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        lrt {
-            label ""
-        }
+        lrt { label "" }
     }
 
 db_multirow d_ed_lrt select_ed_lrt {
-    select 
-    '[' || lrt_s || '] ' || lrt_v as lrt 
-    from 
-           ims_md_educational_lrt
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || lrt_s || '] ' || lrt_v as lrt
+    from ims_md_educational_lrt
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Interactivity Level
 template::list::create \
     -name d_ed_intl \
     -multirow d_ed_intl \
     -no_data "[_ lorsm.lt_No_Interactivity_Leve]" \
-    -actions [list "[_ lorsm.lt_Add_Interactivity_Lev]" [export_vars -base educationalmd/educational_intl {ims_md_id}] "[_ lorsm.lt_Add_another_Interacti_1]"] \
+    -actions [list  "[_ lorsm.lt_Add_Interactivity_Lev]" \
+                    [export_vars -base educationalmd/educational_intl {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Interacti_1]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        intl {
-            label ""
-        }
+        intl { label "" }
     }
 
 db_multirow d_ed_intl select_ed_intl {
-    select 
-    '[' || int_level_s || '] ' || int_level_v as intl 
-    from 
-           ims_md_educational
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || int_level_s || '] ' || int_level_v as intl
+    from ims_md_educational
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Semantic Density
 template::list::create \
     -name d_ed_semd \
     -multirow d_ed_semd \
     -no_data "[_ lorsm.lt_No_Semantic_Density_A]" \
-    -actions [list "[_ lorsm.Add_Semantic_Density]" [export_vars -base educationalmd/educational_semd {ims_md_id}] "[_ lorsm.lt_Add_another_Semantic_]"] \
+    -actions [list  "[_ lorsm.Add_Semantic_Density]" \
+                    [export_vars -base educationalmd/educational_semd {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Semantic_]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        semd {
-            label ""
-        }
+        semd { label "" }
     }
 
 db_multirow d_ed_semd select_ed_semd {
-    select 
-    '[' || sem_density_s || '] ' || sem_density_v as semd
-    from 
-           ims_md_educational
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || sem_density_s || '] ' || sem_density_v as semd
+    from ims_md_educational
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Intended End User Role
 template::list::create \
     -name d_ed_ieur \
     -multirow d_ed_ieur \
     -no_data "[_ lorsm.lt_No_Intended_End_User_]" \
-    -actions [list "[_ lorsm.lt_Add_Intended_End_User]" [export_vars -base educationalmd/educational_ieur {ims_md_id}] "[_ lorsm.lt_Add_another_Intended_]"] \
+    -actions [list  "[_ lorsm.lt_Add_Intended_End_User]" \
+                    [export_vars -base educationalmd/educational_ieur {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Intended_]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        ieur {
-            label ""
-        }
+        ieur { label "" }
     }
 
 db_multirow d_ed_ieur select_ed_ieur {
-    select 
-    '[' || ieur_s || '] ' || ieur_v as ieur 
-    from 
-           ims_md_educational_ieur
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || ieur_s || '] ' || ieur_v as ieur
+    from ims_md_educational_ieur
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Context
 template::list::create \
     -name d_ed_cont \
     -multirow d_ed_cont \
     -no_data "[_ lorsm.No_Context_Available]" \
-    -actions [list "[_ lorsm.Add_Context]" [export_vars -base educationalmd/educational_cont {ims_md_id}] "[_ lorsm.Add_another_Context]"] \
+    -actions [list  "[_ lorsm.Add_Context]" \
+                    [export_vars -base educationalmd/educational_cont {ims_md_id}] \
+                    "[_ lorsm.Add_another_Context]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        context {
-            label ""
-        }
+        context { label "" }
     }
 
 db_multirow d_ed_cont select_ed_cont {
-    select 
-    '[' || context_s || '] ' || context_v as context 
-    from 
-           ims_md_educational_context
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || context_s || '] ' || context_v as context
+    from ims_md_educational_context
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Typical Age Range
 template::list::create \
     -name d_ed_tar \
     -multirow d_ed_tar \
     -no_data "[_ lorsm.lt_No_Typical_Age_Range_]" \
-    -actions [list "[_ lorsm.lt_Add_Typical_Age_Range]" [export_vars -base educationalmd/educational_tar {ims_md_id}] "[_ lorsm.lt_Add_another_Typical_A]"] \
+    -actions [list  "[_ lorsm.lt_Add_Typical_Age_Range]" \
+                    [export_vars -base educationalmd/educational_tar {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Typical_A]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        tar {
-            label ""
-        }
+        tar { label "" }
     }
 
 db_multirow d_ed_tar select_ed_tar {
-    select 
-    '[' || tar_l || '] ' || tar_s as tar 
-    from 
-           ims_md_educational_tar
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || tar_l || '] ' || tar_s as tar
+    from ims_md_educational_tar
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Difficulty
 template::list::create \
     -name d_ed_dif \
     -multirow d_ed_dif \
     -no_data "[_ lorsm.lt_No_Difficulty_Availab]" \
-    -actions [list "[_ lorsm.Add_Difficulty_Type]" [export_vars -base educationalmd/educational_dif {ims_md_id}] "[_ lorsm.lt_Add_another_Difficult]"] \
+    -actions [list  "[_ lorsm.Add_Difficulty_Type]" \
+                    [export_vars -base educationalmd/educational_dif {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Difficult]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        diff {
-            label ""
-        }
+        diff { label "" }
     }
 
 db_multirow d_ed_dif select_ed_dif {
-    select 
-    '[' || difficulty_s || '] ' || difficulty_v as diff
-    from 
-           ims_md_educational
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || difficulty_s || '] ' || difficulty_v as diff
+    from ims_md_educational
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Typical Learning Time
 template::list::create \
     -name d_ed_tlt \
     -multirow d_ed_tlt \
     -no_data "[_ lorsm.lt_No_Typical_Learning_T]" \
-    -actions [list "[_ lorsm.lt_Add_Typical_Learning_]" [export_vars -base educationalmd/educational_tlt {ims_md_id}] "[_ lorsm.lt_Add_another_Typical_L]"] \
+    -actions [list  "[_ lorsm.lt_Add_Typical_Learning_]" \
+                    [export_vars -base educationalmd/educational_tlt {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Typical_L]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        tlt {
-            label ""
-        }
-        tlt_ls {
-            label ""
-        }
+        tlt { label "" }
+        tlt_ls { label "" }
     }
 
 db_multirow d_ed_tlt select_ed_tlt {
-    select 
-    type_lrn_time as tlt,
-    '[' || type_lrn_time_l || '] ' || type_lrn_time_s as tlt_ls
-    from 
-           ims_md_educational
-    where
-           ims_md_id = :ims_md_id
-} 
+    select type_lrn_time as tlt,
+        '[' || type_lrn_time_l || '] ' || type_lrn_time_s as tlt_ls
+    from ims_md_educational
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Description
 template::list::create \
     -name d_ed_desc \
     -multirow d_ed_desc \
     -no_data "[_ lorsm.lt_No_Description_Availa]" \
-    -actions [list "[_ lorsm.Add_Description]" [export_vars -base educationalmd/educational_desc {ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+    -actions [list  "[_ lorsm.Add_Description]" \
+                    [export_vars -base educationalmd/educational_desc {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Descripti]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        desc {
-            label ""
-        }
+        desc { label "" }
     }
 
 db_multirow d_ed_desc select_ed_desc {
-    select 
-    '[' || descrip_l || '] ' || descrip_s as desc
-    from 
-           ims_md_educational_descrip
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || descrip_l || '] ' || descrip_s as desc
+    from ims_md_educational_descrip
+    where ims_md_id = :ims_md_id
+}
 
 # Educational Language
 template::list::create \
     -name d_ed_lang \
     -multirow d_ed_lang \
     -no_data "[_ lorsm.lt_No_Language_Available]" \
-    -actions [list "[_ lorsm.Add_Language]" [export_vars -base educationalmd/educational_lang {ims_md_id}] "[_ lorsm.Add_another_Language]"] \
+    -actions [list  "[_ lorsm.Add_Language]" \
+                    [export_vars -base educationalmd/educational_lang {ims_md_id}] \
+                    "[_ lorsm.Add_another_Language]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        language {
-            label ""
-        }
+        language { label "" }
     }
 
 db_multirow d_ed_lang select_ed_lang {
-    select 
-           language
-    from 
-           ims_md_educational_lang
-    where
-           ims_md_id = :ims_md_id
+    select language
+    from ims_md_educational_lang
+    where ims_md_id = :ims_md_id
 }