--- loncom/homework/response.pm	2006/06/28 21:12:50	1.142
+++ loncom/homework/response.pm	2006/07/18 17:24:33	1.144
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.142 2006/06/28 21:12:50 albertel Exp $
+# $Id: response.pm,v 1.144 2006/07/18 17:24:33 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -378,7 +378,8 @@ sub start_customresponse {
     } elsif ($target eq 'edit') {
 	$result.=&Apache::edit::tag_start($target,$token);
 	$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();
     } elsif ($target eq 'modified') {
 	my $constructtag;
@@ -989,7 +990,7 @@ sub add_to_gradingqueue {
 # a return of 3 means it after the answer date
 sub check_status {
     my ($id)=@_;
-    if (!$id) {	$id=$Apache::linputtags::part; }
+    if (!defined($id)) { $id=$Apache::inputtags::part; }
     my $curtime=&Apache::lonnet::EXT('system.time');
     my $opendate=&Apache::lonnet::EXT("resource.$id.opendate");
     my $duedate=&Apache::lonnet::EXT("resource.$id.duedate");