[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.37 and 1.232

version 1.160.6.37, 2014/04/05 23:22:19 version 1.232, 2014/03/31 01:09:11
Line 212  sub handler { Line 212  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',                  'coursedefaults','usersessions','loadbalancing',
                 'selfenrollment'],$dom);                  'requestauthor','selfenrollment'],$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','selfenrollment',                         'serverstatuses','helpsettings',
                        'usersessions');                         'coursedefaults','selfenrollment','usersessions');
     my %existing;      my %existing;
     if (ref($domconfig{'loadbalancing'}) eq 'HASH') {      if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
         %existing = %{$domconfig{'loadbalancing'}};          %existing = %{$domconfig{'loadbalancing'}};
Line 400  sub handler { Line 400  sub handler {
                   print => \&print_serverstatuses,                    print => \&print_serverstatuses,
                   modify => \&modify_serverstatuses,                    modify => \&modify_serverstatuses,
                  },                   },
         'coursedefaults' =>          'helpsettings' =>
                    {text   => 'Help page settings',
                     help   => 'Domain_Configuration_Help_Settings',
                     header => [{col1 => 'Help Settings (logged-in users)',
                                 col2 => 'Value'}],
                     print  => \&print_helpsettings,
                     modify => \&modify_helpsettings,
                    },
           '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 in each course by a CC',                    header => [{col1 => 'Defaults which can be overridden in each course by a CC',
Line 410  sub handler { Line 418  sub handler {
                   print => \&print_coursedefaults,                    print => \&print_coursedefaults,
                   modify => \&modify_coursedefaults,                    modify => \&modify_coursedefaults,
                  },                   },
         'selfenrollment' =>          'selfenrollment' => 
                  {text   => 'Self-enrollment in Course/Community',                   {text   => 'Self-enrollment in Course/Community',
                   help   => 'Domain_Configuration_Selfenrollment',                    help   => 'Domain_Configuration_Selfenrollment',
                   header => [{col1 => 'Configuration Rights',                    header => [{col1 => 'Configuration Rights',
Line 422  sub handler { Line 430  sub handler {
                   print => \&print_selfenrollment,                    print => \&print_selfenrollment,
                   modify => \&modify_selfenrollment,                    modify => \&modify_selfenrollment,
                  },                   },
           'privacy' => 
                    {text   => 'User Privacy',
                     help   => 'Domain_Configuration_User_Privacy',
                     header => [{col1 => 'Setting',
                                 col2 => 'Value',}],
                     print => \&print_privacy,
                     modify => \&modify_privacy,
                    },
         'usersessions' =>          'usersessions' =>
                  {text  => 'User session hosting/offloading',                   {text  => 'User session hosting/offloading',
                   help  => 'Domain_Configuration_User_Sessions',                    help  => 'Domain_Configuration_User_Sessions',
Line 606  sub process_changes { Line 622  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 'selfenrollment') {      } elsif ($action eq 'selfenrollment') {
Line 657  sub print_config_box { Line 675  sub print_config_box {
              </tr>';               </tr>';
         $rowtotal ++;          $rowtotal ++;
         if (($action eq 'autoupdate') || ($action eq 'usercreation') || ($action eq 'selfcreation') ||          if (($action eq 'autoupdate') || ($action eq 'usercreation') || ($action eq 'selfcreation') ||
             ($action eq 'usermodification') || ($action eq 'selfenrollment') ||              ($action eq 'usermodification') || ($action eq 'coursedefaults') ||
             ($action eq 'usersessions')) {              ($action eq 'selfenrollment') || ($action eq 'usersessions')) {
             $output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);              $output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'coursecategories') {          } elsif ($action eq 'coursecategories') {
             $output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);              $output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);
Line 2956  sub print_selfenrollment { Line 2974  sub print_selfenrollment {
             $datatable .= '</table></td></tr>';              $datatable .= '</table></td></tr>';
         }          }
     } elsif ($position eq 'bottom') {      } elsif ($position eq 'bottom') {
         my ($itemsref,$namesref,$fieldsref) = &Apache::lonuserutils::selfenroll_validation_types();          my ($itemsref,$namesref,$fieldsref) = &selfenroll_validation_types();
         my %currvalidation;          my %currvalidation;
         if (ref($settings) eq 'HASH') {          if (ref($settings) eq 'HASH') {
             if (ref($settings->{'validation'}) eq 'HASH') {              if (ref($settings->{'validation'}) eq 'HASH') {
Line 3983  sub print_selfcreation { Line 4001  sub print_selfcreation {
         ($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,          ($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,
                                                      \%choices,$itemcount,$onclick);                                                       \%choices,$itemcount,$onclick);
         $$rowtotal += $itemcount;          $$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') {
Line 5086  sub modifiable_userdata_row { Line 5104  sub modifiable_userdata_row {
                     if ($statustype) {                      if ($statustype) {
                         if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') {                          if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') {
                             $hashref = $settings->{$context}->{$role}->{$statustype};                              $hashref = $settings->{$context}->{$role}->{$statustype};
                             if (ref($hashref) eq 'HASH') {                              if (ref($hashref) eq 'HASH') { 
                                 foreach my $field (@fields) {                                  foreach my $field (@fields) {
                                     if ($hashref->{$field}) {                                      if ($hashref->{$field}) {
                                         $checks{$field} = $hashref->{$field};                                          $checks{$field} = $hashref->{$field};
Line 5107  sub modifiable_userdata_row { Line 5125  sub modifiable_userdata_row {
             }              }
         }          }
     }      }
        
     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 5123  sub modifiable_userdata_row { Line 5141  sub modifiable_userdata_row {
             } 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" '; 
                     }                      }
                 }                  }
             }              }
Line 9358  sub modify_selfenrollment { Line 9376  sub modify_selfenrollment {
                   default    => 'Default settings',                    default    => 'Default settings',
                   validation => 'Validation of self-enrollment requests',                    validation => 'Validation of self-enrollment requests',
                 );                  );
     my ($itemsref,$namesref,$fieldsref) = &Apache::lonuserutils::selfenroll_validation_types();      my ($itemsref,$namesref,$fieldsref) = &selfenroll_validation_types();
   
     if (ref($ordered{'admin'}) eq 'ARRAY') {      if (ref($ordered{'admin'}) eq 'ARRAY') {
         foreach my $item (@{$ordered{'admin'}}) {          foreach my $item (@{$ordered{'admin'}}) {
Removed from v.1.160.6.37  
changed lines
  Added in v.1.232

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