1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
# BEGIN LICENSE BLOCK
#
# Copyright (c) 2004 Kristian Hoffmann <khoff@fire2wire.com>
# Based on the original RT::URI::base and RT::URI::fsck_com_rt.
#
# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
#
# (Except where explictly superceded by other copyright notices)
#
# 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.
#
# Unless otherwise specified, all modifications, corrections or
# extensions to this work which alter its source code become the
# property of Best Practical Solutions, LLC when submitted for
# inclusion in the work.
#
#
# END LICENSE BLOCK
#
use strict;
no warnings qw(redefine);
#use vars qw($conf);
use FS;
use FS::UID qw(dbh);
use FS::CGI qw(popurl);
use FS::UI::Web::small_custview qw(small_custview);
use FS::Conf;
use FS::Record qw(qsearchs qsearch dbdef);
use FS::cust_main;
use FS::cust_svc;
=head1 NAME
RT::URI::freeside::Internal
=head1 DESCRIPTION
Overlay for the RT::URI::freeside URI handler implementing the Internal integration type.
See L<RT::URI::freeside> for public/private interface documentation.
=cut
sub _FreesideGetRecord {
my $self = shift;
my ($table, $pkey) = ($self->{'fstable'}, $self->{'fspkey'});
$RT::Logger->debug("Called _FreesideGetRecord()");
#eval "use FS::$table;";
my $dbdef = dbdef;
unless ($dbdef) {
$RT::Logger->error("Using Internal freeside integration type, ".
"but it doesn't look like we're running under ".
"freeside's Mason handler.");
return;
}
my $pkeyfield = $dbdef->table($table)->primary_key;
unless ($pkeyfield) {
$RT::Logger->error("No primary key for freeside table '$table'");
return;
}
my $fsrec = qsearchs($table, { $pkeyfield => $pkey });
unless ($fsrec) {
$RT::Logger->error("Record with '$pkeyfield' == '$pkey' does " .
"not exist in table $table");
return;
}
return { $fsrec->hash, '_object' => $fsrec };
}
sub FreesideVersion {
return $FS::VERSION;
}
sub FreesideGetConfig {
#$conf = new FS::Conf unless ref($conf);
my $conf = new FS::Conf;
return scalar($conf->config(@_));
}
sub smart_search { #Subroutine
return map { { $_->hash } } &FS::cust_main::Search::smart_search(@_);
}
sub email_search { #Subroutine
return map { { $_->hash } } &FS::cust_main::Search::email_search(@_);
}
sub small_custview {
return &FS::UI::Web::small_custview::small_custview(@_);
}
sub _FreesideURILabelLong {
my $self = shift;
my $table = $self->{'fstable'};
if ( $table eq 'cust_main' ) {
my $rec = $self->_FreesideGetRecord();
return small_custview( $rec->{'_object'},
scalar(FS::Conf->new->config('countrydefault')),
1 #nobalance
);
} else {
return $self->_FreesideURILabel();
}
}
1;
|
