one more backport fix, #72101
authorMark Wells <mark@freeside.biz>
Thu, 8 Sep 2016 21:54:48 +0000 (14:54 -0700)
committerMark Wells <mark@freeside.biz>
Thu, 8 Sep 2016 21:54:48 +0000 (14:54 -0700)
httemplate/edit/process/elements/process.html

index 89a38f4..60aaf74 100644 (file)
@@ -79,6 +79,9 @@ Example:
    #return an error string or empty for no error
    'precheck_callback' => sub { my( $cgi ) = @_; },
 
+   #after the new object is created
+   'post_new_object_callback' => sub { my( $cgi, $object ) = @_; },
+
    #after everything's inserted
    'noerror_callback' => sub { my( $cgi, $object ) = @_; },
 
@@ -269,6 +272,10 @@ foreach my $value ( @values ) {
       }
     }
 
+    if ( $opt{'post_new_object_callback'} ) {
+      &{ $opt{'post_new_object_callback'} }( $cgi, $new );
+    }
+
     if ( $opt{'agent_virt'} ) {
 
       if ( ! $new->agentnum