- API Cleanup:

  Replaced inconsistent TCL namespaces project::, company:: and office::
  with im_project::, im_company:: and im_office::

www/import-im_company.tcl

@@ -286,7 +286,7 @@ foreach csv_line_fields $values_list_of_lists {
 	    if {"" == $main_office_id} {
 
 		# First create a new main_office:
-		set main_office_id [office::new \
+		set main_office_id [im_office::new \
 				    -office_name	$office_name \
 				    -office_path	$office_path \
 				    -company_id		$company_id \
@@ -296,7 +296,7 @@ foreach csv_line_fields $values_list_of_lists {
 	    }
 
 	    # Now create the company with the new main_office:
-	    set company_id [company::new \
+	    set company_id [im_company::new \
 				-company_id		$company_id \
 				-company_name		$company_name \
 				-company_path		$company_path \

www/import-im_project.tcl

@@ -388,7 +388,7 @@ foreach csv_line_fields $values_list_of_lists {
 
 	if {$ns_write_p} { ns_write "<li>Going to create project: name='$project_name', nr='$project_nr'\n" }
 	if {[catch {
-		set project_id [project::new \
+		set project_id [im_project::new \
 			    -project_name	$project_name \
 			    -project_nr		$project_nr \
 			    -project_path	$project_path \