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

Diff for /loncom/interface/domainprefs.pm between versions 1.9 and 1.15

version 1.9, 2007/04/10 20:49:07 version 1.15, 2007/05/27 16:31:54
Line 145  sub handler { Line 145  sub handler {
       </td>        </td>
     </tr>      </tr>
    </table>');     </table>');
         &print_footer($r,$phase,'process','Store changes');          &print_footer($r,$phase,'process','Save changes');
     }      }
     return OK;      return OK;
 }  }
Line 733  sub print_quotas { Line 733  sub print_quotas {
     $datatable .= '<tr'.$css_class.'>'.      $datatable .= '<tr'.$css_class.'>'.
                   '<td>'.&mt($othertitle).'</td>'.                    '<td>'.&mt($othertitle).'</td>'.
                   '<td class="LC_right_item"><span class="LC_nobreak">'.                    '<td class="LC_right_item"><span class="LC_nobreak">'.
                   '<input type="text" name="default" value="'.                    '<input type="text" name="defaultquota" value="'.
                   $defaultquota.'" size="5" /> Mb</span></td></tr>';                    $defaultquota.'" size="5" /> Mb</span></td></tr>';
     return $datatable;      return $datatable;
 }  }
Line 764  sub print_autoenroll { Line 764  sub print_autoenroll {
         if (exists($settings->{'sender_domain'})) {          if (exists($settings->{'sender_domain'})) {
             $defdom = $settings->{'sender_domain'};              $defdom = $settings->{'sender_domain'};
         }          }
       } else {
           if ($autorun) {
               $runon = ' checked="checked" ';
               $runoff = ' ';
           } else {
               $runoff = ' checked="checked" ';
               $runon = ' ';
           }
     }      }
     my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1);      my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1);
     my $datatable='<tr class="LC_odd_row">'.      my $datatable='<tr class="LC_odd_row">'.
