add quick links for unprocessed and processed CDRs to svc_phone view
[freeside.git] / httemplate / view / elements / svc_Common.html
1 %  # options example...
2 %  #
3 %  # 'table' => 'svc_something'
4 %  #
5 %  # 'labels' => {
6 %  #               'column' => 'Label',
7 %  #             },
8 %  #
9 %  # listref - each item is a literal column name (or method) or (notyet) coderef
10 %  # if not specified all columns (except for the primary key) will be viewable
11 %  # 'fields' => [
12 %  #             ]
13 %  #
14 %  # # defaults to "edit/$table.cgi?", will have svcnum appended
15 %  # 'edit_url' => 
16 %
17 %
18 % if ( $custnum ) { 
19
20
21   <% include("/elements/header.html","View $label: $value") %>
22
23   <% include( '/elements/small_custview.html', $custnum, '', 1,
24      "${p}view/cust_main.cgi") %>
25   <BR>
26 % } else { 
27
28
29   <SCRIPT>
30   function areyousure(href) {
31       if (confirm("Permanently delete this <% $label %>?") == true)
32           window.location.href = href;
33   }
34   </SCRIPT>
35
36   <% include("/elements/header.html","View $label: $value", menubar(
37       "Cancel this (unaudited) $label" =>
38             "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')"
39   )) %>
40 % } 
41
42
43 Service #<B><% $svcnum %></B>
44 % my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?';
45 | <A HREF="<%$url%><%$svcnum%>">Edit this <% $label %></A>
46 <BR>
47
48 <% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %>
49 % foreach my $f ( @$fields ) {
50 %
51 %     my( $field, $type);
52 %     if ( ref($f) ) {
53 %       $field = $f->{'field'},
54 %       $type  = $f->{'type'} || 'text',
55 %     } else {
56 %       $field = $f;
57 %       $type = 'text';
58 %     }
59 %
60
61
62   <TR>
63     <TD ALIGN="right">
64       <% ( $opt{labels} && exists $opt{labels}->{$field} )
65               ? $opt{labels}->{$field}
66               : $field
67       %>
68     </TD>
69 %
70 %      #eventually more options for <SELECT>, etc. fields
71 %    
72
73
74     <TD BGCOLOR="#ffffff"><% $svc_x->$field %><TD>
75
76   </TR>
77 % } 
78 % foreach (sort { $a cmp $b } $svc_x->virtual_fields) { 
79
80   <% $svc_x->pvf($_)->widget('HTML', 'view', $svc_x->getfield($_)) %>
81 % } 
82
83
84 </TABLE></TD></TR></TABLE>
85
86 <BR>
87
88 % if ( defined($opt{'html_foot'}) ) {
89
90   <% ref($opt{'html_foot'})
91        ? &{ $opt{'html_foot'} }($svc_x)
92        : $opt{'html_foot'}
93   %>
94   <BR>
95
96 % }
97
98
99 <% joblisting({'svcnum'=>$svcnum}, 1) %>
100
101 <% include('/elements/footer.html') %>
102 <%init>
103
104 die "access denied"
105   unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
106
107 my(%opt) = @_;
108
109 my $table = $opt{'table'};
110
111 my $fields = $opt{'fields'}
112              #|| [ grep { $_ ne 'svcnum' } dbdef->table($table)->columns ];
113              || [ grep { $_ ne 'svcnum' } fields($table) ];
114
115 my $svcnum;
116 if ( $cgi->param('svcnum') ) {
117   $cgi->param('svcnum') =~ /^(\d+)$/ or die "unparsable svcnum";
118   $svcnum = $1;
119 } else {
120   my($query) = $cgi->keywords;
121   $query =~ /^(\d+)$/ or die "no svcnum";
122   $svcnum = $1;
123 }
124 my $svc_x = qsearchs({
125   'select'    => $opt{'table'}.'.*',
126   'table'     => $opt{'table'},
127   'addl_from' => ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
128                  ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
129                  ' LEFT JOIN cust_main USING ( custnum ) ',
130   'hashref'   => { 'svcnum' => $svcnum },
131   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
132 }) or die "Unknown svcnum $svcnum in ". $opt{'table'}. " table\n";
133
134 my $cust_svc = $svc_x->cust_svc;
135 my($label, $value, $svcdb) = $cust_svc->label;
136
137 my $pkgnum = $cust_svc->pkgnum;
138
139 my($cust_pkg, $custnum);
140 if ($pkgnum) {
141   $cust_pkg = $cust_svc->cust_pkg;
142   $custnum = $cust_pkg->custnum;
143 } else {
144   $cust_pkg = '';
145   $custnum = '';
146 }
147
148 </%init>