"$ahref$x</A>";
}
+sub svc_export_links {
+ my ($m, $part_svc, $cust_svc) = @_ or return '';
+
+ my $ahref = $cust_svc->export_links;
+
+ join('', @$ahref);
+}
+
sub parse_lt_gt {
my($cgi, $field) = @_;
=cut
sub cust_fields {
- my $svc_x = shift;
- warn "FS::UI::Web::cust_fields called for $svc_x ".
+ my $record = shift;
+ warn "FS::UI::Web::cust_fields called for $record ".
"(cust_fields: @cust_fields)"
if $DEBUG > 1;
my $seen_unlinked = 0;
map {
- if ( $svc_x->custnum ) {
- warn " $svc_x -> $_"
+ if ( $record->custnum ) {
+ warn " $record -> $_"
if $DEBUG > 1;
- $svc_x->$_(@_);
+ $record->$_(@_);
} else {
- warn " ($svc_x unlinked)"
+ warn " ($record unlinked)"
if $DEBUG > 1;
$seen_unlinked++ ? '' : '(unlinked)';
}