bell west CDR format, RT#4403

[freeside.git] / httemplate / edit / part_pkg.cgi

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index ccce830..f79e759 100755 (executable)
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -47,7 +47,11 @@
 
                             { type => 'columnstart' },
                             
-                              {field=>'pkg',      type=>'text', size=>40 }, #32
+                              { field     => 'pkg',
+                                type      => 'text',
+                                size      => 40, #32
+                                maxlength => 50,
+                              },
                               {field=>'comment',  type=>'text', size=>40 }, #32
                               {field=>'classnum', type=>'select-pkg_class' },
                               {field=>'disabled', type=>'checkbox', value=>'Y'},
@@ -260,6 +264,7 @@ my $new_object_callback = sub {
     %options = $clone_part_pkg->options;
     $part_pkg->set($_ => $options{$_})
       foreach (qw( setup_fee recur_fee ));
+    $recur_disabled = $part_pkg->freq ? 0 : 1;
   } else {
     $part_pkg = FS::part_pkg->new( $hashref );
     $part_pkg->set($_ => '0')