loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.390, 2007/08/14 04:29:37	version 1.392, 2007/08/31 19:31:16
Line 157 function setSubmittedPart (part) {	Line 157 function setSubmittedPart (part) {
$body_args{'no_title'} = 1;	$body_args{'no_title'} = 1;
$body_args{'force_register'} = 1;	$body_args{'force_register'} = 1;
$body_args{'add_entries'} = \%add_entries;	$body_args{'add_entries'} = \%add_entries;
	if ($env{'environment.remote'} eq 'off'
	&& $env{'request.state'} eq 'construct') {
	$body_args{'only_body'} = 1;
	}
}	}
$body_args{'no_auto_mt_title'} = 1;	$body_args{'no_auto_mt_title'} = 1;
my $page_start = &Apache::loncommon::start_page($name,$extra_head,	my $page_start = &Apache::loncommon::start_page($name,$extra_head,
Line 207 sub get_resource_name {	Line 211 sub get_resource_name {
$name = $Apache::lonhomework::name;	$name = $Apache::lonhomework::name;
} else {	} else {
my ($symb)=&Apache::lonnet::whichuser();	my ($symb)=&Apache::lonnet::whichuser();
my $name=&Apache::lonnet::gettitle($symb);	$name=&Apache::lonnet::gettitle($symb);
if ($name eq '') {	if ($name eq '') {
$name=&Apache::lonnet::EXT('resource.title');	$name=&Apache::lonnet::EXT('resource.title');
if ($name eq 'con_lost') { $name = ''; }	if ($name eq 'con_lost') { $name = ''; }