This commit was manufactured by cvs2svn to create tagAFTER_FINAL_MASONIZE

'AFTER_FINAL_MASONIZE'.

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 5be20e6b9..000000000
--- 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;
-