loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.219, 2003/10/30 20:52:54	version 1.221, 2003/11/03 21:47:21
Line 171 sub setup_rndseed {	Line 171 sub setup_rndseed {
if (defined($rndseed) && $rndseed ne int($rndseed)) {	if (defined($rndseed) && $rndseed ne int($rndseed)) {
$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));	$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));
}	}
&Apache::lonxml::debug("Setting rndseed to $rndseed");	if ($safeeval) {
&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);	&Apache::lonxml::debug("Setting rndseed to $rndseed");
	&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);
	}
}	}
return $rndseed;	return $rndseed;
}	}
Line 1159 sub start_simpleeditbutton {	Line 1161 sub start_simpleeditbutton {
my $result='';	my $result='';
if (($target eq 'web') &&	if (($target eq 'web') &&
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
my $url=$ENV{'REQUEST_URI'};	my $url=$ENV{'request.noversionuri'};
$url=~s/\?.*$//;	$url=~s/\?.*$//;
$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
'<a href="'.$url.'/smpedit">'.&mt('Simple Problem Editor').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').	'<a href="'.$url.'/smpedit">'.&mt('Simple Problem Editor').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').