X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_dsl.cgi;fp=httemplate%2Fview%2Fsvc_dsl.cgi;h=b460c010ed67d261ccb4d7e84b4bd7b8be7ff394;hb=6f980ae5697a6e0cd5459bae448020b498c85bd2;hp=a4b2d43275b233caf01608a4a22e579637ed2543;hpb=3e1479b5456817038a95f6ed59b82d2d8332245d;p=freeside.git
diff --git a/httemplate/view/svc_dsl.cgi b/httemplate/view/svc_dsl.cgi
index a4b2d4327..b460c010e 100644
--- a/httemplate/view/svc_dsl.cgi
+++ b/httemplate/view/svc_dsl.cgi
@@ -35,14 +35,14 @@ my $svc_cb = sub {
# default behaviour implemented above
return if ( scalar(@exports) == 0 );
+ my $export = @exports[0];
$opt->{'disable_unprovision'} = 1;
- my $exporttype = @exports[0]->exporttype;
# XXX: AJAX auto-pull
@fields = qw( svctn first last company username password );
- if($exporttype eq 'ikano') {
+ if($export->exporttype eq 'ikano') {
push @fields, 'isp_chg';
push @fields, 'isp_prev';
push @fields, 'staticips';
@@ -50,12 +50,8 @@ my $svc_cb = sub {
else {
# XXX
}
-
- # hack against "can't use string ... as a subroutine ref while 'strict refs' in use"
- my $statusSub = \&{'FS::part_export::'.$exporttype.'::status_line'};
- my $statusLine = &$statusSub($svc_x,$date_format,"
");
-
- $footer = "$statusLine";
+
+ $footer = "".$export->status_line($svc_x,$date_format,"
")."";
# XXX: notes
};