/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1.2.23 by yngves, Sat Nov 3 11:50:03 2001 UTC revision 1.1.1.1.2.24 by yngves, Thu Nov 15 00:08:52 2001 UTC
# Line 112  use gnats qw/client_init client_exit cli Line 112  use gnats qw/client_init client_exit cli
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
# Line 795  sub get_mailto_link Line 795  sub get_mailto_link
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  }  }
# Line 1409  sub query_page Line 1420  sub query_page
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,
# Line 2123  sub delete_stored_query Line 2139  sub delete_stored_query
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    
# Line 2600  sub parse_submitters Line 2612  sub parse_submitters
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    }    }

Legend:
Removed from v.1.1.1.1.2.23  
changed lines
  Added in v.1.1.1.1.2.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26