X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Felements%2Fsvc_Common.html;h=997ac142a86e3459f3485587baca38ebf733e178;hb=63973c641c4be00765fa27e55c57cc5b9aa4da19;hp=35434632e741edb729ebafaeeb8075e302a29a8c;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e;p=freeside.git
diff --git a/httemplate/view/elements/svc_Common.html b/httemplate/view/elements/svc_Common.html
index 35434632e..997ac142a 100644
--- a/httemplate/view/elements/svc_Common.html
+++ b/httemplate/view/elements/svc_Common.html
@@ -1,109 +1,116 @@
-%
-%
-% # options example...
-% #
-% # 'table' => 'svc_something'
-% #
-% # 'labels' => {
-% # 'column' => 'Label',
-% # },
-% #
-% # listref - each item is a literal column name (or method) or (notyet) coderef
-% # if not specified all columns (except for the primary key) will be viewable
-% # 'fields' => [
-% # ]
-%
-% my(%opt) = @_;
-%
-% my $table = $opt{'table'};
-%
-% my $fields = $opt{'fields'}
-% #|| [ grep { $_ ne 'svcnum' } dbdef->table($table)->columns ];
-% || [ grep { $_ ne 'svcnum' } fields($table) ];
-%
-% my($query) = $cgi->keywords;
-% $query =~ /^(\d+)$/;
-% my $svcnum = $1;
-% my $svc_x = qsearchs( $opt{'table'}, { 'svcnum' => $svcnum } )
-% or die "Unknown svcnum $svcnum in ". $opt{'table'}. " table\n";
-%
-% my $cust_svc = $svc_x->cust_svc;
-% my($label, $value, $svcdb) = $cust_svc->label;
-%
-% my $pkgnum = $cust_svc->pkgnum;
-%
-% my($cust_pkg, $custnum);
-% if ($pkgnum) {
-% $cust_pkg = $cust_svc->cust_pkg;
-% $custnum = $cust_pkg->custnum;
-% } else {
-% $cust_pkg = '';
-% $custnum = '';
-% }
-%
-%
-% if ( $custnum ) {
+<%doc>
+#Example:
- <% include("/elements/header.html","View $label: $value", menubar(
- "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
- )) %>
+ include( 'elements/svc_Common.html,
- <% include( '/elements/small_custview.html', $custnum, '', 1 ) %>
-
-% } else {
+ 'table' => 'svc_something'
+ 'labels' => {
+ 'column' => 'Label',
+ },
-
+ #listref - each item is a literal column name (or method) or
+ # (notyet) coderef. if not specified all columns (except for the
+ #primary key) will be viewable
+ 'fields' => [
+ ]
+
+ # defaults to "edit/$table.cgi?", will have svcnum appended
+ 'edit_url' =>
+
+ #at the very bottom (well, as low as you can go from here)
+ 'html_foot' => '',
+
+ )
+
+%doc>
+
+
+% if ( $custnum ) {
+
+ <& /elements/header.html, mt("View [_1]: [_2]",$label,$value) &>
- <% include("/elements/header.html","View $label: $value", menubar(
- "Cancel this (unaudited) $label" =>
+ <& /elements/small_custview.html, $custnum, '', 1,
+ "${p}view/cust_main.cgi" &>
+
+
+% } else {
+
+ <& /elements/header.html, mt("View [_1]: [_2]",$label,$value), menubar(
+ emt("Cancel this (unaudited) [_1]",$label) =>
"javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')"
- )) %>
-% }
+ ) &>
+% }
-Service #<% $svcnum %>
-| Edit this <% $label %>
+<% mt('Service #') |h %><% $svcnum %>
+% if ( $custnum ) {
+% my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?';
+<& /view/elements/svc_edit_link.html, 'svc' => $svc_x, 'edit_url' => $url &>
+% }
<% ntable("#cccccc") %>
<% ntable("#cccccc",2) %>
+
+% my @inventory_items = $svc_x->inventory_item;
% foreach my $f ( @$fields ) {
%
-% my( $field, $type);
-% if ( ref($f) ) {
-% $field = $f->{'field'},
-% $type = $f->{'type'} || 'text',
+% my($field, $type, $value);
+% if ( ref($f) ) {
+% $field = $f->{'field'};
+% $type = $f->{'type'} || 'text';
+% if ( $f->{'value_callback'} ) {
+% my $hack_strict_refs = \&{ $f->{'value_callback'} };
+% $value = &$hack_strict_refs($svc_x);
% } else {
-% $field = $f;
-% $type = 'text';
+% $value = exists($f->{'value'}) ? $f->{'value'} : $svc_x->$field;
% }
+% } else {
+% $field = $f;
+% $type = 'text';
+% $value = $svc_x->$field;
+% }
%
-
-
- |
-
- <% ( $opt{labels} && exists $opt{labels}->{$field} )
- ? $opt{labels}->{$field}
- : $field
- %>
- |
+% my $columndef = $part_svc->part_svc_column($field);
+% if ( $columndef->columnflag =~ /^[MA]$/ && $columndef->columnvalue =~ /,/ )
+% {
+% # inventory-select field with multiple classes
+% # show the class name to disambiguate
+% my ($item) = grep { $_->svc_field eq $field } @inventory_items;
+% my $class = qsearchs('inventory_class', { classnum => $item->classnum });
+% $value .= ' ('. $class->classname . ')' if $class;
+% }
+% unless ($columndef->columnflag eq 'F' && !length($columndef->columnvalue)) {
+
+
+
+ <% ( $opt{labels} && exists $opt{labels}->{$field} )
+ ? $opt{labels}->{$field}
+ : $field
+ %>
+ |
+
+% $value = time2str($date_format,$value) if ( $type eq 'date' && $value );
+% $value = time2str("$date_format %H:%M",$value) if ( $type eq 'datetime' && $value );
+% $value = $value eq 'Y' ? emt('Yes') : emt('No') if ( $type eq 'checkbox' );
+% #eventually more options for
+
+% }
%
-% #eventually more options for