loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.162 and 1.164

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.162, 2003/04/03 20:05:21	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 319 sub start_problem {	Line 319 sub start_problem {
#handle rand seed in construction space	#handle rand seed in construction space
my $rndseed=&setup_rndseed($safeeval);	my $rndseed=&setup_rndseed($safeeval);
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonxml::whichuser();
if ($ENV{'request.state'} ne "construct" \|\| $symb eq '') {	if ($ENV{'request.state'} ne "construct" && $symb eq '') {
$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);

Removed from v.1.162
changed lines
	Added in v.1.164