[freeside-commits] freeside/httemplate/edit/process part_pkg.cgi, 1.33, 1.34

[Ivan,,,]

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

Modified Files:
	part_pkg.cgi 
Log Message:
fix cloning w/new package editor

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/part_pkg.cgi,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- part_pkg.cgi	16 Apr 2008 01:03:11 -0000	1.33
+++ part_pkg.cgi	12 Jun 2008 21:53:32 -0000	1.34
@@ -1,6 +1,7 @@
 <% include( 'elements/process.html',
               #'debug'             => 1,
               'table'             => 'part_pkg',
+              'redirect'          => $redirect_callback,
               'viewall_dir'       => 'browse',
               'viewall_ext'       => 'cgi',
               'edit_ext'          => 'cgi',
@@ -106,10 +107,18 @@
                 'custnum_ref' => \$custnum;
   }
 
+  warn "args: ".join('/', @args). "\n";
+
   @args;
 
 };
 
+my $redirect_callback = sub {
+  #my( $cgi, $new ) = @_;
+  return '' unless $custnum;
+  popurl(3). "view/cust_main.cgi?keywords=$custnum;dummy=";
+};
+
 #these should probably move to @args above and be processed by part_pkg.pm...
 
 $cgi->param('tax_override') =~ /^([\d,]+)$/;