X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=d764afee60f1485e487d8a76368a498bf1dadf05;hb=4fd5994039666584fa14b7b2afbb4cd0d6481b21;hp=86478681c8e4f6c716198d7cfdca8688270c5e1b;hpb=17856ff5c299e4db21da28116f2666655c03f2c7;p=freeside.git
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 86478681c..d764afee6 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -79,6 +79,7 @@
Upload: <% sprintf("%.3f", $input) %> megabytes
Download: <% sprintf("%.3f", $output) %> megabytes
+ Last Login: <% $svc_acct->last_login_text %>
% my $href = qq!$tf ne '' ) {
+% if ( $svc_acct->$uf ne '' ) {
+% my $v = $uf eq 'seconds'
+% ? (($svc_acct->$uf < 0 ? '-' : ''). duration_exact($svc_acct->$uf) )
+% : FS::UI::bytecount::display_bytecount($svc_acct->$uf);
<% $ulabel{$uf} %> remaining |
- <% $svc_acct->$uf %> |
+ <% $v %> |
% }
@@ -286,13 +290,6 @@ Service #<% $svcnum %>
RADIUS groups |
<% join(' ', $svc_acct->radius_groups) %> |
-% if ( $svc_acct->seconds =~ /^\d+$/ ) {
-
-
- Prepaid time |
- <% duration_exact($svc_acct->seconds) %> |
-
-% }
%
%# Can this be abstracted further? Maybe a library function like
%# widget('HTML', 'view', $svc_acct) ? It would definitely make UI
@@ -308,6 +305,22 @@ Service #<% $svcnum %>
+% if ( @svc_www ) {
+ Hosting
+ <% &ntable("#cccccc") %><% &ntable("#cccccc",2) %>
+% foreach my $svc_www (@svc_www) {
+% my($label, $value) = $svc_www->cust_svc->label;
+% my $link = $p. 'view/svc_www.cgi?'. $svc_www->svcnum;
+ |
+
+ <% "$label: $value" %>
+ |
+
+% }
+
+
+% }
+
<% join("
", $conf->config('svc_acct-notes') ) %>
@@ -322,16 +335,18 @@ die "access denied"
my $conf = new FS::Conf;
+my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '.
+ ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
+ ' LEFT JOIN cust_main USING ( custnum ) ';
+
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
my $svcnum = $1;
my $svc_acct = qsearchs({
'select' => 'svc_acct.*',
'table' => 'svc_acct',
- 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '.
- ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
- ' LEFT JOIN cust_main USING ( custnum ) ',
- 'hashref' => {'svcnum'=>$svcnum},
+ 'addl_from' => $addl_from,
+ 'hashref' => { 'svcnum' => $svcnum },
'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
});
die "Unknown svcnum" unless $svc_acct;
@@ -361,4 +376,17 @@ die 'Unknown domain (domsvc '. $svc_acct->domsvc.
unless $svc_domain;
my $domain = $svc_domain->domain;
+my @svc_www = qsearch({
+ 'select' => 'svc_www.*',
+ 'table' => 'svc_www',
+ 'addl_from' => $addl_from,
+ 'hashref' => { 'usersvc' => $svcnum },
+ #XXX shit outta luck if you somehow got them linked across agents
+ # maybe we should show but not link to them? kinda makes sense...
+ # (maybe a specific ACL for this situation???)
+ 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
+ 'null_right' => 'View/link unlinked services'
+ ),
+});
+
%init>