loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.163, 2003/04/03 21:08:33	version 1.164, 2003/04/03 21:58:09
Line 279 sub start_problem {	Line 279 sub start_problem {
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
}	}
if ($Apache::lonhomework::type eq '') {	if ($Apache::lonhomework::type eq '' ) {
my $uri=$ENV{'request.uri'};	my $uri=$ENV{'request.uri'};
if ($uri=~/\.(\w+)$/) {	if ($uri=~/\.(\w+)$/) {
$Apache::lonhomework::type=$1;	$Apache::lonhomework::type=$1;
Line 323 sub start_problem {	Line 323 sub start_problem {
$form_tag_start.='<input type="hidden" name="rndseed" value="'.	$form_tag_start.='<input type="hidden" name="rndseed" value="'.
$rndseed.'" />'.	$rndseed.'" />'.
'<input type="submit" name="resetdata"	'<input type="submit" name="resetdata"
value="New Problem Variation" />';	value="New Problem Variation" />'.
	'<input type="hidden" name="username"
	value="'.$ENV{'form.username'}.'" />';
}	}
($status,$accessmsg) = &Apache::lonhomework::check_access('0');	($status,$accessmsg) = &Apache::lonhomework::check_access('0');
push (@Apache::inputtags::status,$status);	push (@Apache::inputtags::status,$status);