- print "restoring setup for pkgnum ". $cust_pkg->pkgnum.
- " (custnum ". $cust_pkg->custnum.
- ") to ". time2str('%D', $h_cust_pkg->setup). "\n";
+ #print "restoring setup for pkgnum ". $cust_pkg->pkgnum.
+ # " (custnum ". $cust_pkg->custnum.
+ # ") to ". time2str('%D', $h_cust_pkg->setup). "\n";
+ print $cust_pkg->pkgnum. ','.
+ time2str('%D', $h_cust_pkg->setup). ','.
+ $cust_pkg->custnum. ','.
+ '"'. $cust_pkg->cust_main->name. '"'. "\n";