--- loncom/homework/response.pm	2008/09/08 16:08:36	1.202
+++ loncom/homework/response.pm	2008/11/24 16:53:26	1.207
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.202 2008/09/08 16:08:36 riegler Exp $
+# $Id: response.pm,v 1.207 2008/11/24 16:53:26 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -217,23 +217,26 @@ sub meta_stores_write {
 }
 
 sub mandatory_part_meta {
-#
-# Autogenerate metadata for mandatory
-# input (from RAT or lonparmset) and 
-# output (to lonspreadsheet)
-# of each part
+=pod
+
+=item meta_part_order
+
+Autogenerate metadata for mandatory
+input (from RAT or lonparmset) and 
+output (to lonspreadsheet)
+of each part
 #
     return
-#    &meta_parameter_write('opendate','date_start','',
-#                          'Opening Date').
-#    &meta_parameter_write('duedate','date_end','',
-#                          'Due Date').
-#    &meta_parameter_write('answerdate','date_start','',
-#                          'Show Answer Date').
-#    &meta_parameter_write('weight','int_zeropos','',
-#                          'Available Points').
-#    &meta_parameter_write('maxtries','int_pos','',
-#                          'Maximum Number of Tries').
+   &meta_parameter_write('opendate','date_start','',
+                         'Opening Date').
+   &meta_parameter_write('duedate','date_end','',
+                         'Due Date').
+   &meta_parameter_write('answerdate','date_start','',
+                         'Show Answer Date').
+   &meta_parameter_write('weight','int_zeropos','',
+                         'Available Points').
+   &meta_parameter_write('maxtries','int_pos','',
+                         'Maximum Number of Tries').
 	&meta_package_write('part').
         &meta_stores_write('solved','string',
 			   'Problem Status').
@@ -241,10 +244,12 @@ sub mandatory_part_meta {
 			   'Number of Attempts').
         &meta_stores_write('awarded','float',
 			   'Partial Credit Factor');
-#
-# Note: responseid-specific data 'submission' and 'awarddetail'
-# not available to spreadsheet -> skip here
-#
+
+Note: responseid-specific data 'submission' and 'awarddetail'
+not available to spreadsheet -> skip here
+
+=cut
+
 }
 
 sub meta_part_order {
@@ -572,7 +577,10 @@ sub end_mathresponse {
     }
     if ($target eq 'web') {
 	&setup_prior_tries_hash(\&format_prior_response_math);
-        if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&  (&Apache::lonxml::get_param('turnoneditor',$parstack,$safeeval) ne 'no')) {
+        my $partid = $Apache::inputtags::part;
+        my $id = $Apache::inputtags::response[-1];
+        if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')
+           && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {
             $result.=&edit_mathresponse_button($id,"HWVAL_$id");
         }
     }
@@ -677,7 +685,7 @@ sub start_responseparam {
 	    }
 	}
 	if (defined($optionlist)) {
-	    $result.='Use template: <select name="'.
+	    $result.=&mt('Use template:').' <select name="'.
 		&Apache::edit::html_element_name('parameter_package').'">'.
 		    '<option value=""></option>'.$optionlist.'</select><br />';
 	}
@@ -1189,7 +1197,7 @@ sub submitted {
     }
     # Submit All button on a .page was pressed
     if (defined($env{'form.all_submit'})) { return 1; }
-    # otherwise no submission occured
+    # otherwise no submission occurred
     return 0;
 }