sub session {
my( $self, $session ) = @_;
- if ( $session && $session->{'Current_User'} ) { # does this even work?
+ if ( $session && $session->{'CurrentUser'} ) { # does this even work?
warn "$me session: using existing session and CurrentUser: \n".
Dumper($session->{'CurrentUser'})
if $DEBUG;
# this needs to be done on each fork
warn "$me init: initializing RT\n" if $DEBUG;
{
+ local $SIG{__WARN__};
local $SIG{__DIE__};
eval 'RT::Init("NoSignalHandlers"=>1);';
}
sub href_customer_tickets {
my ($self, $custnum) = (shift, shift);
if ($custnum =~ /^(\d+)$/) {
- return $self->href_search_tickets("Customer.number = $custnum");
+ return $self->href_search_tickets("Customer.number = $custnum", @_);
}
warn "bad custnum $custnum"; '';
}
sub href_service_tickets {
my ($self, $svcnum) = (shift, shift);
if ($svcnum =~ /^(\d+)$/ ) {
- return $self->href_search_tickets("Service.number = $svcnum");
+ return $self->href_search_tickets("Service.number = $svcnum", @_);
}
warn "bad svcnum $svcnum"; '';
}
# we failed to successfully create the user. abort abort abort.
delete $session->{'CurrentUser'};
- die "can't auto-create RT user"; #an error message would be nice :/
+ die "can't auto-create RT user: $msg"; #an error message would be nice :/
#$m->abort() unless $RT::WebFallbackToInternalAuth;
#$m->comp( '/Elements/Login', %ARGS,
# Error => loc( 'Cannot create user: [_1]', $msg ) );