view release on metacpan or  search on metacpan

lib/RT/Interface/Web_Vendor.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package HTML::Mason::Commands;
 
no warnings qw(redefine);
 
# This should be the same class we are overlaying here
my $original_abort = \&HTML::Mason::Commands::Abort;
 
*HTML::Mason::Commands::Abort = sub {
    my $why = shift;
    my %args = @_;
 
    if ( $why =~ /^No permission to view newly created ticket #(\d+)/ ) {
        # We're showing a custom "form submitted" page, not the ticket,
        # so we don't want to abort if the user doesn't have rights to
        # see the ticket.