[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm lonparmset.pm

[www]

www		Tue Feb 27 15:35:23 2007 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm lonparmset.pm 
  Log:
  Bug #5177: configure what it says in feedback window
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.242 loncom/interface/lonfeedback.pm:1.243
--- loncom/interface/lonfeedback.pm:1.242	Thu Feb 22 19:39:31 2007
+++ loncom/interface/lonfeedback.pm	Tue Feb 27 15:35:22 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.242 2007/02/23 00:39:31 albertel Exp $
+# $Id: lonfeedback.pm,v 1.243 2007/02/27 20:35:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2559,21 +2559,25 @@
 		'<p><label><input type="radio" name="discuss" value="author" /> '.
 		&mt('Feedback to resource author').'</label></p>';
 	}
+        my %optionhash=();
+        foreach my $type ('question','comment','policy') {
+	    $optionhash{$type}=$env{'course.'.$env{'request.course.id'}.'.'.$type.'.email.text'};
+	}
 	if (&feedback_available(1)) {
 	    $msgoptions.=
 		'<p><label><input type="radio" name="discuss" value="question" /> '.
-		&mt('Question about resource content').'</label></p>';
+		($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label></p>';
 	}
 	if (&feedback_available(0,1)) {
 	    $msgoptions.=
 		'<p><label><input type="radio" name="discuss" value="course" /> '.
-		&mt('Question/Comment/Feedback about course content').
+		($optionhash{'comment'}?$optionhash{'comment'}:&mt('Question/Comment/Feedback about course content')).
 		'</label></p>';
 	}
 	if (&feedback_available(0,0,1)) {
 	    $msgoptions.=
 		'<p><label><input type="radio" name="discuss" value="policy" /> '.
-		&mt('Question/Comment/Feedback about course policy').
+		($optionhash{'policy'}?$optionhash{'policy'}:&mt('Question/Comment/Feedback about course policy')).
 		'</label></p>';
 	}
     }
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.359 loncom/interface/lonparmset.pm:1.360
--- loncom/interface/lonparmset.pm:1.359	Mon Jan 15 18:04:35 2007
+++ loncom/interface/lonparmset.pm	Tue Feb 27 15:35:22 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.359 2007/01/15 23:04:35 banghart Exp $
+# $Id: lonparmset.pm,v 1.360 2007/02/27 20:35:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2121,10 +2121,16 @@
              'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').
                                  '</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',
+             'question.email.text' => '<b>'.&mt('Custom Text for Resource Content Question Option in Feedback').
+                                 '</b>',
              'comment.email'  => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
                                  '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
+             'comment.email.text' => '<b>'.&mt('Custom Text for Course Content Option in Feedback').
+                                 '</b>',
              'policy.email'   => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
                                  '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
+             'policy.email.text' => '<b>'.&mt('Custom Text for Course Policy Option in Feedback').
+                                 '</b>',
              'hideemptyrows'  => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.
                                  '('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',
              'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
@@ -2207,7 +2213,7 @@
                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
 	     'task_messages'
-	         => '<b>'.&mt('Send message to student when clicking Done on Tasks. [_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','<tt>only_student</tt>','<tt>student_and_user_notes_screen</tt>').'</b>',
+	         => '<b>'.&mt('Send message to student when clicking Done on Tasks').'</b><br /> ('.&mt('[_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','<tt>only_student</tt>','<tt>student_and_user_notes_screen</tt>').')',
 	     'disablesigfigs'
 	         => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
@@ -2222,7 +2228,7 @@
         my @Display_Order = ('url','description','courseid','cloners','grading',
                              'externalsyllabus',
                              'default_xml_style','pageseparators',
-                             'question.email','comment.email','policy.email',
+                             'question.email','question.email.text','comment.email','comment.email.text','policy.email','policy.email.text',
                              'student_classlist_view',
                              'plc.roles.denied','plc.users.denied',
                              'pch.roles.denied','pch.users.denied',