version 1.8.2.4, 2010/11/19 13:09:36
|
version 1.21.4.2, 2012/12/10 23:31:38
|
Line 37 use Apache::lonhtmlcommon();
|
Line 37 use Apache::lonhtmlcommon();
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub print_header { |
sub print_header { |
my ($r,$phase,$context,$jscript) = @_; |
my ($r,$phase,$context,$jscript,$container) = @_; |
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','View/Modify Domain Settings'); |
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings'); |
Line 93 function changePage(formname,newphase) {
|
Line 93 function changePage(formname,newphase) {
|
formname.submit(); |
formname.submit(); |
}'."\n"; |
}'."\n"; |
if ($phase eq 'pickactions') { |
if ($phase eq 'pickactions') { |
|
$js .= &Apache::lonhtmlcommon::color_picker(); |
$js .= |
$js .= |
&Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n"; |
&Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n"; |
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
|
$js .= &Apache::lonhtmlcommon::color_picker(); |
$js .= &color_pick_js()."\n"; |
$js .= &color_pick_js()."\n"; |
} |
} |
$js .= &Apache::loncommon::viewport_size_js().' |
$js .= &Apache::loncommon::viewport_size_js().' |
Line 132 $jscript
|
Line 134 $jscript
|
} |
} |
|
|
sub print_footer { |
sub print_footer { |
my ($r,$phase,$newphase,$button_text,$actions) = @_; |
my ($r,$phase,$newphase,$button_text,$actions,$container) = @_; |
$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="" />'); |
if (defined($env{'form.origin'})) { |
if (defined($env{'form.origin'})) { |
Line 147 sub print_footer {
|
Line 149 sub print_footer {
|
} |
} |
my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"'; |
my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"'; |
if ($phase eq 'process') { |
if ($phase eq 'process') { |
$r->print('<p><a href='.$dest.'>'.$button_text.'</a></p>'); |
$r->print( |
|
&Apache::lonhtmlcommon::actionbox( |
|
['<a href='.$dest.'>'.$button_text.'</a>'])); |
} else { |
} else { |
my $onclick; |
my $onclick; |
if ($phase eq 'display') { |
if ($phase eq 'display') { |
Line 159 sub print_footer {
|
Line 163 sub print_footer {
|
$button_text.'" onclick='.$onclick.' /></p>'); |
$button_text.'" onclick='.$onclick.' /></p>'); |
} |
} |
if ($phase eq 'process') { |
if ($phase eq 'process') { |
$r->print('</form>'.&Apache::loncommon::end_page()); |
$r->print('</form>'); |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
return; |
return; |
} |
} |
|
|
sub make_changes { |
sub make_changes { |
my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$roles,$allitems) = @_; |
my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$roles,$allitems,$container) = @_; |
my %brcrumtext = &get_crumb_text(); |
my %brcrumtext = &get_crumb_text(); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
my ($numchanged,%changes,%disallowed); |
my ($numchanged,%changes,%disallowed); |
Line 174 sub make_changes {
|
Line 179 sub make_changes {
|
text=>$brcrumtext{$context}}, |
text=>$brcrumtext{$context}}, |
{href=>"javascript:changePage(document.$phase,'$phase')", |
{href=>"javascript:changePage(document.$phase,'$phase')", |
text=>"Updated"}); |
text=>"Updated"}); |
&print_header($r,$phase,$context); |
&print_header($r,$phase,$context,undef,$container); |
my $crstype; |
my $crstype; |
if ($context eq 'course') { |
if ($context eq 'course') { |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
Line 229 sub make_changes {
|
Line 234 sub make_changes {
|
if ($context eq 'course') { |
if ($context eq 'course') { |
$footer_text = 'Back to display/edit settings'; |
$footer_text = 'Back to display/edit settings'; |
} |
} |
&print_footer($r,$phase,'display',$footer_text,\@actions); |
&print_footer($r,$phase,'display',$footer_text,\@actions,$container); |
$r->print('</p>'); |
$r->print('</p>'); |
} |
} |
|
|
sub display_settings { |
sub display_settings { |
my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$jscript, |
my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$jscript, |
$allitems,$crstype) = @_; |
$allitems,$crstype,$container) = @_; |
my %brcrumtext = &get_crumb_text(); |
my %brcrumtext = &get_crumb_text(); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({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,$container); |
my $divwidth = 900; |
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) { |
Line 251 sub display_settings {
|
Line 256 sub display_settings {
|
if (grep(/^\Q$item\E$/,@actions)) { |
if (grep(/^\Q$item\E$/,@actions)) { |
push(@items,$item); |
push(@items,$item); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
|
if ($item eq 'usersessions') { |
|
$r->print('<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
&Apache::loncommon::check_uncheck_jscript()."\n". |
|
'// ]]>'."\n". |
|
'</script>'."\n"); |
|
} |
($output{$item},$rowtotal{$item}) = |
($output{$item},$rowtotal{$item}) = |
&Apache::domainprefs::print_config_box($r,$dom,$confname, |
&Apache::domainprefs::print_config_box($r,$dom,$confname, |
$phase,$item,$prefs->{$item},$values->{$item}); |
$phase,$item,$prefs->{$item},$values->{$item}); |
Line 267 sub display_settings {
|
Line 279 sub display_settings {
|
$r->print($output{$items[$i]}); |
$r->print($output{$items[$i]}); |
} |
} |
$r->print('</div>'); |
$r->print('</div>'); |
$r->print(&print_footer($r,$phase,'process','Save',\@actions)); |
$r->print(&print_footer($r,$phase,'process','Save Changes',\@actions,$container)); |
} else { |
} else { |
$r->print('<input type="hidden" name="phase" value="" />'. |
$r->print('<input type="hidden" name="phase" value="" />'. |
'<span class="LC_error">'.&mt('No settings chosen'). |
'<span class="LC_error">'.&mt('No settings chosen'). |
Line 280 sub display_settings {
|
Line 292 sub display_settings {
|
} |
} |
|
|
sub display_choices { |
sub display_choices { |
my ($r,$phase,$context,$prefs_order,$prefs) = @_; |
my ($r,$phase,$context,$prefs_order,$prefs,$container) = @_; |
if ($phase eq '') { |
if ($phase eq '') { |
$phase = 'pickactions'; |
$phase = 'pickactions'; |
} |
} |
my %helphash; |
my %helphash; |
&print_header($r,$phase,$context); |
&print_header($r,$phase,$context,undef,$container); |
$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"); |
'</script>'."\n"); |
$r->print('<h3>'.&mt('Settings to display/modify').'</h3>'."\n". |
$r->print('<h3>'.&mt('Settings to display/modify').'</h3>'. |
'<div><input type="button" value="'.&mt('check all').'" '. |
'<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)" />'. |
'</div><br />'."\n". |
"\n". |
'<div class="LC_left_float">'); |
'</div><div class="LC_left_float">'); |
my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count); |
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}; |
Line 313 sub display_choices {
|
Line 325 sub display_choices {
|
$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(&Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}). |
$r->print('<h4>'. |
|
&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><br />'); |
'" /> '.&mt($prefs->{$item}->{'text'}).'</label></h4>'); |
$count ++; |
$count ++; |
if ((!$seconddiv) && ($count >= $firstthird)) { |
if ((!$seconddiv) && ($count >= $firstthird)) { |
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
Line 328 sub display_choices {
|
Line 341 sub display_choices {
|
} |
} |
$r->print('</div><br clear="all" />'); |
$r->print('</div><br clear="all" />'); |
} |
} |
$r->print(&print_footer($r,$phase,'display','Display')); |
$r->print(&print_footer($r,$phase,'display','Display',undef,$container)); |
$r->print('</form>'); |
$r->print('</form>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
Line 337 sub display_choices {
|
Line 350 sub display_choices {
|
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"; |
function pclose() { |
|
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms","height=350,width=350,scrollbars=no,menubar=no"); |
|
parmwin.close(); |
|
} |
|
|
|
$pjump_def |
$pjump_def |
|
|
function psub() { |
function psub() { |
pclose(); |
modalWindow.close(); |
if (document.parmform.pres_marker.value!='') { |
if (document.parmform.pres_marker.value!='') { |
if (document.parmform.pres_type.value!='') { |
if (document.parmform.pres_type.value!='') { |
eval('document.display.'+ |
eval('document.display.'+ |