1 files changed, 0 insertions, 201 deletions
diff --git a/rt/lib/RT/Interface/Web_Vendor.pm b/rt/lib/RT/Interface/Web_Vendor.pm
deleted file mode 100644
index 1999096a7..000000000
--- a/rt/lib/RT/Interface/Web_Vendor.pm
+++ /dev/null
@@ -1,201 +0,0 @@
-# Copyright (c) 2004 Ivan Kohler <ivan-rt@420.am>
-# Copyright (c) 2008 Freeside Internet Services, Inc.
-#
-# 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,
-        Debug     => 0,
-        @_
-    );
-    my @results = ();
-
-    my $Ticket  = $args{'TicketObj'};
-    my $ARGSRef = $args{'ARGSRef'};
-    my $Debug   = $args{'Debug'};
-    my $me = 'ProcessTicketCustomers';
-
-    ### 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;
-
-        }
-
-    }
-    ###
-
-    ###
-    #find new customers
-    ###
-
-    my @custnums = map  { /^Ticket-AddCustomer-(\d+)$/; $1 }
-                   grep { /^Ticket-AddCustomer-(\d+)$/ && $ARGSRef->{$_} }
-                   keys %$ARGSRef;
-
-    #my @delete_custnums =
-    #  map  { /^Ticket-AddCustomer-(\d+)$/; $1 }
-    #  grep { /^Ticket-AddCustomer-(\d+)$/ && $ARGSRef->{$_} }
-    #  keys %$ARGSRef;
-
-    ###
-    #figure out if we're going to auto-link requestors, and find them if so
-    ###
-
-    my $num_cur_cust = $Ticket->Customers->Count;
-    my $num_new_cust = scalar(@custnums);
-    warn "$me: $num_cur_cust current customers / $num_new_cust new customers\n"
-      if $Debug;
-
-    #if we're linking the first ticket to one customer
-    my $link_requestors = ( $num_cur_cust == 0 && $num_new_cust == 1 );
-    warn "$me: adding a single customer to a previously customerless".
-         " ticket, so linking customers to requestor too\n"
-      if $Debug && $link_requestors;
-
-    my @Requestors = ();
-    if ( $link_requestors ) {
-
-      #find any requestors without customers
-      @Requestors =
-        grep { ! $_->Customers->Count }
-             @{ $Ticket->Requestors->UserMembersObj->ItemsArrayRef };
-
-      warn "$me: found ". scalar(@Requestors). " requestors without".
-           " customers; linking them\n"
-        if $Debug;
-
-    }
-
-    ###
-    #link ticket (and requestors) to customers
-    ###
-
-    foreach my $custnum ( @custnums ) {
-
-      my @link = ( 'Type'   => 'MemberOf',
-                   'Target' => "freeside://freeside/cust_main/$custnum",
-                 );
-
-      my( $val, $msg ) = $Ticket->AddLink(@link);
-      push @results, $msg;
-
-      #add customer links to requestors
-      foreach my $Requestor ( @Requestors ) {
-        my( $val, $msg ) = $Requestor->AddLink(@link);
-        push @results, $msg;
-        warn "$me: linking requestor to custnum $custnum: $msg\n"
-          if $Debug > 1;
-      }
-
-    }
-
-    return @results;
-
-}
-
-#false laziness w/above... eventually it should go away in favor of this
-sub ProcessObjectCustomers {
-    my %args = (
-        Object => undef,
-        ARGSRef   => undef,
-        @_
-    );
-    my @results = ();
-
-    my $Object  = $args{'Object'};
-    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 ) = $Object->DeleteLink( Base   => $base,
-                                                     Type   => $type,
-                                                     Target => $target );
-
-            push @results, $msg;
-
-        }
-
-    }
-    ###
-
-    #my @delete_custnums =
-    #  map  { /^Object-AddCustomer-(\d+)$/; $1 }
-    #  grep { /^Object-AddCustomer-(\d+)$/ && $ARGSRef->{$_} }
-    #  keys %$ARGSRef;
-
-    my @custnums = map  { /^Object-AddCustomer-(\d+)$/; $1 }
-                   grep { /^Object-AddCustomer-(\d+)$/ && $ARGSRef->{$_} }
-                   keys %$ARGSRef;
-
-    foreach my $custnum ( @custnums ) {
-      my( $val, $msg ) =
-        $Object->AddLink( 'Type'   => 'MemberOf',
-                          'Target' => "freeside://freeside/cust_main/$custnum",
-                        );
-      push @results, $msg;
-    }
-
-    return @results;
-
-}
-
-1;
-