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

Diff for /loncom/interface/domainprefs.pm between versions 1.35 and 1.38

version 1.35, 2007/12/16 17:45:20 version 1.38, 2008/01/01 18:48:17
Line 281  sub handler { Line 281  sub handler {
               ' />  '.                ' />  '.
               '<input type="button" value="uncheck all" '.                '<input type="button" value="uncheck all" '.
               'onclick="javascript:uncheckAll(document.pickactions.actions)"'.                'onclick="javascript:uncheckAll(document.pickactions.actions)"'.
               ' /></p>');                ' /></p><div class="LC_left_float">');
           my ($numitems,$midpoint,$seconddiv,$count); 
           $numitems = @prefs_order;
           $midpoint = int($numitems/2);
           if ($numitems%2) {
               $midpoint ++;
           }
           $count = 0;
         foreach my $item (@prefs_order) {          foreach my $item (@prefs_order) {
             $r->print('<p><label><input type="checkbox" name="actions" value="'.$item.'" />&nbsp;'.$prefs{$item}->{'text'}.'</label></p>');              $r->print('<h4><label><input type="checkbox" name="actions" value="'.$item.'" />&nbsp;'.$prefs{$item}->{'text'}.'</label></h4>');
               $count ++;
               if ((!$seconddiv) && ($count >= $midpoint)) {
                   $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
                   $seconddiv = 1;
               }
         }          }
         $r->print('<h3>'.&mt('Display options').'</h3>'."\n".          $r->print('</div><div class="LC_clear_float_footer"></div><h3>'.
                     &mt('Display options').'</h3>'."\n".
                   '<p><span class="LC_nobreak">'.&mt('Display using: ')."\n".                    '<p><span class="LC_nobreak">'.&mt('Display using: ')."\n".
                   '<label><input type="radio" name="numcols" value="1">'.                    '<label><input type="radio" name="numcols" value="1">'.
                   &mt('one column').'</label>&nbsp;&nbsp;'.                    &mt('one column').'</label>&nbsp;&nbsp;'.
Line 1333  sub print_usercreation { Line 1346  sub print_usercreation {
         }          }
     } elsif ($position eq 'middle') {      } elsif ($position eq 'middle') {
         my @creators = ('author','course');          my @creators = ('author','course');
           my ($rules,$ruleorder) =
               &Apache::lonnet::inst_userrules($dom,'username');
         my %lt = &usercreation_types();          my %lt = &usercreation_types();
         my %checked;          my %checked;
         if (ref($settings) eq 'HASH') {          if (ref($settings) eq 'HASH') {
Line 1363  sub print_usercreation { Line 1378  sub print_usercreation {
             $datatable .= '<tr'.$css_class.'>'.              $datatable .= '<tr'.$css_class.'>'.
                          '<td><span class="LC_nobreak">'.$lt{$item}.                           '<td><span class="LC_nobreak">'.$lt{$item}.
                          '</span></td><td align="right">';                           '</span></td><td align="right">';
             foreach my $option ('any','official','unofficial','none') {              my @options = ('any');
               if (ref($rules) eq 'HASH') {
                   if (keys(%{$rules}) > 0) {
                       push(@options,('official','unofficial'));
                   }
               }
               push(@options,'none');
               foreach my $option (@options) {
                 my $check = ' ';                  my $check = ' ';
                 if ($checked{$item} eq $option) {                  if ($checked{$item} eq $option) {
                     $check = ' checked="checked" ';                      $check = ' checked="checked" ';
Line 1393  sub print_usercreation { Line 1415  sub print_usercreation {
             }              }
         } else {          } else {
             foreach my $item (@contexts) {              foreach my $item (@contexts) {
                 foreach my $type (@authtypes) {                  foreach my $auth (@authtypes) {
                     $checked{$item}{$auth} = ' checked="checked" ';                      $checked{$item}{$auth} = ' checked="checked" ';
                 }                  }
             }              }
Line 2109  sub check_configuser { Line 2131  sub check_configuser {
 sub check_authorstatus {  sub check_authorstatus {
     my ($dom,$confname,%currroles) = @_;      my ($dom,$confname,%currroles) = @_;
     my $author_ok;      my $author_ok;
     if (!$currroles{':'.$dom.':au'}) {      if (!$currroles{$confname.':'.$dom.':au'}) {
         my $start = time;          my $start = time;
         my $end = 0;          my $end = 0;
         $author_ok =           $author_ok = 
Removed from v.1.35  
changed lines
  Added in v.1.38

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