[BACK]Return to domainprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

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

version 1.160.6.35, 2014/03/03 18:09:24 version 1.224, 2014/02/12 20:37:42
Line 211  sub handler { Line 211  sub handler {
                 'quotas','autoenroll','autoupdate','autocreate',                  'quotas','autoenroll','autoupdate','autocreate',
                 'directorysrch','usercreation','usermodification',                  'directorysrch','usercreation','usermodification',
                 'contacts','defaults','scantron','coursecategories',                  'contacts','defaults','scantron','coursecategories',
                 'serverstatuses','requestcourses','coursedefaults',                  'serverstatuses','requestcourses','helpsettings',
                 'usersessions','loadbalancing','requestauthor'],$dom);                  'coursedefaults','usersessions','loadbalancing',
                   'requestauthor'],$dom);
     my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',      my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
                        'autoupdate','autocreate','directorysrch','contacts',                         'autoupdate','autocreate','directorysrch','contacts',
                        'usercreation','selfcreation','usermodification','scantron',                         'usercreation','selfcreation','usermodification','scantron',
                        'requestcourses','requestauthor','coursecategories',                         'requestcourses','requestauthor','coursecategories',
                        'serverstatuses','coursedefaults','usersessions');                         'serverstatuses','helpsettings',
                          'coursedefaults','usersessions');
     my %existing;      my %existing;
     if (ref($domconfig{'loadbalancing'}) eq 'HASH') {      if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
         %existing = %{$domconfig{'loadbalancing'}};          %existing = %{$domconfig{'loadbalancing'}};
Line 273  sub handler { Line 275  sub handler {
                                 {col1 => 'Setting',                                  {col1 => 'Setting',
                                  col2 => 'Affiliation'},                                   col2 => 'Affiliation'},
                                 {col1 => 'User population',                                  {col1 => 'User population',
                                  col2 => 'Updatable user data'}],                                   col2 => 'Updateable user data'}],
                   },                    },
         'autocreate' =>           'autocreate' => 
                   { text => 'Auto-course creation settings',                    { text => 'Auto-course creation settings',
Line 317  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 updatable in author context'},                                  col2 => 'User information updateable in author context'},
                                {col1 => 'Target user has role',                                 {col1 => 'Target user has role',
                                 col2 => 'User information updatable in course context'}],                                  col2 => 'User information updateable in course context'}],
                   },                    },
         'scantron' =>          'scantron' =>
                   { text => 'Bubblesheet format file',                    { text => 'Bubblesheet format file',
Line 363  sub handler { Line 365  sub handler {
                               col3 => 'Specific IPs',                                col3 => 'Specific IPs',
                             }],                              }],
                  },                   },
         'coursedefaults' =>          'helpsettings' =>
                    {text   => 'Help page settings',
                     help   => 'Domain_Configuration_Help_Settings',
                     header => [{col1 => 'Help Settings (logged-in users)',
                                 col2 => 'Value'}],
                    },
           'coursedefaults' => 
                  {text => 'Course/Community defaults',                   {text => 'Course/Community defaults',
                   help => 'Domain_Configuration_Course_Defaults',                    help => 'Domain_Configuration_Course_Defaults',
                   header => [{col1 => 'Defaults which can be overridden for each course by a DC',                    header => [{col1 => 'Defaults which can be overridden in each course by a CC',
                                 col2 => 'Value',},
                                {col1 => 'Defaults which can be overridden for each course by a DC',
                               col2 => 'Value',},],                                col2 => 'Value',},],
                  },                   },
           'privacy' => 
                    {text   => 'User Privacy',
                     help   => 'Domain_Configuration_User_Privacy',
                     header => [{col1 => 'Setting',
                                 col2 => 'Value',}],
                    },
         'usersessions' =>          'usersessions' =>
                  {text  => 'User session hosting/offloading',                   {text  => 'User session hosting/offloading',
                   help  => 'Domain_Configuration_User_Sessions',                    help  => 'Domain_Configuration_User_Sessions',
Line 547  sub process_changes { Line 563  sub process_changes {
         $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);          $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
     } elsif ($action eq 'requestauthor') {      } elsif ($action eq 'requestauthor') {
         $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);          $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
       } elsif ($action eq 'helpsettings') {
           $output = &modify_helpsettings($r,$dom,$confname,%domconfig);
     } elsif ($action eq 'coursedefaults') {      } elsif ($action eq 'coursedefaults') {
         $output = &modify_coursedefaults($dom,$lastactref,%domconfig);          $output = &modify_coursedefaults($dom,$lastactref,%domconfig);
     } elsif ($action eq 'usersessions') {      } elsif ($action eq 'usersessions') {
Line 620  sub print_config_box { Line 638  sub print_config_box {
             $output .= &print_usersessions('top',$dom,$settings,\$rowtotal);               $output .= &print_usersessions('top',$dom,$settings,\$rowtotal); 
         } elsif ($action eq 'rolecolors') {          } elsif ($action eq 'rolecolors') {
             $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);              $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
           } elsif ($action eq 'coursedefaults') {
               $output .= &print_coursedefaults('top',$dom,$settings,\$rowtotal);
         }          }
         $output .= '          $output .= '
            </table>             </table>
Line 723  sub print_config_box { Line 743  sub print_config_box {
               <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>      </tr>'.                <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>      </tr>'.
                        &print_usersessions('bottom',$dom,$settings,\$rowtotal);                         &print_usersessions('bottom',$dom,$settings,\$rowtotal);
             $rowtotal ++;              $rowtotal ++;
           } elsif ($action eq 'coursedefaults') {
               $output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'rolecolors') {          } elsif ($action eq 'rolecolors') {
             $output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'              $output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'
            </table>             </table>
Line 819  sub print_config_box { Line 841  sub print_config_box {
             $output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);              $output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);
         } elsif ($action eq 'loadbalancing') {          } elsif ($action eq 'loadbalancing') {
             $output .= &print_loadbalancing($dom,$settings,\$rowtotal);              $output .= &print_loadbalancing($dom,$settings,\$rowtotal);
         } elsif ($action eq 'coursedefaults') {  
             $output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);  
         }          }
     }      }
     $output .= '      $output .= '
