--- loncom/interface/domainprefs.pm	2014/02/12 20:37:42	1.224
+++ loncom/interface/domainprefs.pm	2014/02/28 19:20:05	1.227
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.224 2014/02/12 20:37:42 raeburn Exp $
+# $Id: domainprefs.pm,v 1.227 2014/02/28 19:20:05 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -275,7 +275,7 @@ sub handler {
                                 {col1 => 'Setting',
                                  col2 => 'Affiliation'},
                                 {col1 => 'User population',
-                                 col2 => 'Updateable user data'}],
+                                 col2 => 'Updatable user data'}],
                   },
         'autocreate' => 
                   { text => 'Auto-course creation settings',
@@ -319,9 +319,9 @@ sub handler {
                   { text => 'User modification',
                     help => 'Domain_Configuration_User_Modification',
                     header => [{col1 => 'Target user has role',
-                                col2 => 'User information updateable in author context'},
+                                col2 => 'User information updatable in author context'},
                                {col1 => 'Target user has role',
-                                col2 => 'User information updateable in course context'}],
+                                col2 => 'User information updatable in course context'}],
                   },
         'scantron' =>
                   { text => 'Bubblesheet format file',
@@ -4961,7 +4961,6 @@ sub insttypes_row {
     if ($rownum ne '') { 
         $css_class = ($rownum%2? ' class="LC_odd_row"':'');
     }
-    print STDERR "rownum ||$rownum|| an css_class ||".$css_class."||\n";
     my $output = '<tr'.$css_class.'>'.
                  '<td>'.$lt{$context}.$showdom.
                  '</td><td class="'.$class.'" colspan="2"><table>';
@@ -7882,7 +7881,6 @@ sub modify_selfcreation {
                 }
                 foreach my $field (keys(%{$cancreate{$item}})) {
                     if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
-                        print STDERR "field $field in cancreate but not in curr\n";
                         if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
                             push(@{$changes{'cancreate'}},$item);
                         }
@@ -8235,7 +8233,6 @@ sub modify_usermodification {
             }
         }
     }
-# FIXME need to ensure selfcreate stuff is preserved 
     my %usermodification_hash =  (
                                    usermodification => \%modifyhash,
                                  );