loncom/interface/lonviewclasslist.pm - diff

Return to lonviewclasslist.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2023/09/26 19:11:02	version 1.20, 2023/09/27 14:52:27
Line 62 sub handler {	Line 62 sub handler {
return OK;	return OK;
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['register','forceedit','action','symb','todocs']);	['register','forceedit','action',
	'symb','todocs','only_body']);
if (! ($env{'request.course.fn'})) {	if (! ($env{'request.course.fn'})) {
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/viewclasslist:not in course role";	"/adm/viewclasslist:not in course role";
Line 76 sub handler {	Line 77 sub handler {
$start_page = &Apache::loncommon::start_page('Classlist',undef,	$start_page = &Apache::loncommon::start_page('Classlist',undef,
{'force_register' => $env{'form.register'}});	{'force_register' => $env{'form.register'}});
} else {	} else {
my $brcrum = [{'href' => 'adm/viewclasslist',	my $args = {};
'text' => 'View Classlist'},];	if ($env{'form.only_body'}) {
	$args->{'only_body'} = 1;
	} else {
	my $brcrum = [{'href' => 'adm/viewclasslist',
	'text' => 'View Classlist'},];
	$args->{'bread_crumbs'} = $brcrum;
	}
$start_page = &Apache::loncommon::start_page('Classlist',undef,	$start_page = &Apache::loncommon::start_page('Classlist',undef,
{'bread_crumbs' => $brcrum});	$args);
}	}
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
$start_page	$start_page