Line 3776  sub print_selfcreation { Line 3796  sub print_selfcreation {
         }          }
     }      }
     my %radiohash;      my %radiohash;
       my $rownum = 0;
     my $numinrow = 4;      my $numinrow = 4;
     map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;      map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;
     if ($position eq 'top') {      if ($position eq 'top') {
Line 3788  sub print_selfcreation { Line 3809  sub print_selfcreation {
                                'cancreate_login' => 'off',                                 'cancreate_login' => 'off',
                                'cancreate_sso'   => 'off',                                 'cancreate_sso'   => 'off',
                              );                               );
         my ($onclick,$itemcount);          my $itemcount = 1;
           my $onclick;
         ($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,          ($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,
                                                      \%choices,$itemcount,$onclick);                                                       \%choices,$itemcount,$onclick);
         $$rowtotal += $itemcount;  
   
         my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);          my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
   
         if (ref($usertypes) eq 'HASH') {          if (ref($usertypes) eq 'HASH') {
             if (keys(%{$usertypes}) > 0) {              if (keys(%{$usertypes}) > 0) {
                 $datatable .= &insttypes_row($createsettings,$types,$usertypes,                  $datatable .= &insttypes_row($createsettings,$types,$usertypes,
                                              $dom,$numinrow,$othertitle,                                               $dom,$numinrow,$othertitle,
                                              'statustocreate',$$rowtotal);                                               'statustocreate',$rownum);
                   $rownum ++;
                 $$rowtotal ++;                  $$rowtotal ++;
             }              }
         }          }
Line 3811  sub print_selfcreation { Line 3832  sub print_selfcreation {
             push(@{$types},'default');              push(@{$types},'default');
             $usertypes->{'default'} = $othertitle;              $usertypes->{'default'} = $othertitle;
             foreach my $status (@{$types}) {              foreach my $status (@{$types}) {
                   $rownum ++;
                 $datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},                  $datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},
                                                        $numinrow,$$rowtotal,$usertypes);                                                         $numinrow,$rownum,$usertypes);
                 $$rowtotal ++;                  $$rowtotal ++;
             }              }
         }          }
     } else {      } else {
         my $css_class = $$rowtotal%2?' class="LC_odd_row"':'';          my $css_class = $rownum%2?' class="LC_odd_row"':'';
         my %choices =          my %choices =
             &Apache::lonlocal::texthash(              &Apache::lonlocal::texthash(
                                           email         => 'Approved automatically',                                            email         => 'Approved automatically',
Line 3849  sub print_selfcreation { Line 3871  sub print_selfcreation {
                           $choices{$option}.'</label>&nbsp;';                            $choices{$option}.'</label>&nbsp;';
         }          }
         $$rowtotal ++;          $$rowtotal ++;
           $rownum ++;
         $datatable .= '</span></td></tr>'.          $datatable .= '</span></td></tr>'.
                       &print_requestmail($dom,'selfcreation',$createsettings,$rowtotal);                        &print_requestmail($dom,'selfcreation',$createsettings,$rowtotal);
         $$rowtotal ++;          $rownum ++;
         my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();          my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
         $numinrow = 1;          $numinrow = 2;
         my ($othertitle,$usertypes,$types) =  &Apache::loncommon::sorted_inst_types($dom);          $datatable .= &modifiable_userdata_row('cancreate','emailusername',$settings,
         $usertypes->{'default'} = $othertitle;                                                 $numinrow,$rownum,undef,$infofields,$infotitles);
         if (ref($types) eq 'ARRAY') {          $$rowtotal ++;
             push(@{$types},'default');          $rownum ++;
             $usertypes->{'default'} = $othertitle;  
             foreach my $status (@{$types}) {  
                 $datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings,  
                                                        $numinrow,$$rowtotal,$usertypes,$infofields,$infotitles);  
                 $$rowtotal ++;  
             }  
         }  
         my ($emailrules,$emailruleorder) =          my ($emailrules,$emailruleorder) =
             &Apache::lonnet::inst_userrules($dom,'email');              &Apache::lonnet::inst_userrules($dom,'email');
         if (ref($emailrules) eq 'HASH') {          if (ref($emailrules) eq 'HASH') {
             if (keys(%{$emailrules}) > 0) {              if (keys(%{$emailrules}) > 0) {
                 $datatable .= &user_formats_row('email',$settings,$emailrules,                  $datatable .= &user_formats_row('email',$settings,$emailrules,
                                                 $emailruleorder,$numinrow,$$rowtotal);                                                  $emailruleorder,$numinrow,$rownum);
                   $rownum ++;
                 $$rowtotal ++;                  $$rowtotal ++;
             }              }
         }          }
         $datatable .= &captcha_choice('cancreate',$createsettings,$$rowtotal);          $datatable .= &captcha_choice('cancreate',$createsettings,$rownum);
     }      }
     return $datatable;      return $datatable;
 }  }
