version 1.21.4.4, 2014/01/05 19:15:48
|
version 1.27, 2013/10/06 21:25:59
|
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,$container) = @_; |
my ($r,$phase,$context,$jscript,$container) = @_; |
Line 94 function changePage(formname,newphase) {
|
Line 95 function changePage(formname,newphase) {
|
formname.submit(); |
formname.submit(); |
}'."\n"; |
}'."\n"; |
if ($phase eq 'pickactions') { |
if ($phase eq 'pickactions') { |
$js .= &Apache::lonhtmlcommon::color_picker(); |
$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 .= &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 129 $jscript
|
Line 130 $jscript
|
<input type="hidden" name="pres_value" /> |
<input type="hidden" name="pres_value" /> |
</form> |
</form> |
'); |
'); |
|
if ($container) { |
|
&Apache::lonparmset::startSettingsScreen($r,$container,$crstype); |
|
} |
$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; |
Line 165 sub print_footer {
|
Line 169 sub print_footer {
|
} |
} |
if ($phase eq 'process') { |
if ($phase eq 'process') { |
$r->print('</form>'); |
$r->print('</form>'); |
|
if ($container) { |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
return; |
return; |
Line 289 sub display_settings {
|
Line 296 sub display_settings {
|
} |
} |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
|
if ($container) { |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
Line 345 sub display_choices {
|
Line 355 sub display_choices {
|
} |
} |
$r->print(&print_footer($r,$phase,'display','Display',undef,$container)); |
$r->print(&print_footer($r,$phase,'display','Display',undef,$container)); |
$r->print('</form>'); |
$r->print('</form>'); |
|
if ($container) { |
|
&Apache::lonparmset::endSettingsScreen($r); |
|
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |