--- loncom/homework/response.pm	2006/06/24 01:31:34	1.141
+++ 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.141 2006/06/24 01:31:34 albertel Exp $
+# $Id: response.pm,v 1.144 2006/07/18 17:24:33 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -131,8 +131,10 @@ sub setrandomnumber {
 	$id1=&Apache::bridgetask::get_dim_id();
 	if (!$ignore_id2 && ref($Apache::bridgetask::instance{$id1})) {
 	    $id2=$Apache::bridgetask::instance{$id1}[-1];
+	    $shift_amt=scalar(@{$Apache::bridgetask::instance{$id1}});
+	} else {
+	    $shift_amt=0;
 	}
-	$shift_amt=scalar(@{$Apache::bridgetask::instance{$id1}});
     } 
     &Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt");
     if (!$rand_alg || $rand_alg eq '32bit' || $rand_alg eq '64bit' ||
@@ -376,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;
@@ -987,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");