Index: openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.tcl	26 Feb 2008 16:53:44 -0000	1.2
+++ openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.tcl	26 Feb 2008 16:57:16 -0000	1.3
@@ -382,39 +382,17 @@
 		     -name "Unidad N" \
 		     -user_id $user_id \
 		     -description $description]
-    
-    category::add -tree_id $tree_id \
-	-parent_id $unit_id \
-	-locale $language \
-	-name "Introduccion" -description $description
 
-    category::add -tree_id $tree_id \
-        -parent_id $unit_id \
-        -locale $language \
-        -name "Contenido" \
-	-user_id $user_id \
-	-description $description
-
-    category::add -tree_id $tree_id \
-        -parent_id $unit_id \
-        -locale $language \
-        -name "Actividades" \
-	-user_id $user_id \
-	-description $description
+    foreach cat_name {Introduccion Contenido Actividades Glosario Anexo} {
     
-    category::add -tree_id $tree_id \
-        -parent_id $unit_id \
-        -locale $language \
-        -name "Glosario" \
-	-user_id $user_id \
-	-description $description
-    
-    category::add -tree_id $tree_id \
-        -parent_id $unit_id \
-        -locale $language \
-        -name "Anexo" \
-	 -user_id $user_id \
-	-description $description
+	category::add -tree_id $tree_id \
+	    -parent_id $unit_id \
+	    -locale $language \
+	    -name $cat_name \
+	    -user_id $user_id \
+	    -description $description
+    }
+
     return $unit_id
 }