loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.29, 2001/01/08 13:55:08	version 1.31, 2001/01/15 21:44:21
Line 62 sub start_problem {	Line 62 sub start_problem {
my $args ='';	my $args ='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);	my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
	if ($name eq '') {
	$name=&Apache::lonnet::EXT('resource.title');
	if ($name eq 'con_lost') { $name = ''; }
	}
	$Apache::lonhomework::name=$name;
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
# create a page header and exit	# create a page header and exit
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";	return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes">';
} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\| $status eq 'CLOSED') {	} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\| $status eq 'CLOSED') {
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";	return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";
}	}