loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.125, 2018/11/20 19:14:14	version 1.127, 2025/02/26 00:11:38
Line 118 sub draft_row {	Line 118 sub draft_row {
}	}
);	);
return &Apache::lonhtmlcommon::row_title($status_text).	return &Apache::lonhtmlcommon::row_title($status_text).
'<label>'.	'<fieldset class="LC_landmark">'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" />'.	'<legend class="LC_visually_hidden">'.$status_text.'</legend>'.
' '.$label{'submit'}{$resptype}.'</label> <br />'.	'<div><label><input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" />'.
'<label>'.	' '.$label{'submit'}{$resptype}.'</label></div>'.
	'<div><label>'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
$label{'draft'}{$resptype}.'</label>'.	$label{'draft'}{$resptype}.'</label></div></fieldset>'.
&Apache::lonhtmlcommon::row_closure($closure);	&Apache::lonhtmlcommon::row_closure($closure);
}	}

Line 246 sub end_essayresponse {	Line 247 sub end_essayresponse {
&Apache::lonnet::put('nohist_essay_'.$apath,	&Apache::lonnet::put('nohist_essay_'.$apath,
{ $akey => $response },$adom,$aname);	{ $akey => $response },$adom,$aname);
}	}
}	}
}	}
}	}
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();