Index: openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl	18 Mar 2004 00:51:13 -0000	1.7
+++ openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl	18 Mar 2004 18:14:14 -0000	1.8
@@ -21,7 +21,7 @@
         }
     }
 
-    source datasource-procs.tcl
+    apm_source [acs_root_dir]/packages/portal/tcl/datasource-procs.tcl
 
     # Now define some default layouts.
 
@@ -82,23 +82,23 @@
         {name default}
         {description "Default OpenACS Theme"}
         {filename themes/standard-theme}
-        {resource_dir themes/standard-theme}
+        {resource_dir /resources/portal/themes/standard-theme}
     }
     package_instantiate_object -var_list $var_list portal_theme
 
     set var_list {
         {name blank}
         {description "No graphics"}
         {filename themes/nada-theme}
-        {resource_dir themes/nada-theme}
+        {resource_dir /resources/portal/themes/nada-theme}
     }
     package_instantiate_object -var_list $var_list portal_theme
 
     set var_list {
         {name deco}
         {description "An Art Deco Theme"}
         {filename themes/deco-theme}
-        {resource_dir themes/deco-theme}
+        {resource_dir /resources/portal/themes/deco-theme}
     }
     package_instantiate_object -var_list $var_list portal_theme