Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	29 May 2006 15:10:52 -0000	1.40
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	20 Jun 2006 19:20:38 -0000	1.41
@@ -1747,8 +1747,8 @@
                 return $item_list
             }
 	
-	}
-
+        }
+        
         # create the conference service
         set conference_id [imsld::item_revision_new -attributes [list [list service_id $service_id] \
                                                                           [list manager_id $manager_id] \
@@ -1823,14 +1823,14 @@
             }
         }        
     }
-
+    
     # index service (not supported)
     set index_search [$service_node child all imsld:index-search]
     if { [llength $index_search] } {
         ns_log error "Index-search service not supported"
         return [list 0 "[_ imsld.lt_Index_search_service_]"]
     }
-
+    
     # monitor service (level b)
     set monitor_service [$service_node child all imsld:monitor]
     if { [llength $monitor_service] } {
@@ -1874,10 +1874,10 @@
         set imsld_item [$monitor_service child all imsld:item]
         imsld::parse::validate_multiplicity -tree $imsld_item -multiplicity 1 -element_name "imslditem(monitor service)" -equal
         set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
-                            -manifest_id $manifest_id \
-                            -item_node $imsld_item \
-                            -parent_id $parent_id \
-                            -tmp_dir $tmp_dir]
+                           -manifest_id $manifest_id \
+                           -item_node $imsld_item \
+                           -parent_id $parent_id \
+                           -tmp_dir $tmp_dir]
         
         set imsld_item_id [lindex $item_list 0]
         if { !$imsld_item_id } {
@@ -1886,7 +1886,7 @@
         }
     
         # create the monitor service
-        set send_mail_id [imsld::item_revision_new -attributes [list [list service_id $service_id] \
+        set monitor_service_id [imsld::item_revision_new -attributes [list [list service_id $service_id] \
                                                                     [list role_id $role_id] \
                                                                     [list self_p $self_p] \
                                                                     [list imsld_item_id $imsld_item_id]] \
@@ -4260,3 +4260,4 @@
     }
     return [list $manifest_id "$warnings"]
 }
+