112 |
#$gnats::DEBUG_LEVEL = 2; |
#$gnats::DEBUG_LEVEL = 2; |
113 |
|
|
114 |
# Version number + RCS revision number |
# Version number + RCS revision number |
115 |
$VERSION = '2.9.3-dev'; |
$VERSION = '2.9.1'; |
116 |
$REVISION = (split(/ /, '$Revision$ '))[1]; |
$REVISION = (split(/ /, '$Revision$ '))[1]; |
117 |
|
|
118 |
# width of text fields |
# width of text fields |
795 |
{ |
{ |
796 |
my($pr,%fields) = @_; |
my($pr,%fields) = @_; |
797 |
my $mailto = $q->escape(scalar(interested_parties($pr, 1, %fields))); |
my $mailto = $q->escape(scalar(interested_parties($pr, 1, %fields))); |
798 |
my $subject = $q->escape("Re: $fields{'Category'}/$pr: $fields{'Synopsis'}"); |
my $subject = $q->escape("Re: $fields{'Category'}/$pr"); |
799 |
my $body = $q->escape(get_viewpr_url($pr)); |
my $body = $q->escape(get_viewpr_url($pr)); |
800 |
|
|
801 |
|
# MSIE users fork Outlook and Outlook Express, |
802 |
|
# they need semicolons and the &'s used to view-pr need more quoting |
803 |
|
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |
804 |
|
{ |
805 |
|
my $ecomma = $q->escape(","); |
806 |
|
my $esemicolon = $q->escape(";"); |
807 |
|
my $ampsand = $q->escape("&"); |
808 |
|
$mailto =~ s/$ecomma/$esemicolon/g ; |
809 |
|
$body =~ s/$ampsand/%2526/g ; |
810 |
|
} |
811 |
|
|
812 |
return "<a href=\"mailto:$mailto?Subject=$subject&Body=$body\">" |
return "<a href=\"mailto:$mailto?Subject=$subject&Body=$body\">" |
813 |
. "send email to interested parties</a>\n"; |
. "send email to interested parties</a>\n"; |
814 |
} |
} |
1420 |
-values=>\@responsible, |
-values=>\@responsible, |
1421 |
-labels=>\%responsible_fullname, |
-labels=>\%responsible_fullname, |
1422 |
-default=>$responsible[0]), |
-default=>$responsible[0]), |
1423 |
|
"</td>\n</tr>\n<tr>\n<td>Submitter-ID:</td>\n<td>", |
1424 |
|
$q->popup_menu(-name=>'submitter_id', |
1425 |
|
-values=>\@submitter_id, |
1426 |
|
-labels=>\%submitter_fullname, |
1427 |
|
-default=>$submitter_id[0]), |
1428 |
"</td>\n</tr>\n<tr>\n<td>State:</td>\n<td>", |
"</td>\n</tr>\n<tr>\n<td>State:</td>\n<td>", |
1429 |
$q->popup_menu(-name=>'state', |
$q->popup_menu(-name=>'state', |
1430 |
-values=>\@state, |
-values=>\@state, |
2139 |
|
|
2140 |
# Return the user to the page they were viewing when they pressed |
# Return the user to the page they were viewing when they pressed |
2141 |
# 'delete stored query'. |
# 'delete stored query'. |
2142 |
my $return_url = $q->param('return_url') || get_script_name(); |
print $q->redirect(-cookie => $expire_cookies, |
2143 |
print $q->header(-Refresh => "0; URL=$return_url", |
-location => $q->param('return_url')); |
|
-cookie => $expire_cookies); |
|
|
# Workaround for MSIE: |
|
|
print "<HTML><HEAD><TITLE></TITLE>" |
|
|
, "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$return_url\"></HEAD>"; |
|
2144 |
} |
} |
2145 |
} |
} |
2146 |
|
|
2612 |
my($submitter, $full_name, $type, $response_time, $contact, $notify) |
my($submitter, $full_name, $type, $response_time, $contact, $notify) |
2613 |
= split(/:/); |
= split(/:/); |
2614 |
push(@submitter_id, $submitter); |
push(@submitter_id, $submitter); |
2615 |
|
$submitter_fullname{$submitter} = $submitter . ' - ' . $full_name; |
2616 |
$submitter_contact{$submitter} = $contact; |
$submitter_contact{$submitter} = $contact; |
2617 |
$submitter_notify{$submitter} = $notify; |
$submitter_notify{$submitter} = $notify; |
2618 |
} |
} |