'.
+ '| '.$choices->{'links'}.' | ';
+ my $links_def;
+ foreach my $item (@{$links}) {
+ if (!$is_custom->{$item}) {
+ $links_def .= ''.$choices->{$item}.'
'.$defaults->{'links'}{$item}.' | ';
+ }
+ }
+ if ($links_def) {
+ $datatable .= ''.&mt('Default(s) in use').'
| ';
+ } else {
+ $datatable .= ' | ';
+ }
+ $datatable .= ''.
+ '';
+ foreach my $item (@{$links}) {
+ $datatable .= '';
+ my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'links'}{$item});
+ if ($designs->{'links'}{$item}) {
+ $datatable.=''.
+ $link.'';
+ } else {
+ $datatable .= $link;
+ }
+ $datatable .= '
| ';
+ }
return $datatable;
}
+sub color_pick {
+ my ($phase,$role,$item,$desc,$curcol) = @_;
+ my $link = ''.$desc.'';
+ return $link;
+}
+
+sub color_pick_js {
+ my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
+ my $output = <<"ENDCOL";
+ function pclose() {
+ parmwin=window.open("/adm/rat/empty.html","LONCAPAparms","height=350,width=350,scrollbars=no,menubar=no");
+ parmwin.close();
+ }
+
+ $pjump_def
+
+ function psub() {
+ pclose();
+ if (document.parmform.pres_marker.value!='') {
+ if (document.parmform.pres_type.value!='') {
+ eval('document.display.'+
+ document.parmform.pres_marker.value+
+ '.value=document.parmform.pres_value.value;');
+ }
+ } else {
+ document.parmform.pres_value.value='';
+ document.parmform.pres_marker.value='';
+ }
+ }
+ENDCOL
+ return $output;
+}
+
sub print_quotas {
my ($dom,$settings) = @_;
my $datatable;
@@ -496,16 +904,20 @@ sub usertype_update_row {
}
sub modify_login {
- my ($dom,%domconfig) = @_;
- my ($resulttext,%changes);
+ my ($r,$dom,%domconfig) = @_;
+ my ($resulttext,$errors,$colchgtext,%changes,%colchanges);
my %title = ( coursecatalog => 'Display course catalog',
adminmail => 'Display administrator E-mail address');
my @offon = ('off','on');
- my %loginhash = (
- login => { coursecatalog => $env{'form.coursecatalog'},
- adminmail => $env{'form.adminmail'},
- }
- );
+ my %loginhash;
+ ($errors,%colchanges) = &modify_colors($r,$dom,['login'],\%domconfig,
+ \%loginhash);
+ $loginhash{login}{coursecatalog} = $env{'form.coursecatalog'};
+ $loginhash{login}{adminmail} = $env{'form.adminmail'};
+ if (ref($colchanges{'login'}) eq 'HASH') {
+ $colchgtext = &display_colorchgs($dom,\%colchanges,['login'],
+ \%loginhash);
+ }
my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash,
$dom);
if ($putresult eq 'ok') {
@@ -525,18 +937,248 @@ sub modify_login {
($env{'form.adminmail'} eq '1')) {
$changes{'adminmail'} = 1;
}
- if (keys(%changes) > 0) {
+ if (keys(%changes) > 0 || $colchgtext) {
$resulttext = &mt('Changes made:').'';
foreach my $item (sort(keys(%changes))) {
$resulttext .= '- '.&mt("$title{$item} set to $offon[$env{'form.'.$item}]").'
';
}
- $resulttext .= ' ';
+ $resulttext .= $colchgtext.'';
} else {
$resulttext = &mt('No changes made to log-in page settings');
}
} else {
$resulttext = &mt('An error occurred: [_1]',$putresult);
}
+ if ($errors) {
+ $resulttext .= &mt('The following errors occurred: ').'';
+ }
+ return $resulttext;
+}
+
+sub color_font_choices {
+ my %choices =
+ &Apache::lonlocal::texthash (
+ img => "Header",
+ bgs => "Background colors",
+ links => "Link colors",
+ font => "Font color",
+ pgbg => "Page",
+ tabbg => "Header",
+ sidebg => "Border",
+ link => "Link",
+ alink => "Active link",
+ vlink => "Visited link",
+ );
+ return %choices;
+}
+
+sub modify_rolecolors {
+ my ($r,$dom,$roles,%domconfig) = @_;
+ my ($resulttext,%rolehash);
+ $rolehash{'rolecolors'} = {};
+ my ($errors,%changes) = &modify_colors($r,$dom,$roles,
+ $domconfig{'rolecolors'},$rolehash{'rolecolors'});
+ my $putresult = &Apache::lonnet::put_dom('configuration',\%rolehash,
+ $dom);
+ if ($putresult eq 'ok') {
+ if (keys(%changes) > 0) {
+ $resulttext = &display_colorchgs($dom,\%changes,$roles,
+ $rolehash{'rolecolors'});
+ } else {
+ $resulttext = &mt('No changes made to default color schemes');
+ }
+ } else {
+ $resulttext = &mt('An error occurred: [_1]',$putresult);
+ }
+ if ($errors) {
+ $resulttext .= &mt('The following errors occurred: ').'';
+ }
+ return $resulttext;
+}
+
+sub modify_colors {
+ my ($r,$dom,$roles,$domconfig,$confhash) = @_;
+ my %changes;
+ my @bgs = ('pgbg','mainbg','sidebg');
+ my @links = ('link','alink','vlink');
+ my @images;
+ my $configuname = $dom.'-domainconfig';
+ my $servadm = $r->dir_config('lonAdmEMail');
+ my $errors;
+ foreach my $role (@{$roles}) {
+ if ($role eq 'login') {
+ @images = ('img','logo','domlogo');
+ } else {
+ @images = ('img');
+ }
+ $confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
+ foreach my $item (@bgs,@links) {
+ $confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
+ }
+ foreach my $img (@images) {
+ if ($env{'form.'.$role.'_'.$img.'.filename'} ne '') {
+ my $configuserok;
+ if (&Apache::lonnet::homeserver($configuname,$dom) eq 'no_host') {
+ srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand.
+ my $configpass = &LONCAPA::Enrollment::create_password();
+ $configuserok = &Apache::lonnet::modifyuser($dom,$configuname,'','internal',$configpass,'','','','','',undef,$servadm);
+ } else {
+ $configuserok = 'ok';
+ }
+ if ($configuserok eq 'ok') {
+ my $result =
+ &Apache::lonnet::userfileupload($role.'_'.$img,'',
+ 'portfolio/'.$img,'','','',$configuname,$dom,'200','50');
+ if ($result =~ m|(^/uploaded/.+)/([^/]+)$|) {
+ my $urldir = $1;
+ my $filename = $2;
+ my $allowresult = &Apache::lonnet::make_public_indefinitely($result);
+ if ($allowresult eq 'ok') {
+ &Apache::lonnet::make_public_indefinitely($urldir.'/tn-'.$filename);
+ $confhash->{$role}{$img} = $result;
+ $changes{$role}{$img} = 1;
+ }
+ }
+ } else {
+ my $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,$configuname,$dom,$configuserok);
+ &Apache::lonnet::logthis($error);
+ $errors .= ''.$error.'';
+ }
+ }
+ }
+ if (ref($domconfig) eq 'HASH') {
+ if (ref($domconfig->{$role}) eq 'HASH') {
+ foreach my $img (@images) {
+ if ($domconfig->{$role}{$img} ne '') {
+ if ($env{'form.'.$role.'_del_'.$img}) {
+ $confhash->{$role}{$img} = '';
+ $changes{$role}{$img} = 1;
+ } else {
+ $confhash->{$role}{$img} = $domconfig->{$role}{$img};
+ }
+ } else {
+ if ($env{'form.'.$role.'_del_'.$img}) {
+ $confhash->{$role}{$img} = '';
+ $changes{$role}{$img} = 1;
+ }
+ }
+ }
+ if ($domconfig->{$role}{'font'} ne '') {
+ if ($confhash->{$role}{'font'} ne $domconfig->{$role}{'font'}) {
+ $changes{$role}{'font'} = 1;
+ }
+ } else {
+ if ($confhash->{$role}{'font'}) {
+ $changes{$role}{'font'} = 1;
+ }
+ }
+ foreach my $item (@bgs) {
+ if ($domconfig->{$role}{$item} ne '') {
+ if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) {
+ $changes{$role}{'bgs'}{$item} = 1;
+ }
+ } else {
+ if ($confhash->{$role}{$item}) {
+ $changes{$role}{'bgs'}{$item} = 1;
+ }
+ }
+ }
+ foreach my $item (@links) {
+ if ($domconfig->{$role}{$item} ne '') {
+ if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) {
+ $changes{$role}{'links'}{$item} = 1;
+ }
+ } else {
+ if ($confhash->{$role}{$item}) {
+ $changes{$role}{'links'}{$item} = 1;
+ }
+ }
+ }
+ } else {
+ &default_change_checker($role,\@images,\@links,\@bgs,
+ $confhash,\%changes);
+ }
+ } else {
+ &default_change_checker($role,\@images,\@links,\@bgs,
+ $confhash,\%changes);
+ }
+ }
+ return ($errors,%changes);
+}
+
+sub default_change_checker {
+ my ($role,$images,$links,$bgs,$confhash,$changes) = @_;
+ foreach my $item (@{$links}) {
+ if ($confhash->{$role}{$item}) {
+ $changes->{$role}{'links'}{$item} = 1;
+ }
+ }
+ foreach my $item (@{$bgs}) {
+ if ($confhash->{$role}{$item}) {
+ $changes->{$role}{'bgs'}{$item} = 1;
+ }
+ }
+ foreach my $img (@{$images}) {
+ if ($env{'form.'.$role.'_del_'.$img}) {
+ $confhash->{$role}{$img} = '';
+ $changes->{$role}{$img} = 1;
+ }
+ }
+ if ($confhash->{$role}{'font'}) {
+ $changes->{$role}{'font'} = 1;
+ }
+}
+
+sub display_colorchgs {
+ my ($dom,$changes,$roles,$confhash) = @_;
+ my (%choices,$resulttext);
+ &Apache::lonnet::devalidate_domconfig_cache($dom);
+ if (!grep(/^login$/,@{$roles})) {
+ $resulttext = &mt('Changes made:').'
';
+ }
+ foreach my $role (@{$roles}) {
+ if ($role eq 'login') {
+ %choices = &login_choices();
+ } else {
+ %choices = &color_font_choices();
+ }
+ if (ref($changes->{$role}) eq 'HASH') {
+ if ($role ne 'login') {
+ $resulttext .= ''.&mt($role).'';
+ }
+ foreach my $key (sort(keys(%{$changes->{$role}}))) {
+ if ($role ne 'login') {
+ $resulttext .= '';
+ }
+ if (ref($changes->{$role}{$key}) eq 'HASH') {
+ if ($role ne 'login') {
+ $resulttext .= '- '.&mt($choices{$key}).':
';
+ }
+ foreach my $item (sort(keys(%{$changes->{$role}{$key}}))) {
+ if ($confhash->{$role}{$item} eq '') {
+ $resulttext .= '- '.&mt("$choices{$item} set to default").'
';
+ } else {
+ $resulttext .= '- '.&mt("$choices{$item} set to [_1]",$confhash->{$role}{$item}).'
';
+ }
+ }
+ if ($role ne 'login') {
+ $resulttext .= ' ';
+ }
+ } else {
+ if ($confhash->{$role}{$key} eq '') {
+ $resulttext .= '- '.&mt("$choices{$key} set to default").'
';
+ } else {
+ $resulttext .= '- '.&mt("$choices{$key} set to [_1]",$confhash->{$role}{$key}).'
';
+ }
+ }
+ if ($role ne 'login') {
+ $resulttext .= ' ';
+ }
+ }
+ }
+ }
return $resulttext;
}
@@ -746,7 +1388,7 @@ sub modify_autoupdate {
$newvaluestr = join(', ',@newvalues);
} else {
$newvaluestr = &mt('none');
- }
+ }
if ($item eq 'default') {
$resulttext .= ''.&mt("Updates for $othertitle set to: [_1]",$newvaluestr).'';
} else {
|