Add new user levels

cgi-bin/DW/Controller/Admin/Pay.pm

@@ -84,7 +84,7 @@ sub main_controller {
 
         my $type = $post->{type};
         return error_ml("$scope.error.invalidstatus")
-            unless $type =~ /^(?:starlight|golden|mastermind|bejeweled|expire)$/;
+            unless $type =~ /^(?:starlight|golden|mastermind|bejeweled|lover|delicate|enchanted|karma|mirrorball|expire)$/;
 
         my $months = $post->{months} || 0;
         my $days   = $post->{days}   || 0;

cgi-bin/DW/StatData/PaidAccounts.pm

@@ -65,6 +65,16 @@ Example: paid, premium, seed
 
 =item bejeweled
 
+=item lover
+
+=item delicate
+
+=item enchanted
+
+=item karma
+
+=item mirrorball
+
 =item staff
 
 =back

cgi-bin/LJ/Global/Img.pm

@@ -431,6 +431,41 @@ $img{'id_bejeweled'} = {
     alt    => 'img.id_bejeweled',
 };
 
+$img{'id_lover'} = {
+    src    => '/silk/identity/lover.png',
+    width  => 16,
+    height => 16,
+    alt    => 'img.id_lover',
+};
+
+$img{'id_delicate'} = {
+    src    => '/silk/identity/delicate.png',
+    width  => 16,
+    height => 16,
+    alt    => 'img.id_delicate',
+};
+
+$img{'id_enchanted'} = {
+    src    => '/silk/identity/enchanted.png',
+    width  => 16,
+    height => 16,
+    alt    => 'img.id_enchanted',
+};
+
+$img{'id_karma'} = {
+    src    => '/silk/identity/karma.png',
+    width  => 16,
+    height => 16,
+    alt    => 'img.id_karma',
+};
+
+$img{'id_mirrorball'} = {
+    src    => '/silk/identity/mirrorball.png',
+    width  => 16,
+    height => 16,
+    alt    => 'img.id_mirrorball',
+};
+
 $img{'id_staff'} = {
     src    => '/silk/identity/staff.png',
     width  => 16,

etc/kubernetes/web/secrets/config.pl

@@ -337,6 +337,15 @@
             '_name' => '_moveinprogress',
             'readonly' => 1,
         },
+        '6' => {  # 0x10
+            '_name' => 'Lover',
+            '_key' => 'lover_user',
+            '_visible_name' => 'Lover',
+            '_account_type' => 'lover',
+            '_refund_points' => 0,
+            %CAP_PAID,
+            'userpics' => 250
+        },
         '7' => {  # 0x80
             '_name' => 'Staff',
             '_key' => 'staff',
@@ -346,6 +355,42 @@
             %CAP_PREMIUM,
         },
         8 => { _name => 'beta', _key => 'betafeatures' }, # 0x100
+        '9' => {  # 0x10
+            '_name' => 'Delicate',
+            '_key' => 'delicate_user',
+            '_visible_name' => 'Delicate',
+            '_account_type' => 'Delicate',
+            '_refund_points' => 0,
+            %CAP_PAID,
+            'userpics' => 250
+        },
+        '10' => {  # 0x10
+            '_name' => 'Enchanted',
+            '_key' => 'enchanted_user',
+            '_visible_name' => 'Enchanted',
+            '_account_type' => 'Enchanted',
+            '_refund_points' => 0,
+            %CAP_PAID,
+            'userpics' => 250
+        },
+        '11' => {  # 0x10
+            '_name' => 'Karma',
+            '_key' => 'karma_user',
+            '_visible_name' => 'Karma',
+            '_account_type' => 'Karma',
+            '_refund_points' => 0,
+            %CAP_PAID,
+            'userpics' => 250
+        },
+        '12' => {  # 0x10
+            '_name' => 'Mirrorball',
+            '_key' => 'mirrorball_user',
+            '_visible_name' => 'Mirrorball',
+            '_account_type' => 'Mirrorball',
+            '_refund_points' => 0,
+            %CAP_PAID,
+            'userpics' => 250
+        },
     );
 
     # default capability class mask for new users:

ext/dw-nonfree/bin/upgrading/en_DW.dat

@@ -32,6 +32,16 @@ invitecodes.userclass.mastermind=Mastermind accounts
 
 invitecodes.userclass.bejeweled=Bejeweled accounts
 
+invitecodes.userclass.lover=Lover accounts
+
+invitecodes.userclass.delicate=Delicate accounts
+
+invitecodes.userclass.enchanted=Enchanted accounts
+
+invitecodes.userclass.karma=Karma accounts
+
+invitecodes.userclass.mirrorball=Mirrorball accounts
+
 langname.en_DW=English
 
 shop.admin.checkmoneyorder.body=[[user]] just sent a check/money order. Receipt is at: [[receipturl]]

views/admin/invites/promo-edit.tt.text

@@ -53,6 +53,16 @@
 
 .field.paid_class.bejeweled=Bejeweled
 
+.field.paid_class.lover=Lover
+
+.field.paid_class.delicate=Delicate
+
+.field.paid_class.enchanted=Enchanted
+
+.field.paid_class.karma=Karma
+
+.field.paid_class.mirrorball=Mirrorball
+
 .field.paid_months.label=Months of paid time, if selected:
 
 .field.suggest_journal.label=Suggest Journal:

views/admin/pay/viewuser.tt.text

@@ -70,6 +70,16 @@
 
 .select.bejeweled=Bejeweled Account
 
+.select.lover=Lover Account
+
+.select.delicate=Delicate Account
+
+.select.enchanted=Enchanted Account
+
+.select.karma=Karma Account
+
+.select.mirrorball=Mirrorball Account
+
 .statushistory=View statushistory for user.
 
 .title=Payment Manager - View User

views/stats/site.tt

@@ -136,7 +136,7 @@ class="bargraph" />
         <th>[% ".paid.colhdr.$h" | ml %]</th>
     [% END %]
     </tr></thead>
-    [% FOREACH level = [ 'starlight' 'golden' 'mastermind' 'bejeweled' ] %]
+    [% FOREACH level = [ 'starlight' 'golden' 'mastermind' 'bejeweled' 'lover' 'delicate' 'enchanted' 'karma' 'mirrorball' ] %]
         <tr><th>[% ".paid.rowhdr.$level" | ml %]</th>
         [% n = paid.$level.defined ? paid.$level : 0 %]
         <td class='stats'>[% n %]</td>