diff options
Diffstat (limited to 'rt/lib/RT/Interface/Web_Vendor.pm')
-rw-r--r-- | rt/lib/RT/Interface/Web_Vendor.pm | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/rt/lib/RT/Interface/Web_Vendor.pm b/rt/lib/RT/Interface/Web_Vendor.pm deleted file mode 100644 index 5be20e6..0000000 --- a/rt/lib/RT/Interface/Web_Vendor.pm +++ /dev/null @@ -1,95 +0,0 @@ -# Copyright (c) 2004 Ivan Kohler <ivan-rt@420.am> -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. - -=head1 NAME - -RT::Interface::Web_Vendor - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -Freeside vendor overlay for RT::Interface::Web. - -=begin testing - -use_ok(RT::Interface::Web_Vendor); - -=end testing - -=cut - -#package RT::Interface::Web; -#use strict; - -package HTML::Mason::Commands; -use strict; - -=head2 ProcessTicketCustomers - -=cut - -sub ProcessTicketCustomers { - my %args = ( - TicketObj => undef, - ARGSRef => undef, - @_ - ); - my @results = (); - - my $Ticket = $args{'TicketObj'}; - my $ARGSRef = $args{'ARGSRef'}; - - ### false laziness w/RT::Interface::Web::ProcessTicketLinks - # Delete links that are gone gone gone. - foreach my $arg ( keys %$ARGSRef ) { - if ( $arg =~ /DeleteLink-(.*?)-(DependsOn|MemberOf|RefersTo)-(.*)$/ ) { - my $base = $1; - my $type = $2; - my $target = $3; - - push @results, - "Trying to delete: Base: $base Target: $target Type $type"; - my ( $val, $msg ) = $Ticket->DeleteLink( Base => $base, - Type => $type, - Target => $target ); - - push @results, $msg; - - } - - } - ### - - my @delete_custnums = - map { /^Ticket-AddCustomer-(\d+)$/; $1 } - grep { /^Ticket-AddCustomer-(\d+)$/ && $ARGSRef->{$_} } - keys %$ARGSRef; - - my @custnums = map { /^Ticket-AddCustomer-(\d+)$/; $1 } - grep { /^Ticket-AddCustomer-(\d+)$/ && $ARGSRef->{$_} } - keys %$ARGSRef; - - foreach my $custnum ( @custnums ) { - my( $val, $msg ) = - $Ticket->AddLink( 'Type' => 'MemberOf', - 'Target' => "freeside://freeside/cust_main/$custnum", - ); - push @results, $msg; - } - - return @results; - -} - -1; - |