version 1.14, 2010/05/22 01:29:27
|
version 1.18, 2011/03/31 15:35:54
|
Line 35 use Apache::lonnet;
|
Line 35 use Apache::lonnet;
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonparmset(); |
|
|
sub print_header { |
sub print_header { |
my ($r,$phase,$context,$jscript) = @_; |
my ($r,$phase,$context,$jscript) = @_; |
Line 119 $jscript
|
Line 120 $jscript
|
} |
} |
$r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem)); |
$r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem)); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle)); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle)); |
|
if ($context eq 'course') { |
|
&Apache::lonparmset::startSettingsScreen($r,'coursepref'); |
|
} |
$r->print(' |
$r->print(' |
<form name="parmform" action=""> |
<form name="parmform" action=""> |
<input type="hidden" name="pres_marker" /> |
<input type="hidden" name="pres_marker" /> |
Line 132 $jscript
|
Line 136 $jscript
|
} |
} |
|
|
sub print_footer { |
sub print_footer { |
my ($r,$phase,$newphase,$button_text,$actions) = @_; |
my ($r,$context,$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="" />'); |
if (defined($env{'form.origin'})) { |
if (defined($env{'form.origin'})) { |
Line 141 sub print_footer {
|
Line 145 sub print_footer {
|
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"); |
} |
} |
} |
} |
} |
} |
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>'); |
|
if ($context eq 'course') { |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
} |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
return; |
return; |
} |
} |
Line 229 sub make_changes {
|
Line 237 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,$context,$phase,'display',$footer_text,\@actions); |
$r->print('</p>'); |
$r->print('</p>'); |
} |
} |
|
|
Line 251 sub display_settings {
|
Line 259 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 282 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 Changes',\@actions)); |
$r->print(&print_footer($r,$context,$phase,'process','Save Changes',\@actions)); |
} 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 357 sub display_choices {
|
Line 372 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,$context,$phase,'display','Display')); |
$r->print('</form>'); |
$r->print('</form>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |