[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Patch to to display the new PR #

From: Tim Buck
Subject: Patch to to display the new PR #
Date: Wed, 23 Mar 2005 11:09:45 -0500

Since GNATS now returns the newly-assigned PR number when a new PR
is filed, I've made some changes to our to use this
information. This change will cause to display a link to
the newly-created PR in the submitnewpr feedback message.

My revision numbers and line numbers are vastly different from
those in the official repository, because we have made so many
local revisions to gnatsweb -- my apologies for that.

RCS file: /cvs/root/systems/gnu/gnatsweb/,v
retrieving revision 1.124
diff -u -p -r1.124
--- 18 Mar 2005 15:11:02 -0000      1.124
+++ 23 Mar 2005 14:49:01 -0000
@@ -1611,7 +1611,12 @@ EOT

   client_cmd ("subm");
-  client_cmd("$text.");
+  # Get returned new PR number
+  my $new_prnum = join(" ",client_cmd("$text.")) || '';
+  # Strip off extra space at the end
+  $new_prnum =~ s/([0-9]+).*/$1/;
+  # How about a URL pointing us to it?
+  my $new_pr_url = get_viewpr_url($new_prnum);

   my $return_url = $q->param('return_url') || get_script_name();
   my $refresh = 5;
@@ -1631,11 +1636,10 @@ EOT

   # Give feedback for success
   page_heading($page, 'Problem Report Sent');
-  print "<p>Thank you for your report.  It will take a short while for
-your report to be processed.  When it is, you will receive
-an automated message about it, containing the Problem Report
-number, and the developer who has been assigned to
-investigate the problem.</p>";
+  print "<p>Thank you for your report. It has been assigned
+<a href=\"$new_pr_url\">PR #$new_prnum</a>. You will receive an automated +message about it, containing the Problem Report number, and the developer who
+has been assigned to investigate the problem.</p>\n";
print "<p>You will be returned to <a href=\"$return_url\">your previous page</a>
 in $refresh seconds...</p>";

Tim Buck * Information Technology Manager * Recognition Research, Inc.
PHONE +1 540 961-6500 * FAX +1 540 961-3568 * EMAIL address@hidden
No one ever went broke underestimating the intelligence of the
American People -- P. T. Barnum

reply via email to

[Prev in Thread] Current Thread [Next in Thread]