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'); |
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 |
{ |
{ |