Line 4840  sub build_category_rows { Line 4857  sub build_category_rows {
 }  }
   
 sub modifiable_userdata_row {  sub modifiable_userdata_row {
     my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_;      my ($context,$role,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_;
     my ($role,$rolename,$statustype);      my $rolename;
     $role = $item;  
     if ($context eq 'cancreate') {      if ($context eq 'cancreate') {
         if ($item =~ /^emailusername_(.+)$/) {          if ($role eq 'emailusername') {
             $statustype = $1;              $rolename = &mt('Data user provides');
             $role = 'emailusername';  
             if (ref($usertypes) eq 'HASH') {  
                 if ($usertypes->{$statustype}) {  
                     $rolename = &mt('Data provided by [_1]',$usertypes->{$statustype});  
                 } else {  
                     $rolename = &mt('Data provided by user');  
                 }  
             }  
         }          }
     } elsif ($context eq 'selfcreate') {      } elsif ($context eq 'selfcreate') {
         if (ref($usertypes) eq 'HASH') {          if (ref($usertypes) eq 'HASH') {
Line 4890  sub modifiable_userdata_row { Line 4898  sub modifiable_userdata_row {
     if (ref($settings) eq 'HASH') {      if (ref($settings) eq 'HASH') {
         if (ref($settings->{$context}) eq 'HASH') {          if (ref($settings->{$context}) eq 'HASH') {
             if (ref($settings->{$context}->{$role}) eq 'HASH') {              if (ref($settings->{$context}->{$role}) eq 'HASH') {
                 my $hashref = $settings->{$context}->{$role};                  foreach my $field (@fields) {
                 if ($role eq 'emailusername') {                      if ($settings->{$context}->{$role}->{$field}) {
                     if ($statustype) {                          $checks{$field} = ' checked="checked" ';
                         if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') {  
                             $hashref = $settings->{$context}->{$role}->{$statustype};  
                             if (ref($hashref) eq 'HASH') {  
                                 foreach my $field (@fields) {  
                                     if ($hashref->{$field}) {  
                                         $checks{$field} = $hashref->{$field};  
                                     }  
                                 }  
                             }  
                         }  
                     }  
                 } else {  
                     if (ref($hashref) eq 'HASH') {  
                         foreach my $field (@fields) {  
                             if ($hashref->{$field}) {  
                                 $checks{$field} = ' checked="checked" ';  
                             }  
                         }  
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
   
     for (my $i=0; $i<@fields; $i++) {      for (my $i=0; $i<@fields; $i++) {
         my $rem = $i%($numinrow);          my $rem = $i%($numinrow);
         if ($rem == 0) {          if ($rem == 0) {
Line 4926  sub modifiable_userdata_row { Line 4915  sub modifiable_userdata_row {
             $output .= '<tr>';              $output .= '<tr>';
         }          }
         my $check = ' ';          my $check = ' ';
         unless ($role eq 'emailusername') {          if (exists($checks{$fields[$i]})) {
             if (exists($checks{$fields[$i]})) {              $check = $checks{$fields[$i]}
                 $check = $checks{$fields[$i]}          } else {
             } else {              if ($role eq 'st') {
                 if ($role eq 'st') {                  if (ref($settings) ne 'HASH') {
                     if (ref($settings) ne 'HASH') {                      $check = ' checked="checked" '; 
                         $check = ' checked="checked" ';  
                     }  
                 }                  }
             }              }
         }          }
         $output .= '<td class="LC_left_item">'.          $output .= '<td class="LC_left_item">'.
                    '<span class="LC_nobreak">';                     '<span class="LC_nobreak"><label>'.
         if ($role eq 'emailusername') {                     '<input type="checkbox" name="canmodify_'.$role.'" '.
             unless ($checks{$fields[$i]} =~ /^(required|optional)$/) {                     'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}.
                 $checks{$fields[$i]} = 'omit';                     '</label></span></td>';
             }  
             foreach my $option ('required','optional','omit') {  
                 my $checked='';  
                 if ($checks{$fields[$i]} eq $option) {  
                     $checked='checked="checked" ';  
                 }  
                 $output .= '<label>'.  
                            '<input type="radio" name="canmodify_'.$item.'_'.$fields[$i].'" value="'.$option.'" '.$checked.'/>'.  
                            &mt($option).'</label>'.('&nbsp;' x2);  
             }  
             $output .= '<i>'.$fieldtitles{$fields[$i]}.'</i>';  
         } else {  
             $output .= '<label>'.  
                        '<input type="checkbox" name="canmodify_'.$role.'" '.  
                        'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}.  
                        '</label>';  
         }  
         $output .= '</span></td>';  
         $rem = @fields%($numinrow);          $rem = @fields%($numinrow);
     }      }
     my $colsleft = $numinrow - $rem;      my $colsleft = $numinrow - $rem;
Line 4992  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 7692  sub modify_selfcreation { Line 7662  sub modify_selfcreation {
     my ($dom,%domconfig) = @_;      my ($dom,%domconfig) = @_;
     my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);      my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);
     my (%save_usercreate,%save_usermodify);      my (%save_usercreate,%save_usermodify);
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);  
     if (ref($types) eq 'ARRAY') {  
         $usertypes->{'default'} = $othertitle;  
         push(@{$types},'default');  
     }  
 #  #
 # Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.  # Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.
 #  #
Line 7748  sub modify_selfcreation { Line 7713  sub modify_selfcreation {
 # Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts  # Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts
 # is permitted.  # is permitted.
 #  #
     foreach my $item ('login','sso','email') {      foreach my $item ('login','sso','email') { 
         if ($item eq 'email') {          if ($item eq 'email') {
             if ($env{'form.cancreate_email'} eq 'email') {              if ($env{'form.cancreate_email'} eq 'email') {
                 push(@{$cancreate{'selfcreate'}},'email');                  push(@{$cancreate{'selfcreate'}},'email');
Line 7764  sub modify_selfcreation { Line 7729  sub modify_selfcreation {
     my (@email_rule,%userinfo,%savecaptcha);      my (@email_rule,%userinfo,%savecaptcha);
     my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();      my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
 #  #
 # Populate $cancreate{'emailusername'}{$type} hash ref with information fields (if new user will provide data  # Populate $cancreate{'emailusername'} hash ref with information types (if new user will provide data
 # value set to one), if self-creation with e-mail address permitted, where $type is user type: faculty, staff, student etc.  # value set to one), if self-creation with e-mail address permitted.
 #  #
     if (($env{'form.cancreate_email'} eq 'email') || ($env{'form.cancreate_email'} eq 'emailapproval')) {      if (($env{'form.cancreate_email'} eq 'email') || ($env{'form.cancreate_email'} eq 'emailapproval')) {
         push(@contexts,'emailusername');           push(@contexts,'emailusername'); 
         if (ref($types) eq 'ARRAY') {          map { $userinfo{$_} = 1; } &Apache::loncommon::get_env_multiple('form.canmodify_emailusername');
             foreach my $type (@{$types}) {          if (ref($infofields) eq 'ARRAY') {
                 if (ref($infofields) eq 'ARRAY') {              foreach my $field (@{$infofields}) {
                     foreach my $field (@{$infofields}) {                  if ($userinfo{$field}) {
                         if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required|optional)$/) {                      $cancreate{'emailusername'}{$field} = 1;
                             $cancreate{'emailusername'}{$type}{$field} = $1;  
                         }  
                     }  
                 }                  }
             }              }
         }          }
   
 #  #
 # Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of  # Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of
 # queued requests for self-creation of account using e-mail address as username  # queued requests for self-creation of account using e-mail address as username
Line 7838  sub modify_selfcreation { Line 7801  sub modify_selfcreation {
                           &mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.');                            &mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.');
         }          }
     }      }
       my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
     my @fields = ('lastname','firstname','middlename','generation',      my @fields = ('lastname','firstname','middlename','generation',
                   'permanentemail','id');                    'permanentemail','id');
     my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();      my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
Line 7850  sub modify_selfcreation { Line 7814  sub modify_selfcreation {
 #  #
     if (($env{'form.cancreate_login'}) || ($env{'form.cancreate_sso'})) {      if (($env{'form.cancreate_login'}) || ($env{'form.cancreate_sso'})) {
         if (ref($types) eq 'ARRAY') {          if (ref($types) eq 'ARRAY') {
             if (@{$types} > 1) {              if (@{$types} > 0) {
                 @{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');                  @{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');
                 push(@contexts,'statustocreate');                  push(@contexts,'statustocreate');
             } else {              } else {
                 undef($cancreate{'statustocreate'});                  undef($cancreate{'statustocreate'});
             }               } 
               push(@{$types},'default');
               $usertypes->{'default'} = $othertitle;
             foreach my $type (@{$types}) {              foreach my $type (@{$types}) {
                 my @modifiable =  &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);                  my @modifiable =  &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);
                 foreach my $field (@fields) {                  foreach my $field (@fields) {
Line 7908  sub modify_selfcreation { Line 7874  sub modify_selfcreation {
         } elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') {          } elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') {
             if (ref($cancreate{$item}) eq 'HASH') {              if (ref($cancreate{$item}) eq 'HASH') {
                 foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) {                  foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) {
                     if (ref($curr_usercreation{'cancreate'}{$item}{$curr}) eq 'HASH') {                      if (!$cancreate{$item}{$curr}) {
                         foreach my $field (keys(%{$curr_usercreation{'cancreate'}{$item}{$curr}})) {                          if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
                             unless ($curr_usercreation{'cancreate'}{$item}{$curr}{$field} eq $cancreate{$item}{$curr}{$field}) {                              push(@{$changes{'cancreate'}},$item);
                                 if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                     push(@{$changes{'cancreate'}},$item);  
                                 }  
                             }  
                         }  
                     } else {  
                         if (!$cancreate{$item}{$curr}) {  
                             if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                 push(@{$changes{'cancreate'}},$item);  
                             }  
                         }                          }
                     }                      }
                 }                  }
                 foreach my $field (keys(%{$cancreate{$item}})) {                  foreach my $field (keys(%{$cancreate{$item}})) {
                     if (ref($cancreate{$item}{$field}) eq 'HASH') {                      if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
                         foreach my $inner (keys(%{$cancreate{$item}{$field}})) {                          print STDERR "field $field in cancreate but not in curr\n";
                             if (ref($curr_usercreation{'cancreate'}{$item}{$field}) eq 'HASH') {                          if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
                                 unless ($curr_usercreation{'cancreate'}{$item}{$field}{$inner} eq $cancreate{$item}{$field}{$inner}) {                              push(@{$changes{'cancreate'}},$item);
                                     if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                         push(@{$changes{'cancreate'}},$item);  
                                     }  
                                 }  
                             } else {  
                                 if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                     push(@{$changes{'cancreate'}},$item);  
                                 }  
                             }  
                         }  
                     } else {  
                         if (!$curr_usercreation{'cancreate'}{$item}{$field}) {  
                             if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                 push(@{$changes{'cancreate'}},$item);  
                             }  
                         }                          }
                     }                      }
                 }                  }
Line 7963  sub modify_selfcreation { Line 7904  sub modify_selfcreation {
                 }                  }
             }              }
         } elsif ($item eq 'emailusername') {          } elsif ($item eq 'emailusername') {
             if (ref($cancreate{$item}) eq 'HASH') {              if (keys(%userinfo) > 0) {
                 foreach my $type (keys(%{$cancreate{$item}})) {                  push(@{$changes{'cancreate'}},$item);
                     if (ref($cancreate{$item}{$type}) eq 'HASH') {  
                         foreach my $field (keys(%{$cancreate{$item}{$type}})) {  
                             if ($cancreate{$item}{$type}{$field}) {  
                                 if (!grep(/^$item$/,@{$changes{'cancreate'}})) {  
                                     push(@{$changes{'cancreate'}},$item);  
                                 }  
                                 last;  
                             }  
                         }  
                     }  
                 }  
             }              }
         }          }
     }      }
Line 8105  sub modify_selfcreation { Line 8035  sub modify_selfcreation {
                         $chgtext .= '</ul>';                          $chgtext .= '</ul>';
                     } elsif ($type eq 'emailusername') {                      } elsif ($type eq 'emailusername') {
                         if (ref($cancreate{'emailusername'}) eq 'HASH') {                          if (ref($cancreate{'emailusername'}) eq 'HASH') {
                             if (ref($types) eq 'ARRAY') {                              if (keys(%{$cancreate{'emailusername'}}) > 0) {
                                 foreach my $type (@{$types}) {                                  $chgtext .= &mt('When self-creating account with e-mail as username, user will provide the following information:').
                                     if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') {                                              '<ul>';
                                         if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) {                                  foreach my $field (@{$infofields}) {
                                             $chgtext .= &mt('When self-creating account with e-mail as username, the following information will be provided by [_1]:',$usertypes->{$type}).                                      if ($cancreate{'emailusername'}{$field}) {
                                                     '<ul>';                                          $chgtext .= '<li>'.$infotitles->{$field}.'</li>';
                                             foreach my $field (@{$infofields}) {  
                                                 if ($cancreate{'emailusername'}{$type}{$field}) {  
                                                     $chgtext .= '<li>'.$infotitles->{$field}.'</li>';  
                                                 }  
                                             }  
                                         }  
                                         $chgtext .= '</ul>';  
                                     } else {  
                                         $chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',$usertypes->{$type}).'<br />';  
                                     }                                      }
                                 }                                  }
                                   $chgtext .= '</ul>';
                               } else {
                                   $chgtext .= &mt('When self creating account with e-mail as username, user will not provide any information besides e-mail address');
                             }                              }
                         }                          }
                     } elsif ($type eq 'notify') {                      } elsif ($type eq 'notify') {
Line 8311  sub modify_usermodification { Line 8235  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.160.6.35  
changed lines
  Added in v.1.224

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