diff options
Diffstat (limited to 'rt/lib/RT/ScripAction_Overlay.pm')
| -rw-r--r-- | rt/lib/RT/ScripAction_Overlay.pm | 44 |
1 files changed, 14 insertions, 30 deletions
diff --git a/rt/lib/RT/ScripAction_Overlay.pm b/rt/lib/RT/ScripAction_Overlay.pm index 76e047f71..c0a10caf7 100644 --- a/rt/lib/RT/ScripAction_Overlay.pm +++ b/rt/lib/RT/ScripAction_Overlay.pm @@ -1,8 +1,8 @@ -# BEGIN BPS TAGGED BLOCK {{{ +# {{{ BEGIN BPS TAGGED BLOCK # # COPYRIGHT: # -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC # <jesse@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -42,8 +42,7 @@ # works based on those contributions, and sublicense and distribute # those contributions and any derivatives thereof. # -# END BPS TAGGED BLOCK }}} - +# }}} END BPS TAGGED BLOCK =head1 NAME RT::ScripAction - RT Action object @@ -69,9 +68,6 @@ ok (require RT::ScripAction); =cut - -package RT::ScripAction; - use strict; no warnings qw(redefine); use RT::Template; @@ -93,12 +89,10 @@ sub _Accessible { # }}} # {{{ sub Create - =head2 Create - -Takes a hash. Creates a new Action entry. should be better -documented. - + + Takes a hash. Creates a new Action entry. + should be better documented. =cut sub Create { @@ -117,15 +111,6 @@ sub Delete { # }}} # {{{ sub Load - -=head2 Load IDENTIFIER - -Loads an action by its Name. - -Returns: Id, Error Message - -=cut - sub Load { my $self = shift; my $identifier = shift; @@ -148,7 +133,7 @@ sub Load { $self->{'Template'} = $template; } - return ($self->Id, ($self->loc('[_1] ScripAction loaded', $self->Id))); + return ($self->loc('[_1] ScripAction loaded', $self->Id)); } # }}} @@ -175,13 +160,13 @@ sub LoadAction { eval "require $type" || die "Require of $type failed.\n$@\n"; - $self->{'Action'} = $type->new ( Argument => $self->Argument, - CurrentUser => $self->CurrentUser, - ScripActionObj => $self, - ScripObj => $args{'ScripObj'}, - TemplateObj => $self->TemplateObj, - TicketObj => $args{'TicketObj'}, - TransactionObj => $args{'TransactionObj'}, + $self->{'Action'} = $type->new ( ScripActionObj => $self, + TicketObj => $args{'TicketObj'}, + ScripObj => $args{'ScripObj'}, + TransactionObj => $args{'TransactionObj'}, + TemplateObj => $self->TemplateObj, + Argument => $self->Argument, + CurrentUser => $self->CurrentUser ); } # }}} @@ -229,7 +214,6 @@ sub TemplateObj { sub Prepare { my $self = shift; - $self->{_Message_ID} = 0; return ($self->Action->Prepare()); } |