CREATE INDEX queue_arg1 ON queue_arg ( jobnum );
-Run bin/fs-migrate-part_svc
-
Run bin/dbdef-create
+Run bin/fs-migrate-part_svc
+
Create the `/usr/local/etc/freeside/cache.<i>datasrc</i>' directory
(ownded by the freeside user).
<%
-#<!-- $Id: quick-cust_pkg.cgi,v 1.1 2001-09-04 14:44:07 ivan Exp $ -->
+#<!-- $Id: quick-cust_pkg.cgi,v 1.2 2001-09-11 09:56:27 ivan Exp $ -->
use strict;
use vars qw( $cgi $custnum $pkgpart $error ); #@remove_pkgnums @pkgparts
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
-use FS::CGI qw(popurl);
+use FS::CGI qw(popurl eidiot);
use FS::cust_pkg;
$cgi = new CGI; # create form object
<%
-#<!-- $Id: cust_main.cgi,v 1.9 2001-09-04 14:44:07 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.10 2001-09-11 09:56:27 ivan Exp $ -->
use strict;
use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral
print '<BR>'.
'<FORM ACTION="'.popurl(2).'edit/process/quick-cust_pkg.cgi" METHOD="POST">'.
qq!<INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum">!.
- '<SELECT NAME="pkgpart"><OPTION>';
+ '<SELECT NAME="pkgpart"><OPTION> ';
foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
my $pkgpart = $type_pkgs->pkgpart;