Added name field and admin indication to bug tracker
This commit is contained in:
parent
874e1825ec
commit
fa28f26d69
3 changed files with 40 additions and 14 deletions
|
|
@ -96,6 +96,7 @@ TUWF::set(
|
|||
mail_from => 'Yorhels Bug Tracker <projects@yorhel.nl>',
|
||||
# this is a fairly static site, allow some aggressive caching
|
||||
pre_request_handler => sub { $_[0]->resHeader('Cache-Control', 's-max-age=86400, max-age=3600'); 1; },
|
||||
cookie_defaults => { domain => 'dev.yorhel.nl', path => '/' },
|
||||
);
|
||||
|
||||
TUWF::run();
|
||||
|
|
@ -245,7 +246,7 @@ sub bug_post {
|
|||
my($s, $p) = @_;
|
||||
return $s->resNotFound if $s->reqMethod() ne 'POST';
|
||||
my $is = _bug_init($s, $p);
|
||||
my($f, $l) = $is->handleForm(sub { "http://dev.yorhel.nl/$p/bug/".shift });
|
||||
my($f, $l) = $is->handleForm(sub { "/$p/bug/".shift });
|
||||
|
||||
if($f->{_err}) {
|
||||
$s->htmlHeader(title => 'Error creating message', page => $p, sec => 'bug');
|
||||
|
|
@ -279,8 +280,6 @@ sub bug_post {
|
|||
});
|
||||
$done->recv;
|
||||
}
|
||||
|
||||
$s->resRedirect("/$p/bug/$l->{issue}", 'post');
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue