version 1.15, 2010/07/17 20:02:07
|
version 1.17, 2011/01/13 22:49:47
|
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)); |
|
&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 141 sub print_footer {
|
Line 143 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 161 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>'); |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
return; |
return; |
} |
} |