--- loncom/homework/response.pm	2003/07/14 18:41:40	1.81
+++ loncom/homework/response.pm	2003/09/22 20:49:01	1.85
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.81 2003/07/14 18:41:40 sakharuk Exp $
+# $Id: response.pm,v 1.85 2003/09/22 20:49:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -93,10 +93,13 @@ sub setrandomnumber {
        $rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
     }
     if ($rndseed =~/,/) {
-	my ($num1,$num2)=split(/,/,$rndseed);
-	$num1+=$rndmod;
-	$num2+=$rndmod;
-	$rndseed="$num1,$num2";
+	{
+	    use integer;
+	    my ($num1,$num2)=split(/,/,$rndseed);
+	    $num1+=$rndmod;
+	    $num2+=$rndmod;
+	    $rndseed="$num1,$num2";
+	}
     } else {
 	$rndseed+=$rndmod;
     }
@@ -275,6 +278,24 @@ sub end_dataresponse {
     return $result;
 }
 
+sub decide_package {
+    my ($tagstack)=@_;
+    my $package;
+    if ($$tagstack[-1] eq 'parameter') {
+	$package='part';
+    } else {
+	my $i=-1;
+	while (defined($$tagstack[$i])) {
+	    if ($$tagstack[$i] =~ /(response|hint)$/) {
+		$package=$$tagstack[$i];
+		last;
+	    }
+	    $i--;
+	}
+    }
+    return $package;
+}
+
 sub start_responseparam {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result='';
@@ -285,6 +306,19 @@ sub start_responseparam {
 					$token->[2]->{'description'});
     } elsif ($target eq 'edit') {
 	$result.=&Apache::edit::tag_start($target,$token);
+	my $optionlist;
+	my $package=&decide_package($tagstack);
+	foreach my $key (sort(keys(%Apache::lonnet::packagetab))) {
+	    if ($key =~ /^\Q$package\E&(.*)&display$/) {
+		$optionlist.='<option value="'.$1.'">'.
+		    $Apache::lonnet::packagetab{$key}.'</option>';
+	    }
+	}
+	if (defined($optionlist)) {
+	    $result.='Use template: <select name="'.
+		&Apache::edit::html_element_name('parameter_package').'">'.
+		    '<option value=""></option>'.$optionlist.'</select><br />';
+	}
 	$result.=&Apache::edit::text_arg('Name:','name',$token).
 	    &Apache::edit::text_arg('Type:','type',$token).
 		&Apache::edit::text_arg('Description:','description',$token).
@@ -292,9 +326,22 @@ sub start_responseparam {
 			"</td></tr>";
 	$result.=&Apache::edit::end_table;
     } elsif ($target eq 'modified') {
-	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
-						     'name','type','description',
-						     'default');
+	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
+						     $safeeval,'name','type',
+						     'description','default');
+	my $element=&Apache::edit::html_element_name('parameter_package');
+	if (defined($ENV{"form.$element"}) && $ENV{"form.$element"} ne '') {
+	    my $name=$ENV{"form.$element"};
+	    my $tag=&decide_package($tagstack);
+	    $token->[2]->{'name'}=$name;
+	    $token->[2]->{'type'}=
+		$Apache::lonnet::packagetab{"$tag&$name&type"};
+	    $token->[2]->{'description'}=
+		$Apache::lonnet::packagetab{"$tag&$name&display"};
+	    $token->[2]->{'default'}=
+		$Apache::lonnet::packagetab{"$tag&$name&default"};
+	    $constructtag=1;
+	}
 	if ($constructtag) {
 	    $result = &Apache::edit::rebuild_tag($token);
 	    $result.=&Apache::edit::handle_insert();
@@ -365,8 +412,8 @@ sub answer_header {
     my ($type) = @_;
     my $result;
     if ($ENV{'form.answer_output_mode'} eq 'tex') {
-	$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '.
-                  $Apache::inputtags::part.' \\\\ \hline ';
+	$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: \verb|'.
+                  $Apache::inputtags::part.'| \\\\ \hline ';
     } else {
 	$result = '<table border="1"><tr><td>Answer for Part:'.
 	    $Apache::inputtags::part. '</td>'."\n";
@@ -509,6 +556,14 @@ sub whichorder {
     return @whichopt;
 }
 
+sub show_answer {
+    my $part   = $Apache::inputtags::part;
+    my $award  = $Apache::lonhomework::history{"resource.$part.solved"};
+    my $status = $Apache::inputtags::status[-1];
+    return  ( ($award =~ /^correct/
+	       && lc($Apache::lonhomework::problemstatus) ne 'no')
+	      || $status eq "SHOW_ANSWER");
+}
 1;
 __END__