version 1.8, 2009/11/23 21:45:18
|
version 1.8.2.4, 2010/11/19 13:09:36
|
Line 40 sub print_header {
|
Line 40 sub print_header {
|
my ($r,$phase,$context,$jscript) = @_; |
my ($r,$phase,$context,$jscript) = @_; |
my ($pagetitle,$brcrumtitle,$action,$call_category_check); |
my ($pagetitle,$brcrumtitle,$action,$call_category_check); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings'); |
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings'); |
$action = '/adm/domainprefs'; |
$action = '/adm/domainprefs'; |
if ($phase eq 'display') { |
if ($phase eq 'display') { |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
Line 94 function changePage(formname,newphase) {
|
Line 94 function changePage(formname,newphase) {
|
}'."\n"; |
}'."\n"; |
if ($phase eq 'pickactions') { |
if ($phase eq 'pickactions') { |
$js .= |
$js .= |
&Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox',numcols => 'radio',})."\n". |
&Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n"; |
&javascript_set_colnums(); |
|
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
$js .= &color_pick_js()."\n"; |
$js .= &color_pick_js()."\n"; |
} |
} |
Line 114 $jscript
|
Line 113 $jscript
|
my $additem; |
my $additem; |
if ($phase eq 'pickactions') { |
if ($phase eq 'pickactions') { |
my %loaditems = ( |
my %loaditems = ( |
'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);setDisplayColumns();setFormElements(document.pickactions);", |
'onload' => "setFormElements(document.pickactions);", |
); |
|
$additem = {'add_entries' => \%loaditems,}; |
|
} else { |
|
my %loaditems = ( |
|
'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);", |
|
); |
); |
$additem = {'add_entries' => \%loaditems,}; |
$additem = {'add_entries' => \%loaditems,}; |
} |
} |
Line 140 $jscript
|
Line 134 $jscript
|
sub print_footer { |
sub print_footer { |
my ($r,$phase,$newphase,$button_text,$actions) = @_; |
my ($r,$phase,$newphase,$button_text,$actions) = @_; |
$button_text = &mt($button_text); |
$button_text = &mt($button_text); |
$r->print('<input type="hidden" name="phase" value="" />'. |
$r->print('<input type="hidden" name="phase" value="" />'); |
'<input type="hidden" name="width" value="'. |
|
$env{'form.width'}.'" />'. |
|
'<input type="hidden" name="height" value="'. |
|
$env{'form.height'}.'" />'); |
|
if (defined($env{'form.origin'})) { |
if (defined($env{'form.origin'})) { |
$r->print('<input type="hidden" name="origin" value="'.$env{'form.origin'}.'" />'."\n"); |
$r->print('<input type="hidden" name="origin" value="'.$env{'form.origin'}.'" />'."\n"); |
} |
} |
if (($phase eq 'display') || ($phase eq 'process')) { |
if (($phase eq 'display') || ($phase eq 'process')) { |
if (ref($actions) eq 'ARRAY') { |
if (ref($actions) eq 'ARRAY') { |
foreach my $item (@{$actions}) { |
foreach my $item (@{$actions}) { |
$r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n"; |
$r->print('<input type="hidden" name="actions" value="'.$item.'" />'."\n"); |
} |
} |
} |
} |
$r->print('<input type="hidden" name="numcols" value="'.$env{'form.numcols'}.'" />'); |
|
} |
} |
my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"'; |
my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"'; |
if ($phase eq 'process') { |
if ($phase eq 'process') { |
Line 212 sub make_changes {
|
Line 201 sub make_changes {
|
} |
} |
if ($context eq 'course') { |
if ($context eq 'course') { |
if ($numchanged) { |
if ($numchanged) { |
$r->print(&Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions, |
my $message = &Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions, |
$prefs,$values,\%changes,$crstype)); |
$prefs,$values,\%changes,$crstype); |
|
$r->print(&Apache::loncommon::confirmwrapper($message)); |
} else { |
} else { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print(&mt("No changes made to community configuration.")); |
$r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to community configuration."))); |
} else { |
} else { |
$r->print(&mt("No changes made to course configuration.")); |
$r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to course configuration."))); |
} |
} |
} |
} |
if (keys(%disallowed) > 0) { |
if (keys(%disallowed) > 0) { |
Line 252 sub display_settings {
|
Line 242 sub display_settings {
|
({href=>"javascript:changePage(document.$phase,'display')", |
({href=>"javascript:changePage(document.$phase,'display')", |
text=>"Display/Edit Settings"}); |
text=>"Display/Edit Settings"}); |
&print_header($r,$phase,$context,$jscript); |
&print_header($r,$phase,$context,$jscript); |
|
my $divwidth = 900; |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { |
if (@actions > 0) { |
if (@actions > 0) { |
my $rowsum = 0; |
my $rowsum = 0; |
my (%output,%rowtotal,@items); |
my (%output,%rowtotal,@items); |
my $halfway = @actions/2; |
|
foreach my $item (@{$prefs_order}) { |
foreach my $item (@{$prefs_order}) { |
if (grep(/^\Q$item\E$/,@actions)) { |
if (grep(/^\Q$item\E$/,@actions)) { |
push(@items,$item); |
push(@items,$item); |
Line 272 sub display_settings {
|
Line 262 sub display_settings {
|
$rowsum += $rowtotal{$item}; |
$rowsum += $rowtotal{$item}; |
} |
} |
} |
} |
my $colend; |
$r->print('<div id="prefs" style="max-width:'.$divwidth.'px;margin: 10px auto 10px auto;">'); |
my $halfway = $rowsum/2; |
|
my $aggregate = 0; |
|
my $sumleft = 0; |
|
my $sumright = 0; |
|
my $crossover; |
|
for (my $i=0; $i<@items; $i++) { |
for (my $i=0; $i<@items; $i++) { |
$aggregate += $rowtotal{$items[$i]}; |
|
if ($aggregate > $halfway) { |
|
$crossover = $i; |
|
last; |
|
} |
|
} |
|
for (my $i=0; $i<$crossover; $i++) { |
|
$sumleft += $rowtotal{$items[$i]}; |
|
} |
|
for (my $i=$crossover+1; $i<@items; $i++) { |
|
$sumright += $rowtotal{$items[$i]}; |
|
} |
|
if ((@items > 1) && ($env{'form.numcols'} == 2)) { |
|
my $sumdiff = $sumright - $sumleft; |
|
if ($sumdiff > 0) { |
|
$colend = $crossover + 1; |
|
} else { |
|
$colend = $crossover; |
|
} |
|
} else { |
|
$colend = @items; |
|
} |
|
$r->print('<p><table class="LC_double_column"><tr><td class="LC_left_col">'); for (my $i=0; $i<$colend; $i++) { |
|
$r->print($output{$items[$i]}); |
$r->print($output{$items[$i]}); |
} |
} |
$r->print('</td><td></td><td class="LC_right_col">'); |
$r->print('</div>'); |
if ($colend < @items) { |
|
for (my $i=$colend; $i<@items; $i++) { |
|
$r->print($output{$items[$i]}); |
|
} |
|
} |
|
$r->print('</td></tr></table></p>'); |
|
$r->print(&print_footer($r,$phase,'process','Save',\@actions)); |
$r->print(&print_footer($r,$phase,'process','Save',\@actions)); |
} else { |
} else { |
$r->print('<input type="hidden" name="phase" value="" />'. |
$r->print('<input type="hidden" name="phase" value="" />'. |
'<input type="hidden" name="numcols" value="'. |
'<span class="LC_error">'.&mt('No settings chosen'). |
$env{'form.numcols'}.'" />'."\n". |
'</span>'); |
'<span class="LC_error">'.&mt('No settings chosen'). |
|
'</span>'); |
|
} |
} |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
Line 332 sub display_choices {
|
Line 286 sub display_choices {
|
} |
} |
my %helphash; |
my %helphash; |
&print_header($r,$phase,$context); |
&print_header($r,$phase,$context); |
$r->print('<h3>'.&mt('Settings to display/modify').'</h3>'); |
|
$r->print('<script type="text/javascript">'."\n". |
$r->print('<script type="text/javascript">'."\n". |
'// <![CDATA['."\n". |
'// <![CDATA['."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
'// ]]>'."\n". |
'// ]]>'."\n". |
'</script>'."\n".'<p><input type="button" value="'.&mt('check all').'" '. |
'</script>'."\n"); |
|
$r->print('<h3>'.&mt('Settings to display/modify').'</h3>'."\n". |
|
'<div><input type="button" value="'.&mt('check all').'" '. |
'onclick="javascript:checkAll(document.pickactions.actions)"'. |
'onclick="javascript:checkAll(document.pickactions.actions)"'. |
' />'.(' 'x2). |
' />'.(' 'x2). |
'<input type="button" value="'.&mt('uncheck all').'" '. |
'<input type="button" value="'.&mt('uncheck all').'" '. |
'onclick="javascript:uncheckAll(document.pickactions.actions)"'. |
'onclick="javascript:uncheckAll(document.pickactions.actions)" />'. |
' /></p><div class="LC_left_float">'); |
'</div><br />'."\n". |
my ($numitems,$midpoint,$seconddiv,$count); |
'<div class="LC_left_float">'); |
|
my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count); |
if (ref($prefs_order) eq 'ARRAY') { |
if (ref($prefs_order) eq 'ARRAY') { |
$numitems = @{$prefs_order}; |
$numitems = @{$prefs_order}; |
} |
} |
$midpoint = int($numitems/2); |
my $numcols = 3; |
if ($numitems%2) { |
$maxincol = int($numitems/$numcols); |
$midpoint ++; |
if ($numitems%$numcols) { |
|
$maxincol ++; |
} |
} |
|
$firstthird = $maxincol; |
|
$secondthird = $firstthird + $maxincol; |
$count = 0; |
$count = 0; |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) { |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) { |
foreach my $item (@{$prefs_order}) { |
foreach my $item (@{$prefs_order}) { |
$r->print('<h4>'. |
$r->print(&Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}). |
&Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}). |
|
'<label><input type="checkbox" name="actions" value="'.$item. |
'<label><input type="checkbox" name="actions" value="'.$item. |
'" /> '.&mt($prefs->{$item}->{'text'}).'</label></h4>'); |
'" /> '.&mt($prefs->{$item}->{'text'}).'</label><br />'); |
$count ++; |
$count ++; |
if ((!$seconddiv) && ($count >= $midpoint)) { |
if ((!$seconddiv) && ($count >= $firstthird)) { |
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
$seconddiv = 1; |
$seconddiv = 1; |
} |
} |
|
if ((!$thirddiv) && ($count >= $secondthird)) { |
|
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
|
$thirddiv = 1; |
|
} |
} |
} |
$r->print('</div><div class="LC_clear_float_footer"></div><h3>'. |
$r->print('</div><br clear="all" />'); |
&mt('Display options').'</h3>'."\n". |
|
'<p><span class="LC_nobreak">'.&mt('Display using: ')."\n". |
|
'<label><input type="radio" name="numcols" value="1" />'. |
|
&mt('one column').'</label> <label>'. |
|
'<input type="radio" name="numcols" value="2" />'. |
|
&mt('two columns').'</label></span></p>'); |
|
} |
} |
$r->print(&print_footer($r,$phase,'display','Go')); |
$r->print(&print_footer($r,$phase,'display','Display')); |
$r->print('</form>'); |
$r->print('</form>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
|
|
sub javascript_set_colnums { |
|
return <<END; |
|
function setDisplayColumns() { |
|
if (document.pickactions.width.value > 1100) { |
|
document.pickactions.numcols[1].checked = true; |
|
} else { |
|
document.pickactions.numcols[0].checked = true; |
|
} |
|
} |
|
END |
|
} |
|
|
|
sub color_pick_js { |
sub color_pick_js { |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $output = <<"ENDCOL"; |
my $output = <<"ENDCOL"; |