Line 772  sub print_autoenroll { Line 780  sub print_autoenroll {
                   '<input type="radio" name="autoenroll_run"'.                    '<input type="radio" name="autoenroll_run"'.
                   $runon.' value="1" />'.&mt('Yes').'</label>&nbsp;'.                    $runon.' value="1" />'.&mt('Yes').'</label>&nbsp;'.
                   '<label><input type="radio" name="autoenroll_run"'.                    '<label><input type="radio" name="autoenroll_run"'.
                   $runoff.'value="0" />'.&mt('No').'</label></span></td>'.                    $runoff.' value="0" />'.&mt('No').'</label></span></td>'.
                   '</tr><tr>'.                    '</tr><tr>'.
                   '<td>'.&mt('Notification messages - sender').                    '<td>'.&mt('Notification messages - sender').
                   '</td><td class="LC_right_item"><span class="LC_nobreak">'.                    '</td><td class="LC_right_item"><span class="LC_nobreak">'.
Line 951  sub modify_login { Line 959  sub modify_login {
             $resulttext = &mt('No changes made to log-in page settings');              $resulttext = &mt('No changes made to log-in page settings');
         }          }
     } else {      } else {
         $resulttext = &mt('An error occurred: [_1]',$putresult);          $resulttext = '<span class="LC_error">'.
       &mt('An error occurred: [_1]',$putresult).'</span>';
     }      }
     if ($errors) {      if ($errors) {
         $resulttext .= '<br />'.&mt('The following errors occurred: ').'<ul>'.          $resulttext .= '<br />'.&mt('The following errors occurred: ').'<ul>'.
Line 993  sub modify_rolecolors { Line 1002  sub modify_rolecolors {
             $resulttext = &mt('No changes made to default color schemes');              $resulttext = &mt('No changes made to default color schemes');
         }          }
     } else {      } else {
         $resulttext = &mt('An error occurred: [_1]',$putresult);          $resulttext = '<span class="LC_error">'.
       &mt('An error occurred: [_1]',$putresult).'</span>';
     }      }
     if ($errors) {      if ($errors) {
         $resulttext .= &mt('The following errors occurred: ').'<ul>'.          $resulttext .= &mt('The following errors occurred: ').'<ul>'.
Line 1004  sub modify_rolecolors { Line 1014  sub modify_rolecolors {
   
 sub modify_colors {  sub modify_colors {
     my ($r,$dom,$confname,$roles,$domconfig,$confhash) = @_;      my ($r,$dom,$confname,$roles,$domconfig,$confhash) = @_;
     my %changes;      my (%changes,%choices);
     my @bgs = ('pgbg','mainbg','sidebg');      my @bgs = ('pgbg','mainbg','sidebg');
     my @links = ('link','alink','vlink');      my @links = ('link','alink','vlink');
     my @images;      my @images;
Line 1012  sub modify_colors { Line 1022  sub modify_colors {
     my $errors;      my $errors;
     foreach my $role (@{$roles}) {      foreach my $role (@{$roles}) {
         if ($role eq 'login') {          if ($role eq 'login') {
               %choices = &login_choices();
           } else {
               %choices = &color_font_choices();
           }
           if ($role eq 'login') {
             @images = ('img','logo','domlogo');              @images = ('img','logo','domlogo');
         } else {          } else {
             @images = ('img');              @images = ('img');
Line 1036  sub modify_colors { Line 1051  sub modify_colors {
                 my $error;                  my $error;
                 if ($configuserok eq 'ok') {                  if ($configuserok eq 'ok') {
                     if ($switchserver) {                      if ($switchserver) {
                         $error = &mt("Upload of image [_1] for $role page(s) is not permitted to this server: [_2]",$img,$switchserver);                          $error = &mt("Upload of [_1] image for $role page(s) is not permitted to this server: [_2]",$choices{$img},$switchserver);
                     } else {                      } else {
                         if ($author_ok eq 'ok') {                          if ($author_ok eq 'ok') {
                             my ($result,$logourl) =                               my ($result,$logourl) = 
Line 1044  sub modify_colors { Line 1059  sub modify_colors {
                                            $dom,$confname,$img,$width,$height);                                             $dom,$confname,$img,$width,$height);
                             if ($result eq 'ok') {                              if ($result eq 'ok') {
                                 $confhash->{$role}{$img} = $logourl;                                  $confhash->{$role}{$img} = $logourl;
                                 $changes{$role}{$img} = 1;                                  $changes{$role}{'images'}{$img} = 1;
                             } else {                              } else {
                                 $error = &mt("Upload of image [_1] for $role page(s) failed because an error occurred publshing the file in RES space. Error was: [_2].",$img,$result);                                  $error = &mt("Upload of [_1] image for $role page(s) failed because an error occurred publishing the file in RES space. Error was: [_2].",$choices{img},$result);
                             }                              }
                         } else {                          } else {
                             $error = &mt("Upload of image [_1] for $role page(s) failed because an author role could not be assigned to a Domain Configuation user ([_2]) in domain: [_3].  Error was: [_4].",$img,$confname,$dom,$author_ok);                              $error = &mt("Upload of [_1] image for $role page(s) failed because an author role could not be assigned to a Domain Configuation user ([_2]) in domain: [_3].  Error was: [_4].",$choices{$img},$confname,$dom,$author_ok);
                         }                          }
                     }                      }
                 } else {                  } else {
                     $error = &mt("Upload of image [_1] for $role page(s) failed because a Domain Configuation user ([_2]) could not be created in domain: [_3].  Error was: [_4].",$img,$confname,$dom,$configuserok);                      $error = &mt("Upload of [_1] image for $role page(s) failed because a Domain Configuation user ([_2]) could not be created in domain: [_3].  Error was: [_4].",$choices{$img},$confname,$dom,$configuserok);
                 }                  }
                 if ($error) {                  if ($error) {
                     &Apache::lonnet::logthis($error);                      &Apache::lonnet::logthis($error);
                     $errors .= '<li>'.$error.'</li>';                      $errors .= '<li><span class="LC_error">'.$error.'</span></li>';
                 }                  }
             } elsif ($domconfig->{$role}{$img} ne '') {              } elsif ($domconfig->{$role}{$img} ne '') {
                 if ($domconfig->{$role}{$img} !~ m-^(/res/\Q$dom\E/\Q$confname\E/\Q$img\E)/([^/]+)$-) {                  if ($domconfig->{$role}{$img} !~ m-^(/res/\Q$dom\E/\Q$confname\E/\Q$img\E)/([^/]+)$-) {
Line 1084  sub modify_colors { Line 1099  sub modify_colors {
                     if ($domconfig->{$role}{$img} ne '') {                      if ($domconfig->{$role}{$img} ne '') {
                         if ($env{'form.'.$role.'_del_'.$img}) {                          if ($env{'form.'.$role.'_del_'.$img}) {
                             $confhash->{$role}{$img} = '';                              $confhash->{$role}{$img} = '';
                             $changes{$role}{$img} = 1;                              $changes{$role}{'images'}{$img} = 1;
                         } else {                          } else {
                             if ($confhash->{$role}{$img} eq '') {                              if ($confhash->{$role}{$img} eq '') {
                                 $confhash->{$role}{$img} = $domconfig->{$role}{$img};                                  $confhash->{$role}{$img} = $domconfig->{$role}{$img};
Line 1093  sub modify_colors { Line 1108  sub modify_colors {
                     } else {                      } else {
                         if ($env{'form.'.$role.'_del_'.$img}) {                          if ($env{'form.'.$role.'_del_'.$img}) {
                             $confhash->{$role}{$img} = '';                              $confhash->{$role}{$img} = '';
                             $changes{$role}{$img} = 1;                              $changes{$role}{'images'}{$img} = 1;
                         }                           } 
                     }                      }
                 }                    }  
Line 1155  sub default_change_checker { Line 1170  sub default_change_checker {
     foreach my $img (@{$images}) {      foreach my $img (@{$images}) {
         if ($env{'form.'.$role.'_del_'.$img}) {          if ($env{'form.'.$role.'_del_'.$img}) {
             $confhash->{$role}{$img} = '';              $confhash->{$role}{$img} = '';
             $changes->{$role}{$img} = 1;              $changes->{$role}{'images'}{$img} = 1;
         }          }
     }      }
     if ($confhash->{$role}{'font'}) {      if ($confhash->{$role}{'font'}) {
Line 1192  sub display_colorchgs { Line 1207  sub display_colorchgs {
                         if ($confhash->{$role}{$item} eq '') {                          if ($confhash->{$role}{$item} eq '') {
                             $resulttext .= '<li>'.&mt("$choices{$item} set to default").'</li>';                              $resulttext .= '<li>'.&mt("$choices{$item} set to default").'</li>';
                         } else {                          } else {
                             $resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$confhash->{$role}{$item}).'</li>';                              my $newitem = $confhash->{$role}{$item};
                               if ($key eq 'images') {
                                   $newitem = '<img src="'.$confhash->{$role}{$item}.'" alt="'.$choices{$item}.'" valign="bottom" />';
                               }
                               $resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$newitem).'</li>';
                         }                          }
                     }                      }
                     if ($role ne 'login') {                      if ($role ne 'login') {
Line 1454  sub check_switchserver { Line 1473  sub check_switchserver {
         $home = &Apache::lonnet::domain($dom,'primary');          $home = &Apache::lonnet::domain($dom,'primary');
     }      }
     my @ids=&Apache::lonnet::current_machine_ids();      my @ids=&Apache::lonnet::current_machine_ids();
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; }      foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
         if (!$allowed) {      if (!$allowed) {
             $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/">'.&mt('Switch Server').'</a>';   $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/">'.&mt('Switch Server').'</a>';
         }  
     }      }
     return $switchserver;      return $switchserver;
 }  }
Line 1473  sub modify_quotas { Line 1491  sub modify_quotas {
             $formhash{$1} = $env{$key};              $formhash{$1} = $env{$key};
         }          }
     }      }
       $formhash{'default'} = $env{'form.defaultquota'};
     if (ref($domconfig{'quotas'}) eq 'HASH') {      if (ref($domconfig{'quotas'}) eq 'HASH') {
         foreach my $key (keys(%{$domconfig{'quotas'}})) {          foreach my $key (keys(%{$domconfig{'quotas'}})) {
             if (exists($formhash{$key})) {              if (exists($formhash{$key})) {
Line 1507  sub modify_quotas { Line 1526  sub modify_quotas {
             $resulttext = &mt('No changes made to default quotas');              $resulttext = &mt('No changes made to default quotas');
         }          }
     } else {      } else {
         $resulttext = &mt('An error occurred: [_1]',$putresult);          $resulttext = '<span class="LC_error">'.
       &mt('An error occurred: [_1]',$putresult).'</span>';
     }      }
     return $resulttext;      return $resulttext;
 }  }
Line 1571  sub modify_autoenroll { Line 1591  sub modify_autoenroll {
             $resulttext = &mt('No changes made to auto-enrollment settings');              $resulttext = &mt('No changes made to auto-enrollment settings');
         }          }
     } else {      } else {
         $resulttext = &mt('An error occurred: [_1]',$putresult);          $resulttext = '<span class="LC_error">'.
       &mt('An error occurred: [_1]',$putresult).'</span>';
     }      }
     return $resulttext;      return $resulttext;
 }  }
Line 1690  sub modify_autoupdate { Line 1711  sub modify_autoupdate {
             $resulttext = &mt('No changes made to autoupdates');              $resulttext = &mt('No changes made to autoupdates');
         }          }
     } else {      } else {
         $resulttext = &mt('An error occurred: [_1]',$putresult);          $resulttext = '<span class="LC_error">'.
       &mt('An error occurred: [_1]',$putresult).'</span>';
     }      }
     return $resulttext;      return $resulttext;
 }  }
Removed from v.1.9  
changed lines
  Added in v.1.15

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