version 1.19, 2011/06/05 12:59:47
|
version 1.20, 2011/10/19 21:15:53
|
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,$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 126 $jscript
|
Line 127 $jscript
|
<input type="hidden" name="pres_value" /> |
<input type="hidden" name="pres_value" /> |
</form> |
</form> |
'); |
'); |
|
if ($container) { |
|
&Apache::lonparmset::startSettingsScreen($r,$container); |
|
} |
$r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'. |
$r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'. |
' enctype="multipart/form-data">'); |
' enctype="multipart/form-data">'); |
return; |
return; |
} |
} |
|
|
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 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 ($container) { |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
} |
|
$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 182 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 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,$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 274 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,$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 287 sub display_settings {
|
Line 295 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". |
Line 336 sub display_choices {
|
Line 344 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; |