[freeside-commits] freeside/httemplate/edit/elements edit.html, 1.22, 1.23 svc_Common.html, 1.4, 1.5

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/elements
In directory wavetail.420.am:/tmp/cvs-serv20117/httemplate/edit/elements

Modified Files:
	edit.html svc_Common.html 
Log Message:
agent virtualize address blocks and routers

Index: svc_Common.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/elements/svc_Common.html,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- svc_Common.html	11 Jan 2008 17:30:09 -0000	1.4
+++ svc_Common.html	28 Jun 2008 19:25:24 -0000	1.5
@@ -13,7 +13,7 @@
 %    $pkgnum = $1;
 %    $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
 %    $svcpart = $1;
-%    $cgi->delete_all(); #so edit.html treats this correctly as new??
+%    #$cgi->delete_all(); #so edit.html treats this correctly as new??
 %  }
 %
 <% include( 'edit.html',
@@ -63,7 +63,7 @@
                  },
 
                  'field_callback' => sub {
-                   my $f = shift;
+                   my ($cgi, $object, $f) = @_;
                    my $columndef = $part_svc->part_svc_column($f->{'field'});
                    my $flag = $columndef->columnflag;
                    if ( $flag eq 'F' ) {
@@ -72,6 +72,23 @@
                    }
                  },
 
+                 'html_init' => sub {
+                   my $cust_main;
+                   if ( $pkgnum ) {
+                     my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum});
+                     $cust_main = $cust_pkg->cust_main if $cust_pkg;
+                   }
+                   $cust_main
+                     ? include( '/elements/small_custview.html',
+                                $cust_main,
+                                '',
+                                1,
+                                popurl(2). "view/cust_main.cgi"
+                              ). '<BR>'
+                     : '';
+
+                 },
+
                  'html_table_bottom' => sub {
                    my $svc_x = shift;
                    my $html = '';

Index: edit.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/elements/edit.html,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- edit.html	19 Jun 2008 03:18:19 -0000	1.22
+++ edit.html	28 Jun 2008 19:25:24 -0000	1.23
@@ -108,8 +108,8 @@
     #run before display to return a different value
     'value_callback' => sub { my( $columname, $value ) = @_; },
 
-    #XXX describe
-    'field_callback' => sub { },
+    #run before display to manipulate element of the 'fields' arrayref
+    'field_callback' => sub { my( $cgi, $object, $field_hashref ) = @_; },
 
     'viewall_dir' => '', #'search' or 'browse', defaults to 'search'
 
@@ -179,7 +179,7 @@
 %                       @$fields
 %                 ) {
 %
-%   &{ $opt{'field_callback'} }( $f )
+%   my $trash = &{ $opt{'field_callback'} }( $cgi, $object, $f )
 %     if $opt{'field_callback'};
 %
 %   my $field = $f->{'field'};
@@ -227,10 +227,18 @@
 %     'disabled'      => $f->{'disabled'},
 %   );
 %
-%   #select-table
+%   #select-table, checkboxes-table
 %   $include_common{$_} = $f->{$_}
 %     foreach grep exists($f->{$_}), qw( table name_col );
 %
+%   #checkboxes-table
+%   $include_common{$_} = $f->{$_}
+%     foreach grep exists($f->{$_}), qw( target_table link_table );
+%
+%   #*-table
+%   $include_common{$_} = $f->{$_}
+%     foreach grep exists($f->{$_}), qw( hashref agent_virt agent_null_right );
+%
 %   if ( $type eq 'tablebreak-tr-title' ) {
 %     $include_common{'table_id'} = 'TableNumber'. $tablenum++
 %   }