}
print "
-<HEAD><TITLE>Bug $id -- " . html_quote($bug{'short_desc'}) .
- "</TITLE></HEAD><BODY>
<FORM NAME=changeform METHOD=POST ACTION=\"process_bug.cgi\">
<INPUT TYPE=HIDDEN NAME=\"delta_ts\" VALUE=\"$bug{'delta_ts'}\">
<INPUT TYPE=HIDDEN NAME=\"longdesclength\" VALUE=\"$longdesclength\">
print qq{<td><a href="$link">$date</a></td><td colspan=4>$desc</td></tr><tr><td></td>};
$knownattachments{$attachid} = 1;
}
-print "<td colspan=6><a href=createattachment.cgi?id=$id>Create a new attachment</a> (proposed patch, testcase, etc.)</td></tr></table>\n";
+print "<td colspan=6><a href=\"createattachment.cgi?id=$id\">Create a new attachment</a> (proposed patch, testcase, etc.)</td></tr></table>\n";
sub EmitDependList {
<A HREF=\"long_list.cgi?buglist=$id\">Format For Printing</A>
</B></FONT><BR>
</FORM>
-<table><tr><td align=left><B>Description:</B></td><td width=100%> </td>
+<table><tr><td align=left><B>Description:</B></td><td width=\"100%\"> </td>
<td align=right>Opened: $bug{'creation_ts'}</td></tr></table>
<HR>
<PRE>
# long_list.cgi line:
# <A HREF=\"edit_desc.cgi?id=$id\">Edit Long Description</A>
-
navigation_header();
-print "</BODY>\n";
-
1;
require "CGI.pl";
use Date::Parse;
-my $serverpush = 1;
+my $serverpush = 0;
-if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) {
- # Internet explorer doesn't seem to understand server push. What fun.
- $serverpush = 0;
+if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla.[3-9]/ && $ENV{'HTTP_USER_AGENT'} !~ /[Cc]ompatible/ ) {
+ # Search for real Netscape 3 and up. http://www.browsercaps.org used as source of
+ # browsers compatbile with server-push. It's a Netscape hack, incompatbile
+ # with MSIE and Lynx (at least).
+ $serverpush = 1;
}
if ($serverpush) {
<HTML>
<TITLE>OK, default is set.</TITLE>
-OK, you now have a new default query.
+OK, you now have a new default query. You may also bookmark the result of any
+individual query.
-<P>
-
-<A HREF=query.cgi>Go back to the query page, using the new default.</A>
+<P><A HREF=query.cgi>Go back to the query page, using the new default.</A>
";
exit;
};
<A HREF=\"colchange.cgi?$::buffer\">Change columns</A>
</FORM>";
if (!$dotweak && $count > 1) {
- print "<A HREF=\"buglist.cgi?$fields&tweak=1\">Make changes to several of these bugs at once.</A>\n";
+ print "<A HREF=\"buglist.cgi?$fields&tweak=1\">Change several bugs at once</A>\n";
}
}
if ($serverpush) {
<tr>
<TH ALIGN=LEFT VALIGN=BOTTOM>Program:</th>
<TH ALIGN=LEFT VALIGN=BOTTOM>Version:</th>
-<TH ALIGN=LEFT VALIGN=BOTTOM><A HREF=describecomponents.cgi>Component:<a></th>
+<TH ALIGN=LEFT VALIGN=BOTTOM><A HREF=describecomponents.cgi>Component:</a></th>
";
if (Param("usetargetmilestone")) {
</table>
<table border=0>
-<tr>
";
StringSearch("Summary", "short_desc");
<INPUT TYPE=\"reset\" VALUE=\"Reset back to the default query\">
<INPUT TYPE=hidden name=form_name VALUE=query>
<BR>Give me a <A HREF=\"help.html\">clue</A> about how to use this form.
-</CENTER>
</FORM>
";
$! = 0;
do "bug_form.pl" || die "Error doing bug_form.pl: $!";
+print "</BODY>";
+print "</HTML>\n";
+