loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2000/11/21 18:36:37	version 1.11, 2000/11/22 00:00:54
Line 67 sub caparesponse_check {	Line 67 sub caparesponse_check {

sub tex {	sub tex {
if ( $external::target eq "tex" ) {	if ( $external::target eq "tex" ) {
#$SCRIPT_RESULT.=@_[0];
return @_[0];	return @_[0];
} else {	} else {
#$SCRIPT_RESULT.=@_[1];
return @_[1];	return @_[1];
}	}
}	}

sub web {	sub web {
if ( $external::target eq "tex" ) {	if ( $external::target eq "tex" ) {
#$SCRIPT_RESULT.=@_[1];
return @_[1];	return @_[1];
} else {	} else {
if ( $external::target eq "web") {	if ( $external::target eq "web") {
#$SCRIPT_RESULT.=@_[0];
return @_[0];	return @_[0];
} else {	} else {
#$SCRIPT_RESULT.=@_[2];
return @_[2];	return @_[2];
}	}
}	}
}	}

sub problem {	sub problem {
$SCRIPT_RESULT.='1';	return '1';
return '';
}	}

sub hinton {	sub hinton {
Line 113 sub asin { atan2($_[0], sqrt(1- $_[0] *	Line 107 sub asin { atan2($_[0], sqrt(1- $_[0] *

sub html {	sub html {
if ( $external::target eq "web" ) {	if ( $external::target eq "web" ) {
#$SCRIPT_RESULT.=@_[0];
return @_[0];	return @_[0];
}	}
}	}
Line 125 sub floor {return int($_[0]); }	Line 118 sub floor {return int($_[0]); }

sub format {	sub format {
my ($value,$fmt)=@_;	my ($value,$fmt)=@_;
$SCRIPT_RESULT.=sprintf('%.'.$fmt,$value);	return sprintf('%.'.$fmt,$value);
return $SCRIPT_RESULT;
}	}

sub map {	sub map {