[freeside-commits] freeside/httemplate/edit/elements edit.html, 1.31, 1.32

[Ivan,,,]

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

Modified Files:
	edit.html 
Log Message:
fix (hopefully last of the) customize package bogosity in 1.9, RT#4662

Index: edit.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/elements/edit.html,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- edit.html	3 Dec 2008 05:54:56 -0000	1.31
+++ edit.html	21 Jan 2009 02:02:09 -0000	1.32
@@ -36,7 +36,7 @@
                                        #fixed - display fixed value from object or here
                                        #fixed-country
                                        #fixed-state
-                    'value' => 'Y', #for checkbox, title, fixed, fixedhidden
+                    'value' => 'Y', #for checkbox, title, fixed, hidden
                     'disabled' => 0,
                     'onchange' => 'javascript_function',
 
@@ -107,7 +107,10 @@
     'new_object_callback'
    
     #run when adding
-    'new_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
+    'new_callback' => sub { my( $cgi, $object, $fields_listref, $optref ) = @_; },
+
+    #run when cloning
+    'clone_callback' => sub { my( $cgi, $object, $fields_listref, $optref ) = @_; },
    
     #run before display to return a different value
     'value_callback' => sub { my( $columname, $value ) = @_; },
@@ -210,7 +213,7 @@
 %     'size'          => $f->{'size'},
 %     'maxlength'     => $f->{'maxlength'},
 %
-%     #checkbox, title, fixed, fixedhidden
+%     #checkbox, title, fixed, hidden
 %     #& deprecated weird value hashref used only by reason.html
 %     'value'         => $f->{'value'},
 %
@@ -592,8 +595,7 @@
 
   $object = qsearchs({ %qsearch, 'hashref' => { $pkey => $clone } });
 
-  #XXX document me
-  &{$opt{'clone_callback'}}($cgi, $object, $fields)
+  &{$opt{'clone_callback'}}($cgi, $object, $fields, \%opt )
     if $opt{'clone_callback'};
 
   #$object->$pkey('');