Diff for /loncom/interface/domainprefs.pm between versions 1.224 and 1.227

version 1.224, 2014/02/12 20:37:42 version 1.227, 2014/02/28 19:20:05
Line 275  sub handler { Line 275  sub handler {
                                 {col1 => 'Setting',                                  {col1 => 'Setting',
                                  col2 => 'Affiliation'},                                   col2 => 'Affiliation'},
                                 {col1 => 'User population',                                  {col1 => 'User population',
                                  col2 => 'Updateable user data'}],                                   col2 => 'Updatable user data'}],
                   },                    },
         'autocreate' =>           'autocreate' => 
                   { text => 'Auto-course creation settings',                    { text => 'Auto-course creation settings',
Line 319  sub handler { Line 319  sub handler {
                   { text => 'User modification',                    { text => 'User modification',
                     help => 'Domain_Configuration_User_Modification',                      help => 'Domain_Configuration_User_Modification',
                     header => [{col1 => 'Target user has role',                      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',                                 {col1 => 'Target user has role',
                                 col2 => 'User information updateable in course context'}],                                  col2 => 'User information updatable in course context'}],
                   },                    },
         'scantron' =>          'scantron' =>
                   { text => 'Bubblesheet format file',                    { text => 'Bubblesheet format file',
Line 4961  sub insttypes_row { Line 4961  sub insttypes_row {
     if ($rownum ne '') {       if ($rownum ne '') { 
         $css_class = ($rownum%2? ' class="LC_odd_row"':'');          $css_class = ($rownum%2? ' class="LC_odd_row"':'');
     }      }
     print STDERR "rownum ||$rownum|| an css_class ||".$css_class."||\n";  
     my $output = '<tr'.$css_class.'>'.      my $output = '<tr'.$css_class.'>'.
                  '<td>'.$lt{$context}.$showdom.                   '<td>'.$lt{$context}.$showdom.
                  '</td><td class="'.$class.'" colspan="2"><table>';                   '</td><td class="'.$class.'" colspan="2"><table>';
Line 7882  sub modify_selfcreation { Line 7881  sub modify_selfcreation {
                 }                  }
                 foreach my $field (keys(%{$cancreate{$item}})) {                  foreach my $field (keys(%{$cancreate{$item}})) {
                     if (!$curr_usercreation{'cancreate'}{$item}{$field}) {                      if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
                         print STDERR "field $field in cancreate but not in curr\n";  
                         if (!grep(/^$item$/,@{$changes{'cancreate'}})) {                          if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
                             push(@{$changes{'cancreate'}},$item);                              push(@{$changes{'cancreate'}},$item);
                         }                          }
Line 8235  sub modify_usermodification { Line 8233  sub modify_usermodification {
             }              }
         }          }
     }      }
 # FIXME need to ensure selfcreate stuff is preserved   
     my %usermodification_hash =  (      my %usermodification_hash =  (
                                    usermodification => \%modifyhash,                                     usermodification => \%modifyhash,
                                  );                                   );

Removed from v.1.224  
changed lines
  Added in v.1.227


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>