[mb-commits] r9185 - mb_server/branches/RELEASE_20070401-BRANCH/cgi-bin

Author: luks
Date: 2007-06-17 16:04:42 +0000 (Sun, 17 Jun 2007)
New Revision: 9185

Modified:
   mb_server/branches/RELEASE_20070401-BRANCH/cgi-bin/Label.pm
Log:
Add 'Publisher' label type.

Modified: mb_server/branches/RELEASE_20070401-BRANCH/cgi-bin/Label.pm
===================================================================
--- mb_server/branches/RELEASE_20070401-BRANCH/cgi-bin/Label.pm 2007-06-17 
15:46:00 UTC (rev 9184)
+++ mb_server/branches/RELEASE_20070401-BRANCH/cgi-bin/Label.pm 2007-06-17 
16:04:42 UTC (rev 9185)
@@ -47,6 +47,7 @@
 use constant LABEL_TYPE_ORIGINAL_PRODUCTION            => 4;
 use constant LABEL_TYPE_BOOTLEG_PRODUCTION             => 5;
 use constant LABEL_TYPE_REISSUE_PRODUCTION             => 6;
+use constant LABEL_TYPE_PUBLISHER              => 7;
 
 my %LabelTypeNames = (
    0 => [ 'Unknown', 0 ],
@@ -56,12 +57,13 @@
    4 => [ 'Original Production', 1 ],
    5 => [ 'Bootleg Production', 1 ],
    6 => [ 'Reissue Production', 1 ],
+   7 => [ 'Publisher', 0 ],
 );
 
 sub GetLabelTypes
 {
        my @types;
-       for (my $id = 0; $id <= 6; $id++)
+       for (my $id = 0; $id <= 7; $id++)
        {
                my $type = [$id, $LabelTypeNames{$id}->[0], undef, 
$LabelTypeNames{$id}->[1]];
                push @types, $type;
@@ -72,7 +74,7 @@
 sub IsValidType
 {
        my $type = shift;
-       return (defined $type and $type ne "" and $type >= 0 and $type <= 6);
+       return (defined $type and $type ne "" and $type >= 0 and $type <= 7);
 }
 
 # Label specific accessor function. Others are inherted from TableBase