[WWcvs] webwork2: added feedbackHelper to consolidate generation of feedback

[Sam H. v. a. <we...@ma...>]

Log Message:
-----------
added feedbackHelper to consolidate generation of feedback form.

Modified Files:
--------------
    webwork2/lib/WeBWorK:
        ContentGenerator.pm

Revision Data
-------------
Index: ContentGenerator.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator.pm,v
retrieving revision 1.148
retrieving revision 1.149
diff -Llib/WeBWorK/ContentGenerator.pm -Llib/WeBWorK/ContentGenerator.pm -u -r1.148 -r1.149
--- lib/WeBWorK/ContentGenerator.pm
+++ lib/WeBWorK/ContentGenerator.pm
@@ -1381,6 +1381,42 @@
 	return $result;
 }
 
+=item feedbackMacro(%params)
+
+Helper macro for displaying the feedback form. Returns a button named "Email
+Instructor". %params contains the request parameters accepted by the Feedback
+module and their values.
+
+=cut
+
+sub feedbackMacro {
+	my ($self, %params) = @_;
+	my $r = $self->r;
+	my $userID = $r->param("user");
+	my $authz = $r->authz;
+	my $urlpath = $r->urlpath;
+	my $courseID = $urlpath->arg("courseID");
+	
+	# don't do anything unless the user has permission to
+	return "" unless $authz->hasPermissions($userID, "submit_feedback");
+	
+	# feedback form url
+	my $feedbackPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Feedback", courseID => $courseID);
+	my $feedbackURL = $self->systemLink($feedbackPage, authen => 0); # no authen info for form action
+	
+	my $result = CGI::start_form(-method=>"POST", -action=>$feedbackURL) . "\n";
+	$result .= $self->hidden_authen_fields . "\n";
+	
+	while (my ($key, $value) = each %params) {
+		$result .= CGI::hidden($key, $value) . "\n";
+	}
+
+	$result .= CGI::p({-align=>"left"}, CGI::submit(-name=>"feedbackForm", -label=>"Email instructor"));
+	$result .= CGI::endform() . "\n";
+	
+	return $result;
+}
+
 =back
 
 =cut