remove old test files

diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm
index 1fea28c..c36fd55 100644 (file)
--- a/FS/FS/ClientAPI.pm
+++ b/FS/FS/ClientAPI.pm
@@ -3,6 +3,7 @@ package FS::ClientAPI;
 use strict;
 use base 'Exporter';
 use vars qw( @EXPORT_OK %handler $domain $DEBUG $me );
+use FS::UID qw( dbh );
 
 @EXPORT_OK = qw( load_clientapi_modules );
 
@@ -35,9 +36,17 @@ sub dispatch {
   my ( $self, $name ) = ( shift, shift );
   $name =~ s(/)(::)g;
   my $sub = "FS::ClientAPI::$name";
+
+  dbh->{'private_profile'} = {};
+
   warn "$me dispatch: calling $sub with args @_\n" if $DEBUG;
   no strict 'refs';
-  &{$sub}(@_);
+  my $rv = &{$sub}(@_);
+
+  warn dbh->sprintProfile if dbh->can('sprintProfile');
+  dbh->{'private_profile'} = {};
+
+  $rv;
 }
 
 1;

diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm
index 01b2226..e944099 100644 (file)
--- a/FS/FS/payinfo_Mixin.pm
+++ b/FS/FS/payinfo_Mixin.pm
@@ -445,11 +445,11 @@ sub upgrade_set_cardtype {
   my $class = shift;
   my $table = $class->table or die "upgrade_set_cardtype needs a table";
 
-  if ( ! FS::upgrade_journal->is_done("${table}__set_cardtype") ) {
+  if ( ! FS::upgrade_journal->is_done("${table}__set_cardtype2") ) {
     my $job = FS::queue->new({ job => 'FS::payinfo_Mixin::process_set_cardtype' });
     my $error = $job->insert($table);
     die $error if $error;
-    FS::upgrade_journal->set_done("${table}__set_cardtype");
+    FS::upgrade_journal->set_done("${table}__set_cardtype2");
   }
 }
 
@@ -461,7 +461,7 @@ sub process_set_cardtype {
   local $ignore_masked_payinfo = 1;
   my $search = FS::Cursor->new({
     table     => $table,
-    extra_sql => q[ WHERE payby IN('CARD','DCRD') AND paycardtype IS NULL ],
+    extra_sql => q[ WHERE payby IN('CARD','DCRD') AND ( paycardtype IS NULL or paycardtype = 'Not a credit card' ) ],
   });
   while (my $record = $search->fetch) {
     my $error = $record->replace;

diff --git a/FS/FS/pkg_referral.pm b/FS/FS/pkg_referral.pm
index a5ac795..0983ff6 100644 (file)
--- a/FS/FS/pkg_referral.pm
+++ b/FS/FS/pkg_referral.pm
@@ -1,11 +1,9 @@
 package FS::pkg_referral;
+use base qw( FS::Record );
 
 use strict;
-use vars qw( @ISA );
 use FS::Record qw( dbh );
 
-@ISA = qw(FS::Record);
-
 =head1 NAME
 
 FS::pkg_referral - Object methods for pkg_referral records

diff --git a/FS/bin/freeside-selfservice-xmlrpcd b/FS/bin/freeside-selfservice-xmlrpcd
index 7e373a0..e96f65a 100755 (executable)
--- a/FS/bin/freeside-selfservice-xmlrpcd
+++ b/FS/bin/freeside-selfservice-xmlrpcd
@@ -29,6 +29,11 @@ my $conf = new FS::Conf;
 die "not running; selfservice-xmlrpc conf option is off\n"
   unless $conf->exists('selfservice-xmlrpc');
 
+if ( $conf->exists('selfservice-db_profile') ) {
+  eval "use DBIx::Profile";
+  warn $@ if $@;
+}
+
 daemon_run( 'port' => 8080, 'handle_request' =>
   sub {
     my $request = shift;

diff --git a/FS/t/InitHandler.t b/FS/t/InitHandler.t
deleted file mode 100644 (file)
index 0ce60c8..0000000
--- a/FS/t/InitHandler.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::InitHandler;
-$loaded=1;
-print "ok 1\n";

diff --git a/FS/t/part_pkg-flat_comission.t b/FS/t/part_pkg-flat_comission.t
deleted file mode 100644 (file)
index fefa57e..0000000
--- a/FS/t/part_pkg-flat_comission.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::part_pkg::flat_comission;
-$loaded=1;
-print "ok 1\n";

diff --git a/FS/t/part_pkg-flat_comission_cust.t b/FS/t/part_pkg-flat_comission_cust.t
deleted file mode 100644 (file)
index 05d3ac4..0000000
--- a/FS/t/part_pkg-flat_comission_cust.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::part_pkg::flat_comission_cust;
-$loaded=1;
-print "ok 1\n";

diff --git a/FS/t/part_pkg-flat_comission_pkg.t b/FS/t/part_pkg-flat_comission_pkg.t
deleted file mode 100644 (file)
index 851b58d..0000000
--- a/FS/t/part_pkg-flat_comission_pkg.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::part_pkg::flat_comission_pkg;
-$loaded=1;
-print "ok 1\n";

diff --git a/FS/t/part_pkg-sesmon_hour.t b/FS/t/part_pkg-sesmon_hour.t
deleted file mode 100644 (file)
index 4f02cfc..0000000
--- a/FS/t/part_pkg-sesmon_hour.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::part_pkg::sesmon_hour;
-$loaded=1;
-print "ok 1\n";

diff --git a/FS/t/part_pkg-sesmon_minute.t b/FS/t/part_pkg-sesmon_minute.t
deleted file mode 100644 (file)
index 6ceaa3c..0000000
--- a/FS/t/part_pkg-sesmon_minute.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n" }
-END {print "not ok 1\n" unless $loaded;}
-use FS::part_pkg::sesmon_minute;
-$loaded=1;
-print "ok 1\n";

diff --git a/Makefile b/Makefile
index c6eef91..6ebd1ce 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -97,7 +97,7 @@ API_USER = fs_api
 
 SELFSERVICE_USER = fs_selfservice
 #never run on the same machine in production!!!
-SELFSERVICE_MACHINES = 
+SELFSERVICE_MACHINES = localhost
 # SELFSERVICE_MACHINES = www.example.com
 # SELFSERVICE_MACHINES = web1.example.com web2.example.com
 

diff --git a/httemplate/docs/cvv2.html b/httemplate/docs/cvv2.html
index 653e1ff..de176d8 100644 (file)
--- a/httemplate/docs/cvv2.html
+++ b/httemplate/docs/cvv2.html
@@ -1,4 +1,4 @@
-<& /elements/header-popup.html, '' &>
+<& /elements/header-popup.html &>
 
   <% mt('The CVV2 number (also called CVC2 or CID) is a three- or four-digit security code used to reduce credit card fraud') |h %>
   <BR><BR>

diff --git a/httemplate/edit/access_user.html b/httemplate/edit/access_user.html
index 9d25853..2350917 100644 (file)
--- a/httemplate/edit/access_user.html
+++ b/httemplate/edit/access_user.html
@@ -83,6 +83,14 @@ sub edit_callback {
     if $sched_item[0] && ! $sched_item[0]->disabled;
 }
 
+sub error_callback {
+  my ($cgi, $access_user) = @_;
+warn $access_user->sched_item_enabled;
+warn $cgi->param('sched_item_enabled');
+  $access_user->sched_item_enabled('Y')
+    if $cgi->param('sched_item_enabled');  
+}
+
 sub field_callback {
   my ($c, $o, $f) = @_;
   if($f->{'type'} eq 'password' and $o->is_system_user) {

diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi
index df1d7e5..4724ce6 100755 (executable)
--- a/httemplate/search/cust_pkg.cgi
+++ b/httemplate/search/cust_pkg.cgi
@@ -151,7 +151,10 @@ my $money_char = $conf->config('money_char') || '$';
 
 my %search_hash = ();
 
-#some false laziness w/misc/bulk_change_pkg.cgi
+#some false laziness w/misc/bulk_change_pkg.cgi and bulk_pkg_increment_bill.cgi
+# and misc/process/
+# with shitty results (bulk doing things to wrong packages) if you don't update
+# those too :/
   
 $search_hash{'query'} = $cgi->keywords;
 

diff --git a/httemplate/view/cust_pkg.cgi b/httemplate/view/cust_pkg.cgi
index d8a0041..4e03649 100755 (executable)
--- a/httemplate/view/cust_pkg.cgi
+++ b/httemplate/view/cust_pkg.cgi
@@ -1,11 +1,14 @@
-<% $cgi->redirect($path) %>
+<& /elements/header-cust_main.html,
+     view    => 'packages',
+     custnum => $cust_pkg->custnum,
+&>
+
+<& /elements/footer-cust_main.html &>
 <%init>
-# since cust_pkgs can't be viewed directly, just throw a redirect
+
 my ($pkgnum) = $cgi->keywords;
 $pkgnum =~ /^\d+$/ or die "invalid pkgnum '$pkgnum'";
-my $show = $FS::CurrentUser::CurrentUser->default_customer_view =~ /^(jumbo|packages)$/ ? '' : ';show=packages';
 
-my $self = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found";
-my $frag = 'cust_pkg'. $self->pkgnum;
-my $path = $p.'view/cust_main.cgi?custnum='.$self->custnum.";$show#$frag";
+my $cust_pkg = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found";
+
 </%init>