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

Diff of /gnatsweb/gnatsweb.pl

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

revision 1.98 by yngves, Tue Sep 17 16:02:06 2002 UTC revision 1.99 by yngves, Tue Sep 17 16:26:56 2002 UTC
# Line 1337  sub view Line 1337  sub view
1337  {  {
1338    my($viewaudit, $tmp) = @_;    my($viewaudit, $tmp) = @_;
1339    
   my $page = 'View PR';  
   page_start_html($page);  
   
1340    # $pr must be 'local' to be available to site callback    # $pr must be 'local' to be available to site callback
1341    local($pr) = $q->param('pr');    local($pr) = $q->param('pr');
   
1342    # strip out leading category (and any other non-digit trash) from $pr    # strip out leading category (and any other non-digit trash) from $pr
1343    $pr =~ s/\D//g;    $pr =~ s/\D//g;
1344    
1345      my $page = "View PR $pr";
1346      page_start_html($page);
1347    
1348    if(!$pr)    if(!$pr)
1349    {    {
1350      page_heading($page, 'Error');      page_heading($page, 'Error');
# Line 1460  sub view Line 1459  sub view
1459  #  #
1460  sub edit  sub edit
1461  {  {
   my $page = 'Edit PR';  
   page_start_html($page);  
   
   #my $debug = 0;  
   
1462    my($pr) = $q->param('pr');    my($pr) = $q->param('pr');
   
1463    # strip out leading category (and any other non-digit trash) from    # strip out leading category (and any other non-digit trash) from
1464    # $pr, since it will unduly confuse gnats when we try to submit the    # $pr, since it will unduly confuse gnats when we try to submit the
1465    # edit    # edit
1466    $pr =~ s/\D//g;    $pr =~ s/\D//g;
1467      my $page = "Edit PR $pr";
1468      page_start_html($page);
1469    
1470      #my $debug = 0;
1471    
1472    
1473    if(!$pr)    if(!$pr)
1474    {    {

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

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