loncom/homework/daxepage.pm - diff

Return to daxepage.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.9, 2023/11/27 23:24:04	version 1.10, 2024/03/03 00:08:37
Line 31 package Apache::daxepage;	Line 31 package Apache::daxepage;
use strict;	use strict;

use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonnet();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonxml();	use Apache::lonxml();
use Apache::edit();	use Apache::edit();
Line 117 sub handler {	Line 118 sub handler {
'</td></tr></table>';	'</td></tr></table>';
}	}
$editheader .= '</div></form>'."\n";	$editheader .= '</div></form>'."\n";
	my $start_collapsed = &collapsible_std_LCmenus();
my $args = {	my $args = {
'collapsible_header' => $editheader,	'collapsible_header' => $editheader,
	'start_collapsed' => $start_collapsed,
};	};
my $startpage = &Apache::loncommon::start_page('Daxe: '.$name,$headjs,$args).	my $startpage = &Apache::loncommon::start_page('Daxe: '.$name,$headjs,$args).
&Apache::lonmenu::constspaceform();	&Apache::lonmenu::constspaceform();
Line 203 sub do_redirect {	Line 206 sub do_redirect {
return;	return;
}	}

	sub collapsible_std_LCmenus {
	my $daxecollapse = $Apache::lonnet::env{'environment.daxecollapse'};
	unless ($daxecollapse) {
	my %domdefs = &Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});
	if ($domdefs{'daxecollapse'}) {
	$daxecollapse = 'yes';
	}
	}
	if ($daxecollapse eq 'yes') {
	return 1;
	}
	return;
	}

1;	1;
__END__	__END__