loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2003/06/04 23:04:34	version 1.56, 2003/06/16 15:09:23
Line 75 sub tag_end {	Line 75 sub tag_end {
my ($target,$token,$description) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	$result.="</td></tr>".&end_table()."\n";
if (!defined($description)) {
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>";
} else {
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; }
}
$result.="</tr>".&end_table()."\n";
}	}
return $result;	return $result;
}	}
Line 310 sub insert_essayresponse {	Line 304 sub insert_essayresponse {
</essayresponse>';	</essayresponse>';
}	}

	sub insert_imageresponse {
	return '
	<imageresponse max="1">
	<foilgroup>
	</foilgroup>
	<hintgroup>
	</hintgroup>
	</imageresponse>';
	}

sub insert_optionresponse {	sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
Line 647 sub browse {	Line 651 sub browse {
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $result = <<"ENDBUTTON";	my $result = <<"ENDBUTTON";
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a>	<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a>
ENDBUTTON	ENDBUTTON
return $result;	return $result;
}	}