loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.142, 2006/06/28 21:12:50	version 1.144, 2006/07/18 17:24:33
Line 378 sub start_customresponse {	Line 378 sub start_customresponse {
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::text_arg('String to display for answer:',	$result.=&Apache::edit::text_arg('String to display for answer:',
'answerdisplay',$token);	'answerdisplay',$token).
	&Apache::loncommon::help_open_topic('Custom_Response_Problems','How to write custom responses');
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();	$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag;	my $constructtag;
Line 989 sub add_to_gradingqueue {	Line 990 sub add_to_gradingqueue {
# a return of 3 means it after the answer date	# a return of 3 means it after the answer date
sub check_status {	sub check_status {
my ($id)=@_;	my ($id)=@_;
if (!$id) { $id=$Apache::linputtags::part; }	if (!defined($id)) { $id=$Apache::inputtags::part; }
my $curtime=&Apache::lonnet::EXT('system.time');	my $curtime=&Apache::lonnet::EXT('system.time');
my $opendate=&Apache::lonnet::EXT("resource.$id.opendate");	my $opendate=&Apache::lonnet::EXT("resource.$id.opendate");
my $duedate=&Apache::lonnet::EXT("resource.$id.duedate");	my $duedate=&Apache::lonnet::EXT("resource.$id.duedate");