loncom/interface/domainprefs.pm - view

File: [LON-CAPA] / loncom / interface / domainprefs.pm
Revision 1.6: download - view: text, annotated - select for diffs
Tue Apr 3 18:47:23 2007 UTC (17 years, 1 month ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- domainprefs.pm
   - DCs can modify font colors, background colors and images for login page and also for defaults for different roles (student, coordinator, author, admin).
   - default settings (from /home/httpd/lonTabs/lonDomColors/default.tab) displayed if no custom choices made.
   - thumbnail images shown for both custom images and defaults
   - uploaded files stored in portfolio for domain config user (username: $dom-domainconfig), with indefinite public access permissions
   - $dom-domainconfig user created if not present

- loncommon.pm
  - Only default.tab file is now read from /home/httpd/lonTabs/lonDomColors.
  - defaults available in global hash: %Apache::loncommon::defaultdesign
  - &designparm() now gets custom settings for a specific domain from lonnet::get_domainconf($domain)
  - In &bodytag(), top frame rendering only uses $lonhttpdPort for images served from /adm, i.e., defaults.
  - Domain logo information now from config data from lonnet::get_domainconf($domain)

- lonlogin.pm
  - Display of Course Catalog link (default is display) and Server Administrator Email address (default is no display) now determined from domain configuration set for domain.

- lonnet.pm
  - get_domainconf() retrieves domain configuration.  Caching used (1800s lifetime).
      if configuration.db exists for primary library server in domain data from there,
          otherwise from /home/httpd/lonTabs/lonDomColors/$dom.tab (if one exists)
  - &get_dom() and &put_dom() can now take a fourth optional argument ($uhome) to allow domain data to be retrieved/stored in .db on specified host server ($uhome) in domain.
      Default is the primary library server in the domain.
  - &userfileupload() and &finishuserfileupload() can now accept to additional optional arguments (width and height in pixels for a thumbnail image to be stored for the uploaded file).
  - thumbnail is stored in same directory as full size image, and is named with a tn- prepended to the name of the full size image.
  - documentation updated for &get_dom and &put_dom().

# The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # # $Id: domainprefs.pm,v 1.6 2007/04/03 18:47:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA# # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # # ############################################################### ############################################################## package Apache::domainprefs; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::lonlocal; use LONCAPA(); use LONCAPA::Enrollment; sub handler { my $r=shift; if ($r->header_only) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } my $dom = $env{'request.role.domain'}; my $domdesc = &Apache::lonnet::domain($dom,'description'); if (&Apache::lonnet::allowed('mau',$dom)) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; } else { $env{'user.error.msg'}= "/adm/domainprefs:mau:0:0:Cannot modify domain settings"; return HTTP_NOT_ACCEPTABLE; } &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['phase']); my $phase = "display"; if ( exists($env{'form.phase'}) ) { $phase = $env{'form.phase'}; } my %domconfig = &Apache::lonnet::get_dom('configuration',['login','rolecolors', 'quotas','autoenroll','autoupdate'],$dom); my @prefs = ( { text => 'Default color schemes', help => 'Default_Color_Schemes', action => 'rolecolors', header => [{col1 => 'Student Settings', col2 => '',}, {col1 => 'Coordinator Settings', col2 => '',}, {col1 => 'Author Settings', col2 => '',}, {col1 => 'Administrator Settings', col2 => '',}], }, { text => 'Log-in page options', help => 'Domain_Log-in_Page', action => 'login', header => [{col1 => 'Item', col2 => '',}], }, { text => 'Default quotas for user portfolios', help => 'Default_User_Quota', action => 'quotas', header => [{col1 => 'User type', col2 => 'Default quota'}], }, { text => 'Auto-enrollment settings', help => 'Domain_Auto_Enrollment', action => 'autoenroll', header => [{col1 => 'Configuration setting', col2 => 'Value(s)'}], }, { text => 'Auto-update settings', help => 'Domain_Auto_Update', action => 'autoupdate', header => [{col1 => 'Setting', col2 => 'Value',}, {col1 => 'User Population', col2 => 'Updataeable user data'}], }, ); my @roles = ('student','coordinator','author','admin'); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'display')", text=>"Domain Configuration"}); if ($phase eq 'process') { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Updated"}); &print_header($r,$phase); foreach my $item (@prefs) { $r->print('<h3>'.&mt($item->{'text'}).'</h3>'. &process_changes($r,$dom,$item->{'action'},\@roles,%domconfig)); } $r->print('<p>'); &print_footer($r,$phase,'display','Back to actions menu'); $r->print('</p>'); } else { if ($phase eq '') { $phase = 'display'; } my %helphash; my $numprefs = @prefs; &print_header($r,$phase); $r->print('<table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">'); foreach my $item (@prefs) { if ($item->{'action'} eq 'login') { $r->print('</td><td width="6%"> </td><td align="left" valign="top" width="47%">'); } &print_config_box($r,$dom,$phase,$item->{'action'}, $item,$domconfig{$item->{'action'}}); } $r->print(' </table> </td> </tr> </table> </td> </tr> </table>'); &print_footer($r,$phase,'process','Store changes'); } return OK; } sub process_changes { my ($r,$dom,$action,$roles,%domconfig) = @_; my $output; if ($action eq 'login') { $output = &modify_login($r,$dom,%domconfig); } elsif ($action eq 'rolecolors') { $output = &modify_rolecolors($r,$dom,$roles,%domconfig); } elsif ($action eq 'quotas') { $output = &modify_quotas($dom,%domconfig); } elsif ($action eq 'autoenroll') { $output = &modify_autoenroll($dom,%domconfig); } elsif ($action eq 'autoupdate') { $output = &modify_autoupdate($dom,%domconfig); } return $output; } sub print_config_box { my ($r,$dom,$phase,$action,$item,$settings) = @_; $r->print(' <table class="LC_nested_outer"> <tr> <th>'.&mt($item->{text}).' '. &Apache::loncommon::help_open_topic($item->{'help'}).'</th> </tr>'); if (($action eq 'autoupdate') || ($action eq 'rolecolors')) { my $colspan = ($action eq 'rolecolors')?' colspan="2"':''; $r->print(' <tr> <td> <table class="LC_nested"> <tr class="LC_info_row"> <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[0]->{'col1'}.'</td> <td class="LC_right_item">'.$item->{'header'}->[0]->{'col2'}.'</td> </tr>'); if ($action eq 'autoupdate') { $r->print(&print_autoupdate('top',$dom,$settings)); } else { $r->print(&print_rolecolors($phase,'student',$dom,$settings)); } $r->print(' </table> </td> </tr> <tr> <td> <table class="LC_nested"> <tr class="LC_info_row"> <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[1]->{'col1'}.'</td> <td class="LC_right_item">'.$item->{'header'}->[1]->{'col2'}.'</td> </tr>'); if ($action eq 'autoupdate') { $r->print(&print_autoupdate('bottom',$dom,$settings)); } else { $r->print(&print_rolecolors($phase,'coordinator',$dom,$settings).' </table> </td> </tr> <tr> <td> <table class="LC_nested"> <tr class="LC_info_row"> <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[2]->{'col1'}.'</td> <td class="LC_right_item">'.$item->{'header'}->[2]->{'col2'}.'</td> </tr>'. &print_rolecolors($phase,'author',$dom,$settings).' </table> </td> </tr> <tr> <td> <table class="LC_nested"> <tr class="LC_info_row"> <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[3]->{'col1'}.'</td> <td class="LC_right_item">'.$item->{'header'}->[3]->{'col2'}.'</td> </tr>'. &print_rolecolors($phase,'admin',$dom,$settings)); } } else { $r->print(' <tr> <td> <table class="LC_nested"> <tr class="LC_info_row">'); if ($action eq 'login') { $r->print(' <td class="LC_left_item" colspan="2">'.$item->{'header'}->[0]->{'col1'}.'</td>'); } else { $r->print(' <td class="LC_left_item">'.$item->{'header'}->[0]->{'col1'}.'</td>'); } $r->print(' <td class="LC_right_item">'.$item->{'header'}->[0]->{'col2'}.'</td> </tr>'); if ($action eq 'login') { $r->print(&print_login($dom,$phase,$settings)); } elsif ($action eq 'quotas') { $r->print(&print_quotas($dom,$settings)); } elsif ($action eq 'autoenroll') { $r->print(&print_autoenroll($dom,$settings)); } } $r->print(' </table> </td> </tr> </table><br />'); return; } sub print_header { my ($r,$phase) = @_; my $js = ' <script type="text/javascript"> function changePage(formname,newphase) { formname.phase.value = newphase; formname.submit(); } '. &color_pick_js().' </script> '; $r->print(&Apache::loncommon::start_page('View/Modify Domain Settings', $js)); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Domain Settings')); $r->print(' <form name="parmform"> <input type="hidden" name="pres_marker" /> <input type="hidden" name="pres_type" /> <input type="hidden" name="pres_value" /> </form> '); $r->print('<form method="post" name="'.$phase.'" action="/adm/domainprefs"'. ' enctype="multipart/form-data">'); return; } sub print_footer { my ($r,$phase,$newphase,$button_text) = @_; $button_text = &mt($button_text); $r->print('<input type="hidden" name="phase" value="" />'); my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"'; if ($phase eq 'process') { $r->print('<a href='.$dest.'>'.$button_text.'</a>'); } else { $r->print('<input type="button" name="store" value="'. $button_text.'" onclick='.$dest.' />'); } $r->print('</form>'); $r->print('<br />'.&Apache::loncommon::end_page()); return; } sub print_login { my ($dom,$phase,$settings) = @_; my %choices = &login_choices(); my ($catalogon,$catalogoff,$adminmailon,$adminmailoff); $catalogon = ' checked="checked" '; $adminmailoff = ' checked="checked" '; my @images = ('img','logo','domlogo'); my @bgs = ('pgbg','mainbg','sidebg'); my @links = ('link','alink','vlink'); my %designhash = &Apache::lonnet::get_domainconf($dom); my %defaultdesign = %Apache::loncommon::defaultdesign; my (%is_custom,%designs); my %defaults = ( font => $defaultdesign{'login.font'}, ); foreach my $item (@images) { $defaults{$item} = $defaultdesign{'login.'.$item}; } foreach my $item (@bgs) { $defaults{'bgs'}{$item} = $defaultdesign{'login.'.$item}; } foreach my $item (@links) { $defaults{'links'}{$item} = $defaultdesign{'login.'.$item}; } if (ref($settings) eq 'HASH') { if ($settings->{'coursecatalog'} eq '0') { $catalogoff = $catalogon; $catalogon = ' '; } if ($settings->{'adminmail'} eq '1') { $adminmailon = $adminmailoff; $adminmailoff = ' '; } foreach my $item (@images) { if ($settings->{$item} ne '') { $designs{$item} = $settings->{$item}; $is_custom{$item} = 1; } } if ($settings->{'font'} ne '') { $designs{'font'} = $settings->{'font'}; $is_custom{'font'} = 1; } foreach my $item (@bgs) { if ($settings->{$item} ne '') { $designs{'bgs'}{$item} = $settings->{$item}; $is_custom{$item} = 1; } } foreach my $item (@links) { if ($settings->{$item} ne '') { $designs{'links'}{$item} = $settings->{$item}; $is_custom{$item} = 1; } } } else { $designs{'domlogo'} = ''; if (-e '/home/httpd/html/adm/lonDomLogos/'.$dom.'.gif') { $designs{'domlogo'} = '/home/httpd/html/adm/lonDomLogos/'.$dom.'.gif'; $is_custom{'domlogo'} = 1; } if ($designhash{$dom.'.login.img'} ne '') { $designs{'img'} = $designhash{$dom.'.login.img'}; $is_custom{'img'} = 1; } if ($designhash{$dom.'.login.logo'} ne '') { $designs{'logo'} = $designhash{$dom.'.login.logo'}; $is_custom{'logo'} = 1; } if ($designhash{$dom.'.login.font'} ne '') { $designs{'font'} = $designhash{$dom.'.login.font'}; $is_custom{'font'} = 1; } foreach my $item (@bgs) { if ($designhash{$dom.'.login.'.$item} ne '') { $designs{'bgs'}{$item} = $designhash{$dom.'.login.'.$item}; $is_custom{$item} = 1; } } foreach my $item (@links) { if ($designhash{$dom.'.login.'.$item} ne '') { $designs{'links'}{$item} = $designhash{$dom.'.login.'.$item}; $is_custom{$item} = 1; } } } my %alt_text = &Apache::lonlocal::texthash ( img => 'Log-in banner', logo => 'Institution Logo', domlogo => 'Domain Logo'); my $itemcount = 1; my $css_class = $itemcount%2?' class="LC_odd_row"':''; my $datatable = '<tr'.$css_class.'><td colspan="2">'.$choices{'coursecatalog'}. '</td><td>'. '<nobr><input type="radio" name="coursecatalog"'. $catalogon.' value="1" />'.&mt('Yes').' '. '<input type="radio" name="coursecatalog"'. $catalogoff.'value="0" />'.&mt('No').'</nobr></td>'. '</tr>'; $itemcount ++; $css_class = $itemcount%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'>'. '<td colspan="2">'.$choices{'adminmail'}.'</td>'. '<td><nobr>'. '<input type="radio" name="adminmail"'. $adminmailon.' value="1" />'.&mt('Yes').' '. '<input type="radio" name="adminmail"'. $adminmailoff.'value="0" />'.&mt('No').'</nobr></td>'; $itemcount ++; $datatable .= &display_color_options($dom,$phase,'login',$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text); $datatable .= '</tr></table></td></tr>'; return $datatable; } sub login_choices { my %choices = &Apache::lonlocal::texthash ( coursecatalog => 'Display Course Catalog link?', adminmail => "Display Administrator's E-mail Address?", img => "Header", logo => "Main Logo", domlogo => "Domain Logo", bgs => "Background colors", links => "Link colors", font => "Font color", pgbg => "Page", mainbg => "Main panel", sidebg => "Side panel", link => "Link", alink => "Active link", vlink => "Visited link", ); return %choices; } sub print_rolecolors { my ($phase,$role,$dom,$settings) = @_; my %choices = &color_font_choices(); my @bgs = ('pgbg','tabbg','sidebg'); my @links = ('link','alink','vlink'); my @images = ('img'); my %alt_text = &Apache::lonlocal::texthash(img => "Banner for $role role"); my %designhash = &Apache::lonnet::get_domainconf($dom); my %defaultdesign = %Apache::loncommon::defaultdesign; my (%is_custom,%designs); my %defaults = ( img => $defaultdesign{$role.'.img'}, font => $defaultdesign{$role.'.font'}, ); foreach my $item (@bgs) { $defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item}; } foreach my $item (@links) { $defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item}; } if (ref($settings) eq 'HASH') { if (ref($settings->{$role}) eq 'HASH') { if ($settings->{$role}->{'img'} ne '') { $designs{'img'} = $settings->{$role}->{'img'}; $is_custom{'img'} = 1; } if ($settings->{$role}->{'font'} ne '') { $designs{'font'} = $settings->{$role}->{'font'}; $is_custom{'font'} = 1; } foreach my $item (@bgs) { if ($settings->{$role}->{$item} ne '') { $designs{'bgs'}{$item} = $settings->{$role}->{$item}; $is_custom{$item} = 1; } } foreach my $item (@links) { if ($settings->{$role}->{$item} ne '') { $designs{'links'}{$item} = $settings->{$role}->{$item}; $is_custom{$item} = 1; } } } } else { if ($designhash{$dom.'.'.$role.'.img'} ne '') { $designs{img} = $designhash{$dom.'.'.$role.'.img'}; $is_custom{'img'} = 1; } if ($designhash{$dom.'.'.$role.'.font'} ne '') { $designs{font} = $designhash{$dom.'.'.$role.'.font'}; $is_custom{'font'} = 1; } foreach my $item (@bgs) { if ($designhash{$dom.'.'.$role.'.'.$item} ne '') { $designs{'bgs'}{$item} = $designhash{$dom.'.'.$role.'.'.$item}; $is_custom{$item} = 1; } } foreach my $item (@links) { if ($designhash{$dom.'.'.$role.'.'.$item} ne '') { $designs{'links'}{$item} = $designhash{$dom.'.'.$role.'.'.$item}; $is_custom{$item} = 1; } } } my $itemcount = 1; my $datatable = display_color_options($dom,$phase,$role,$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text); $datatable .= '</tr></table></td></tr>'; return $datatable; } sub display_color_options { my ($dom,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs, $images,$bgs,$links,$alt_text) = @_; my $configuname = $dom.'-domainconfig'; my $css_class = $itemcount%2?' class="LC_odd_row"':''; my $datatable = '<tr'.$css_class.'>'. '<td>'.$choices->{'font'}.'</td>'; if (!$is_custom->{'font'}) { $datatable .= '<td>'.&mt('Default in use:').' '.$defaults->{'font'}.'</td>'; } else { $datatable .= '<td> </td>'; } my $fontlink = &color_pick($phase,$role,'font',$choices->{'font'},$designs->{'font'}); $datatable .= '<td><nobr>'. '<input type="text" size="10" name="'.$role.'_font"'. ' value="'.$designs->{'font'}.'" />&nbsp'.$fontlink. '</nobr></td></tr>'; foreach my $img (@{$images}) { $itemcount ++; $css_class = $itemcount%2?' class="LC_odd_row"':''; $datatable .= '</tr><tr'.$css_class.'>'. '<td>'.$choices->{$img}.'</td>'; my $imgfile; if ($designs->{$img} ne '') { $imgfile = $designs->{$img}; } else { $imgfile = $defaults->{$img}; } if ($imgfile) { my $showfile; if ($imgfile =~ m-^(/uploaded/\Q$dom\E/\Q$configuname\E/portfolio.*)/([^/]+)$-) { my $urldir = $1; my $filename = $2; my @info = &Apache::lonnet::stat_file($designs->{$img}); if (@info) { my $thumbfile = 'tn-'.$filename; my @thumb=&Apache::lonnet::stat_file($urldir.'/'.$thumbfile); if (@thumb) { $showfile = $urldir.'/'.$thumbfile; } else { $showfile = $imgfile; } } else { $showfile = ''; } } elsif ($imgfile =~ m-^/(adm/[^/]+)/([^/]+)$-) { my $imgdir = $1; my $filename = $2; if (-e "/home/httpd/html/$imgdir/tn-".$filename) { $showfile = "/$imgdir/tn-".$filename; } else { my $input = "/home/httpd/html".$imgfile; my $output = '/home/httpd/html/'.$imgdir.'/tn-'.$filename; if (!-e $output) { system("convert -sample 200x50 $input $output"); } $showfile = '/'.$imgdir.'/tn-'.$filename; } } if ($showfile) { $datatable.= '<td>'; if (!$is_custom->{$img}) { $datatable .= &mt('Default in use:').'<br />'; } $datatable.= '<img src="'.$showfile.'" alt="'. $alt_text->{$img}.'" /></td>'; if ($is_custom->{$img}) { $datatable.='<td><nobr><input type="checkbox" name="'.$role.'_del_'.$img.'" value="1">'. &mt('Delete?').' '.&mt('Replace:').'</nobr><br />'; } else { $datatable.='<td valign="bottom">'.&mt('Upload:').'<br />'; } } else { $datatable .= '<td colspan="2" class="LC_right_item"><br />'. &mt('Upload:'); } } else { $datatable .= '<td colspan="2" class="LC_right_item"><br />'. &mt('Upload:'); } $datatable .= ' <input type="file" name="'.$role.'_'.$img.'" /></nobr></td></tr>'; } $itemcount ++; $css_class = $itemcount%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'>'. '<td>'.$choices->{'bgs'}.'</td>'; my $bgs_def; foreach my $item (@{$bgs}) { if (!$is_custom->{$item}) { $bgs_def .= '<td>'.$choices->{$item}.'<br />'.$defaults->{'bgs'}{$item}.'</td>'; } } if ($bgs_def) { $datatable .= '<td>'.&mt('Default(s) in use').'<br /><table border="0"><tr>'.$bgs_def.'</tr></table></td>'; } else { $datatable .= '<td> </td>'; } $datatable .= '<td class="LC_right_item">'. '<table border="0"><tr>'; foreach my $item (@{$bgs}) { my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'bgs'}{$item}); $datatable .= '<td align="center">'.$link; if ($designs->{'bgs'}{$item}) { $datatable .= '<span style="background-color:'.$designs->{'bgs'}{$item}.'width: 10px"> </span>'; } $datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'bgs'}{$item}. '" /></td>'; } $datatable .= '</tr></table></td></tr>'; $itemcount ++; $css_class = $itemcount%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'>'. '<td>'.$choices->{'links'}.'</td>'; my $links_def; foreach my $item (@{$links}) { if (!$is_custom->{$item}) { $links_def .= '<td>'.$choices->{$item}.'<br />'.$defaults->{'links'}{$item}.'</td>'; } } if ($links_def) { $datatable .= '<td>'.&mt('Default(s) in use').'<br /><table border="0"><tr>'.$links_def.'</tr></table></td>'; } else { $datatable .= '<td> </td>'; } $datatable .= '<td class="LC_right_item">'. '<table border="0"><tr>'; foreach my $item (@{$links}) { $datatable .= '<td align="center">'; my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'links'}{$item}); if ($designs->{'links'}{$item}) { $datatable.='<span style="color: '.$designs->{'links'}{$item}.';">'. $link.'</span>'; } else { $datatable .= $link; } $datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'links'}{$item}. '" /></td>'; } return $datatable; } sub color_pick { my ($phase,$role,$item,$desc,$curcol) = @_; my $link = '<a href="javascript:pjump('."'color_custom','".$desc. "','".$curcol."','".$role.'_'.$item."','parmform.pres','psub'". ');">'.$desc.'</a>'; 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; my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); my $othertitle = "All users"; my @types; if (ref($order) eq 'ARRAY') { @types = @{$order}; } if (@types == 0) { if (ref($usertypes) eq 'HASH') { @types = sort(keys(%{$usertypes})); } } my $typecount = 0; my $css_class; if (@types > 0) { foreach my $type (@types) { if (defined($usertypes->{$type})) { $typecount ++; $css_class = $typecount%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'>'. '<td>'.$usertypes->{$type}.'</td>'. '<td class="LC_right_item"><nobr>'. '<input type="text" name="quota_'.$type. '" value="'.$settings->{$type}. '" size="5" /> Mb</nobr></td></tr>'; } } $othertitle = "Other users"; } my $defaultquota = '20'; if (ref($settings) eq 'HASH') { if (defined($settings->{'default'})) { $defaultquota = $settings->{'default'}; } } $typecount ++; $css_class = $typecount%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'>'. '<td>'.&mt($othertitle).'</td>'. '<td class="LC_right_item"><nobr>'. '<input type="text" name="default" value="'. $defaultquota.'" size="5" /> Mb</nobr></td></tr>'; return $datatable; } sub print_autoenroll { my ($dom,$settings) = @_; my $defdom = $dom; my $autorun = &Apache::lonnet::auto_run(undef,$dom), my ($runon,$runoff); if (ref($settings) eq 'HASH') { if (exists($settings->{'run'})) { if ($settings->{'run'} eq '0') { $runoff = ' checked="checked" '; $runon = ' '; } else { $runon = ' checked="checked" '; $runoff = ' '; } } else { if ($autorun) { $runon = ' checked="checked" '; $runoff = ' '; } else { $runoff = ' checked="checked" '; $runon = ' '; } } if (exists($settings->{'sender_domain'})) { $defdom = $settings->{'sender_domain'}; } } my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1); my $datatable='<tr class="LC_odd_row">'. '<td>'.&mt('Auto-enrollment active?').'</td>'. '<td class="LC_right_item"><nobr>'. '<input type="radio" name="autoenroll_run"'. $runon.' value="1" />'.&mt('Yes').' '. '<input type="radio" name="autoenroll_run"'. $runoff.'value="0" />'.&mt('No').'</nobr></td>'. '</tr><tr>'. '<td>'.&mt('Notification messages - sender'). '</td><td class="LC_right_item"><nobr>'. &mt('username').': '. '<input type="text" name="sender_uname" value="'. $settings->{'sender_uname'}. '" size="10" />  '.&mt('domain'). ': '.$domform.'</nobr></td></tr>'; return $datatable; } sub print_autoupdate { my ($position,$dom,$settings) = @_; my $datatable; if ($position eq 'top') { my $updateon = ' '; my $updateoff = ' checked="checked" '; my $classlistson = ' '; my $classlistsoff = ' checked="checked" '; if (ref($settings) eq 'HASH') { if ($settings->{'run'} eq '1') { $updateon = $updateoff; $updateoff = ' '; } if ($settings->{'classlists'} eq '1') { $classlistson = $classlistsoff; $classlistsoff = ' '; } } my %title = ( run => 'Auto-update active?', classlists => 'Update information in classlists?', ); $datatable = '<tr class="LC_odd_row">'. '<td>'.&mt($title{'run'}).'</td>'. '<td class="LC_right_item"><nobr>'. '<input type="radio" name="autoupdate_run"'. $updateon.' value="1" />'.&mt('Yes').' '. '<input type="radio" name="autoupdate_run"'. $updateoff.'value="0" />'.&mt('No').'</nobr></td>'. '</tr><tr>'. '<td>'.&mt($title{'classlists'}).'</td>'. '<td class="LC_right_item"><nobr>'. '<input type="radio" name="classlists"'. $classlistson.' value="1" />'.&mt('Yes').' '. '<input type="radio" name="classlists"'. $classlistsoff.'value="0" />'.&mt('No').'</nobr></td>'. '</tr>'; } else { my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); my @types; if (ref($order) eq 'ARRAY') { @types = @{$order}; } if (@types == 0) { if (ref($usertypes) eq 'HASH') { @types = sort(keys(%{$usertypes})); } } my $othertitle = &mt('All users'); if (keys(%{$usertypes}) > 0) { $othertitle = &mt('Other users'); } my @fields = ('lastname','firstname','middlename','gen','email','id'); my %fieldtitles = &Apache::lonlocal::texthash ( id => 'Student/Employee ID', email => 'E-mail address', lastname => 'Last Name', firstname => 'First Name', middlename => 'Middle Name', gen => 'Generation', ); my $numrows = 0; if (@types > 0) { $datatable = &usertype_update_row($settings,$usertypes,\%fieldtitles, \@fields,\@types,\$numrows); } $datatable .= &usertype_update_row($settings,{'default' => $othertitle}, \%fieldtitles,\@fields,['default'], \$numrows); } return $datatable; } sub usertype_update_row { my ($settings,$usertypes,$fieldtitles,$fields,$types,$rownums) = @_; my $datatable; my $numinrow = 4; foreach my $type (@{$types}) { if (defined($usertypes->{$type})) { $$rownums ++; my $css_class = $$rownums%2?' class="LC_odd_row"':''; $datatable .= '<tr'.$css_class.'><td>'.$usertypes->{$type}. '</td><td class="LC_left_item"><table>'; for (my $i=0; $i<@{$fields}; $i++) { my $rem = $i%($numinrow); if ($rem == 0) { if ($i > 0) { $datatable .= '</tr>'; } $datatable .= '<tr>'; } my $check = ' '; if (ref($settings->{'fields'}) eq 'HASH') { if (ref($settings->{'fields'}{$type}) eq 'ARRAY') { if (grep(/^\Q$fields->[$i]\E$/,@{$settings->{'fields'}{$type}})) { $check = ' checked="checked" '; } } } if ($i == @{$fields}-1) { my $colsleft = $numinrow - $rem; if ($colsleft > 1) { $datatable .= '<td colspan="'.$colsleft.'">'; } else { $datatable .= '<td>'; } } else { $datatable .= '<td>'; } $datatable .= '<nobr><input type="checkbox" name="updateable_'. $type.'_'.$fields->[$i].'" '. '" value="1"'.$check.'/>'. $fieldtitles->{$fields->[$i]}.'</nobr></td>'; } $datatable .= '</tr></table></td></tr>'; } } return $datatable; } sub modify_login { 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; ($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') { if (($domconfig{'login'}{'coursecatalog'} eq '0') && ($env{'form.coursecatalog'} eq '1')) { $changes{'coursecatalog'} = 1; } elsif (($domconfig{'login'}{'coursecatalog'} eq '' || $domconfig{'login'}{'coursecatalog'} eq '1') && ($env{'form.coursecatalog'} eq '0')) { $changes{'coursecatalog'} = 1; } if (($domconfig{'login'}{'adminmail'} eq '1') && ($env{'form.adminmail'} eq '0')) { $changes{'adminmail'} = 1; } elsif (($domconfig{'login'}{'adminmail'} eq '' || $domconfig{'login'}{'adminmail'} eq '0') && ($env{'form.adminmail'} eq '1')) { $changes{'adminmail'} = 1; } if (keys(%changes) > 0 || $colchgtext) { $resulttext = &mt('Changes made:').'<ul>'; foreach my $item (sort(keys(%changes))) { $resulttext .= '<li>'.&mt("$title{$item} set to $offon[$env{'form.'.$item}]").'</li>'; } $resulttext .= $colchgtext.'</ul>'; } 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: ').'<ul>'. $errors.'</ul>'; } 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: ').'<ul>'. $errors.'</ul>'; } 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 .= '<li>'.$error.'</li>'; } } } 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:').'<br />'; } 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 .= '<h4>'.&mt($role).'</h4>'; } foreach my $key (sort(keys(%{$changes->{$role}}))) { if ($role ne 'login') { $resulttext .= '<ul>'; } if (ref($changes->{$role}{$key}) eq 'HASH') { if ($role ne 'login') { $resulttext .= '<li>'.&mt($choices{$key}).':<ul>'; } foreach my $item (sort(keys(%{$changes->{$role}{$key}}))) { if ($confhash->{$role}{$item} eq '') { $resulttext .= '<li>'.&mt("$choices{$item} set to default").'</li>'; } else { $resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$confhash->{$role}{$item}).'</li>'; } } if ($role ne 'login') { $resulttext .= '</ul></li>'; } } else { if ($confhash->{$role}{$key} eq '') { $resulttext .= '<li>'.&mt("$choices{$key} set to default").'</li>'; } else { $resulttext .= '<li>'.&mt("$choices{$key} set to [_1]",$confhash->{$role}{$key}).'</li>'; } } if ($role ne 'login') { $resulttext .= '</ul>'; } } } } return $resulttext; } sub modify_quotas { my ($dom,%domconfig) = @_; my ($resulttext,%changes); my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); my %formhash; foreach my $key (keys(%env)) { if ($key =~ /^form\.quota_(.+)$/) { $formhash{$1} = $env{$key}; } } if (ref($domconfig{'quotas'}) eq 'HASH') { foreach my $key (keys(%{$domconfig{'quotas'}})) { if (exists($formhash{$key})) { if ($formhash{$key} ne $domconfig{'quotas'}{$key}) { $changes{$key} = 1; } } else { $formhash{$key} = $domconfig{'quotas'}{$key}; } } } foreach my $key (keys(%formhash)) { if ($formhash{$key} ne '') { if (!exists($domconfig{'quotas'}{$key})) { $changes{$key} = 1; } } } my %quotahash = ( quotas => {%formhash}, ); my $putresult = &Apache::lonnet::put_dom('configuration',\%quotahash, $dom); if ($putresult eq 'ok') { if (keys(%changes) > 0) { $resulttext = &mt('Changes made:').'<ul>'; foreach my $item (sort(keys(%changes))) { $resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$usertypes->{$item},$formhash{$item}).'</li>'; } $resulttext .= '</ul>'; } else { $resulttext = &mt('No changes made to default quotas'); } } else { $resulttext = &mt('An error occurred: [_1]',$putresult); } return $resulttext; } sub modify_autoenroll { my ($dom,%domconfig) = @_; my ($resulttext,%changes); my %currautoenroll; if (ref($domconfig{'autoenroll'}) eq 'HASH') { foreach my $key (keys(%{$domconfig{'autoenroll'}})) { $currautoenroll{$key} = $domconfig{'autoenroll'}{$key}; } } my $autorun = &Apache::lonnet::auto_run(undef,$dom), my %title = ( run => 'Auto-enrollment active', sender => 'Sender for notification messages'); my @offon = ('off','on'); my %autoenrollhash = ( autoenroll => { run => $env{'form.autoenroll_run'}, sender_uname => $env{'form.sender_uname'}, sender_domain => $env{'form.sender_domain'}, } ); my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash, $dom); if ($putresult eq 'ok') { if (exists($currautoenroll{'run'})) { if ($currautoenroll{'run'} ne $env{'form.autoenroll_run'}) { $changes{'run'} = 1; } } elsif ($autorun) { if ($env{'form.autoenroll_run'} ne '1') { $changes{'run'} = 1; } } if (exists($currautoenroll{sender_uname})) { if ($currautoenroll{'sender_uname'} ne $env{'form.sender_uname'}) { $changes{'sender'} = 1; } } else { $changes{'sender'} = 1; } if (exists($currautoenroll{sender_domain})) { if ($currautoenroll{'sender_domain'} ne $env{'form.sender_domain'}) { $changes{'sender'} = 1; } } else { $changes{'sender'} = 1; } if (keys(%changes) > 0) { $resulttext = &mt('Changes made:').'<ul>'; if ($changes{'run'}) { $resulttext .= '<li>'.&mt("$title{'run'} set to $offon[$env{'form.autoenroll_run'}]").'</li>'; } if ($changes{'sender'}) { $resulttext .= '<li>'.&mt("$title{'sender'} set to [_1]",$env{'form.sender_uname'}.':'.$env{'form.sender_domain'}).'</li>'; } $resulttext .= '</ul>'; } else { $resulttext = &mt('No changes made to auto-enrollment settings'); } } else { $resulttext = &mt('An error occurred: [_1]',$putresult); } return $resulttext; } sub modify_autoupdate { my ($dom,%domconfig) = @_; my ($resulttext,%currautoupdate,%fields,%changes); if (ref($domconfig{'autoupdate'}) eq 'HASH') { foreach my $key (keys(%{$domconfig{'autoupdate'}})) { $currautoupdate{$key} = $domconfig{'autoupdate'}{$key}; } } my @offon = ('off','on'); my %title = &Apache::lonlocal::texthash ( run => 'Auto-update:', classlists => 'Updates to user information in classlists?' ); my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); my %fieldtitles = &Apache::lonlocal::texthash ( id => 'Student/Employee ID', email => 'E-mail address', lastname => 'Last Name', firstname => 'First Name', middlename => 'Middle Name', gen => 'Generation', ); my $othertitle = &mt('All users'); if (keys(%{$usertypes}) > 0) { $othertitle = "Other users"; } foreach my $key (keys(%env)) { if ($key =~ /^form\.updateable_(.+)_([^_]+)$/) { push(@{$fields{$1}},$2); } } my %updatehash = ( autoupdate => { run => $env{'form.autoupdate_run'}, classlists => $env{'form.classlists'}, fields => {%fields}, } ); foreach my $key (keys(%currautoupdate)) { if (($key eq 'run') || ($key eq 'classlists')) { if (exists($updatehash{autoupdate}{$key})) { if ($currautoupdate{$key} ne $updatehash{autoupdate}{$key}) { $changes{$key} = 1; } } } elsif ($key eq 'fields') { if (ref($currautoupdate{$key}) eq 'HASH') { foreach my $item (keys(%{$currautoupdate{$key}})) { if (ref($currautoupdate{$key}{$item}) eq 'ARRAY') { my $change = 0; foreach my $type (@{$currautoupdate{$key}{$item}}) { if (!exists($fields{$item})) { $change = 1; } elsif (ref($fields{$item}) eq 'ARRAY') { if (!grep/^\Q$type\E$/,@{$fields{$item}}) { $change = 1; } } } if ($change) { push(@{$changes{$key}},$item); } } } } } } foreach my $key (keys(%fields)) { if (ref($currautoupdate{'fields'}) eq 'HASH') { if (!exists($currautoupdate{'fields'}{$key})) { push(@{$changes{'fields'}},$key); } } else { push(@{$changes{'fields'}},$key); } } my $putresult = &Apache::lonnet::put_dom('configuration',\%updatehash, $dom); if ($putresult eq 'ok') { if (keys(%changes) > 0) { $resulttext = &mt('Changes made:').'<ul>'; foreach my $key (sort(keys(%changes))) { if (ref($changes{$key}) eq 'ARRAY') { foreach my $item (@{$changes{$key}}) { my @newvalues; foreach my $type (@{$fields{$item}}) { push(@newvalues,$fieldtitles{$type}); } my $newvaluestr; if (@newvalues > 0) { $newvaluestr = join(', ',@newvalues); } else { $newvaluestr = &mt('none'); } if ($item eq 'default') { $resulttext .= '<li>'.&mt("Updates for $othertitle set to: [_1]",$newvaluestr).'</li>'; } else { $resulttext .= '<li>'.&mt("Updates for [_1] set to: [_2]",$usertypes->{$item},$newvaluestr).'</li>'; } } } else { my $newvalue; if ($key eq 'run') { $newvalue = $offon[$env{'form.autoupdate_run'}]; } else { $newvalue = $offon[$env{'form.'.$key}]; } $resulttext .= '<li>'.&mt("[_1] set to $newvalue",$title{$key}).'</li>'; } } $resulttext .= '</ul>'; } else { $resulttext = &mt('No changes made to autoupdates'); } } else { $resulttext = &mt('An error occurred: [_1]',$putresult); } return $resulttext; } 1;