diff options
author | levinse <levinse> | 2010-11-25 02:44:12 +0000 |
---|---|---|
committer | levinse <levinse> | 2010-11-25 02:44:12 +0000 |
commit | 6f980ae5697a6e0cd5459bae448020b498c85bd2 (patch) | |
tree | 8f8b02147f59e477a41b4cd152bbe52b7da50a83 /httemplate/view/svc_dsl.cgi | |
parent | 3e1479b5456817038a95f6ed59b82d2d8332245d (diff) |
unhack stuff from the last commit, RT7111
Diffstat (limited to 'httemplate/view/svc_dsl.cgi')
-rw-r--r-- | httemplate/view/svc_dsl.cgi | 12 |
1 files changed, 4 insertions, 8 deletions
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,"<BR>"); - - $footer = "<B>$statusLine</B>"; + + $footer = "<B>".$export->status_line($svc_x,$date_format,"<BR>")."</B>"; # XXX: notes }; |