remove old test files

4 files changed, 22 insertions, 8 deletions

diff --git a/httemplate/docs/cvv2.html b/httemplate/docs/cvv2.html
index 653e1ff9a..de176d80c 100644
--- 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 9d2585366..2350917f1 100644
--- 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 df1d7e589..4724ce61f 100755
--- 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 d8a0041ee..4e036496a 100755
--- 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>