custom fields, RT11714

4 files changed, 96 insertions, 13 deletions

diff --git a/httemplate/edit/cust_main/top_misc.html b/httemplate/edit/cust_main/top_misc.html
index a7545a045..1277d148e 100644
--- a/httemplate/edit/cust_main/top_misc.html
+++ b/httemplate/edit/cust_main/top_misc.html
@@ -1,5 +1,9 @@
 <% &ntable("#cccccc") %>
 
+% foreach my $field ($cust_main->virtual_fields) {
+    <% $cust_main->pvf($field)->widget('HTML', 'edit',$cust_main->getfield($field)) %>
+% }
+
 %# tags
 <& /elements/tr-select-cust_tag.html,
              'custnum' => $custnum,
diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 8ca019649..964e08821 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -15,20 +15,7 @@ Service  <INPUT TYPE="text" NAME="svc" VALUE="<% $hashref->{svc} %>"><BR>
 
 <BR>
 
-
-% #YUCK.  false laziness w/part_svc.pm.  go away virtual fields, please
 % my %vfields;
-% foreach my $svcdb ( FS::part_svc->svc_tables() ) {
-%   eval "use FS::$svcdb;";
-%   my $self = "FS::$svcdb"->new;
-%   $vfields{$svcdb} = {};
-%   foreach my $field ($self->virtual_fields) { # svc_Common::virtual_fields with a null svcpart returns all of them
-%     my $pvf = $self->pvf($field);
-%     $vfields{$svcdb}->{$field} = $pvf;
-%     #warn "\$vfields{$svcdb}->{$field} = $pvf";
-%   } #next $field
-% } #next $svcdb
-%
 %  #code duplication w/ edit/part_svc.cgi, should move this hash to part_svc.pm
 %  # and generalize the subs
 %  # condition sub is tested to see whether to disable display of this choice
diff --git a/httemplate/edit/part_virtual_field.html b/httemplate/edit/part_virtual_field.html
new file mode 100644
index 000000000..f3fb53065
--- /dev/null
+++ b/httemplate/edit/part_virtual_field.html
@@ -0,0 +1,44 @@
+<% include('elements/edit.html',
+             'name_singular' => 'custom field',
+             'viewall_dir'  => 'browse',
+             'table'         => 'part_virtual_field',
+             'labels' => { 'vfieldpart'     => '',
+                           'dbtable'        => 'Table',
+                           'name'           => 'Name',
+                           'length'         => 'Length',
+                           'label'          => 'Label',
+                           'dbtable_dummy'  => 'Table',
+                         },
+             'fields' => [ 
+                           { field=>'vfieldpart', type=>'hidden', },
+                           { field=>'name', type=>'text', },
+                           { field  => 'dbtable',
+                             type   => 'select',
+                             options => [ 'svc_broadband', 'router', 'cust_main', ],
+                           },
+                           { field=>'label', type=>'text', },
+                           { field=>'length', type=>'text', },
+                         ],
+            'edit_callback' => $callback,
+            'error_callback' => $callback,
+            'html_init'      => 'Please be patient after clicking the button as 
+                                this process may take more than 10 seconds.
+                                <br><br>',
+          )
+%>
+<%init>
+
+my $callback = sub {
+  my ($cgi, $object, $fields) = (shift, shift, shift);
+  my @edit_fixed_fields = qw( dbtable name length );
+  foreach my $f ( @{$fields} ) {
+      # XXX: editing anything other than label is disabled for now
+      $f->{type} = 'fixed' 
+        if $object->vfieldpart && grep { $f->{field} eq $_ } @edit_fixed_fields;
+  }
+};
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+</%init>
diff --git a/httemplate/edit/process/part_virtual_field.html b/httemplate/edit/process/part_virtual_field.html
new file mode 100644
index 000000000..e734d9616
--- /dev/null
+++ b/httemplate/edit/process/part_virtual_field.html
@@ -0,0 +1,48 @@
+<% include( 'elements/process.html',
+    'table'          => 'part_virtual_field',
+    'viewall_dir'    => 'browse',
+    'precheck_callback' => sub {
+        my ($cgi) = @_;
+        $act = 'edit' if $cgi->param('vfieldpart');
+        my @permitted_tables = qw( svc_broadband router cust_main );
+        return 'Table not in list of permitted tables' 
+            unless $cgi->param('dbtable') 
+                && grep { $_ eq $cgi->param('dbtable') } @permitted_tables;
+        '';
+    },
+    'noerror_callback' => sub {
+        my ($cgi, $object) = @_;
+        if ( $act eq 'add' ) {
+            use FS::Schema qw( reload_dbdef );
+            warn "cf add started schema modification, time=".time;
+            my $dbh = dbh;
+            my $sql = "ALTER TABLE ".$object->dbtable." ADD COLUMN cf_".$object->name." varchar(".$object->length.")";
+            $dbh->do($sql) or die $dbh->errstr;
+            $sql = "ALTER TABLE h_".$object->dbtable." ADD COLUMN cf_".$object->name." varchar(".$object->length.")";
+            $dbh->do($sql) or die $dbh->errstr;
+
+            # apparently nothing happens w/o commit here - but is this OK?
+            $dbh->commit or die $dbh->errstr; 
+
+            # reload schema
+            my $dbdef_file = "/usr/local/etc/freeside/dbdef.".datasrc # XXX: fix this
+            my $dbdef = new_native DBIx::DBSchema $dbh;
+            $dbdef->save($dbdef_file);
+            delete $FS::Schema::dbdef_cache{$dbdef_file}; #force an actual reload
+            reload_dbdef($dbdef_file);
+            
+            warn "cf add done schema modification, time=".time;
+        }
+        # XXX: edit is going to be harder: possibly add editing length and renaming column
+        '';
+    },
+)
+%>
+<%init>
+
+my $act = 'add';
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+</%init>