Skip to content

Instantly share code, notes, and snippets.

@MrJeremyHobbs

MrJeremyHobbs/call.pl

Created February 9, 2021 04:56
Show Gist options
  • Save MrJeremyHobbs/444ffa4c16cc0b9d3dad5cb94269cd5f to your computer and use it in GitHub Desktop.
Save MrJeremyHobbs/444ffa4c16cc0b9d3dad5cb94269cd5f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
call.pl
use strict;
use Library::CallNumber::LC;
sub parseCall
{
my $call_number = shift;
#/ Normalize
my @call = Library::CallNumber::LC->new($call_number)->components(); #Splits call# into an array
my $subClass = $call[0];
my $num = $call[1];
#/ Selector
my $sel;
if($subClass eq "AC") {$sel = "GEN"}
if($subClass eq "AE") {$sel = "GEN"}
if($subClass eq "AG") {$sel = "GEN"}
if($subClass eq "AI") {$sel = "GEN"}
if($subClass eq "AM") {$sel = "CLA"}
if($subClass eq "AN") {$sel = "GEN"}
if($subClass eq "AP") {$sel = "GEN"}
if($subClass eq "AS") {$sel = "GEN"}
if($subClass eq "AY") {$sel = "GEN"}
if($subClass eq "AZ") {$sel = "GEN"}
if($subClass eq "B") {$sel = "CLA"}
if($subClass eq "BC") {$sel = "CLA"}
if($subClass eq "BD") {$sel = "CLA"}
if($subClass eq "BF") {$sel = "CLA"}
if($subClass eq "BH") {$sel = "CLA"}
if($subClass eq "BJ") {$sel = "CLA"}
if($subClass eq "BL") {$sel = "CLA"}
if($subClass eq "BM") {$sel = "CLA"}
if($subClass eq "BP") {$sel = "CLA"}
if($subClass eq "BQ") {$sel = "CLA"}
if($subClass eq "BR") {$sel = "CLA"}
if($subClass eq "BS") {$sel = "CLA"}
if($subClass eq "BT") {$sel = "CLA"}
if($subClass eq "BV") {$sel = "CLA"}
if($subClass eq "BX") {$sel = "CLA"}
if($subClass eq "C") {$sel = "CLA"}
if($subClass eq "CB") {$sel = "CLA"}
if($subClass eq "CC") {$sel = "CLA"}
if($subClass eq "CD") {$sel = "CLA"}
if($subClass eq "CE") {$sel = "CLA"}
if($subClass eq "CJ") {$sel = "CLA"}
if($subClass eq "CN") {$sel = "CLA"}
if($subClass eq "CR") {$sel = "CLA"}
if($subClass eq "CS") {$sel = "GEN"}
if($subClass eq "CT") {$sel = "CLA"}
if($subClass eq "D") {$sel = "CLA"}
if($subClass eq "DA") {$sel = "CLA"}
if($subClass eq "DAW") {$sel = "CLA"}
if($subClass eq "DB") {$sel = "CLA"}
if($subClass eq "DC") {$sel = "CLA"}
if($subClass eq "DD") {$sel = "CLA"}
if($subClass eq "DE") {$sel = "CLA"}
if($subClass eq "DF") {$sel = "CLA"}
if($subClass eq "DG") {$sel = "CLA"}
if($subClass eq "DH") {$sel = "CLA"}
if($subClass eq "DJ") {$sel = "CLA"}
if($subClass eq "DJK") {$sel = "CLA"}
if($subClass eq "DK") {$sel = "CLA"}
if($subClass eq "DL") {$sel = "CLA"}
if($subClass eq "DP") {$sel = "CLA"}
if($subClass eq "DQ") {$sel = "CLA"}
if($subClass eq "DR") {$sel = "CLA"}
if($subClass eq "DS") {$sel = "CLA"}
if($subClass eq "DT") {$sel = "CLA"}
if($subClass eq "DU") {$sel = "CLA"}
if($subClass eq "DX") {$sel = "CLA"}
if($subClass eq "E") {$sel = "CLA"}
if($subClass eq "F") {$sel = "CLA"}
if($subClass eq "G") {
$sel = "CLA";
if($num >= 70.2 && $num < 71) {$sel = "COSAM"}
if($num >= 142 && $num < 143) {$sel = "COSAM"}
if($num >= 154 && $num < 159) {$sel = "CAFES"}
if($num >= 550 && $num < 551) {$sel = "CAFES"}
if($num >= 1000 && $num < 1001) {$sel = "COSAM"}
if($num >= 1001 && $num < 9981) {$sel = "GEN"}
}
if($subClass eq "GA") {$sel = "COSAM"}
if($subClass eq "GB") {$sel = "COSAM"}
if($subClass eq "GC") {$sel = "COSAM"}
if($subClass eq "GE") {
$sel = "CAFES" ;
if($num >= 40 && $num < 45) {$sel = "CLA"}
if($num >= 45 && $num < 50) {$sel = "COSAM"}
if($num >= 70 && $num < 95) {$sel = "SOE"}
if($num >= 170 && $num < 195) {$sel = "CLA"}
if($num >= 350 && $num < 351) {$sel = "CAED"}
}
if($subClass eq "GF") {
$sel = "CLA";
if($num >= 51 && $num < 86) {$sel = "CAFES"}
if($num >= 86 && $num < 500) {$sel = "CAED"}
}
if($subClass eq "GN") {$sel = "CLA"}
if($subClass eq "GR") {$sel = "CLA"}
if($subClass eq "GT") {$sel = "CLA"}
if($subClass eq "GV") {
$sel = "CAFES";
if($num >= 201 && $num < 401) {$sel = "COSAM"}
if($num >= 401 && $num < 435) {$sel = "CAFES"}
if($num >= 435 && $num < 557) {$sel = "COSAM"}
if($num >= 1833.5 && $num < 1834.7) {$sel = "CAFES"}
if($num >= 1851 && $num < 1861) {$sel = "CAFES"}
}
if($subClass eq "H") {$sel = "CLA"}
if($subClass eq "HA") {$sel = "COSAM"}
if($subClass eq "HB") {$sel = "OCOB"}
if($subClass eq "HC") {$sel = "OCOB"}
if($subClass eq "HD") {
$sel = "OCOB";
if($num >= 1401 && $num < 2321) {$sel = "CAFES"}
if($num >= 9000 && $num < 9502) {$sel = "CAFES"}
}
if($subClass eq "HE") {
$sel = "CENG";
if($num >= 8689 && $num < 8701) {$sel = "CLA"}
}
if($subClass eq "HF") {$sel = "OCOB"}
if($subClass eq "HG") {$sel = "OCOB"}
if($subClass eq "HJ") {$sel = "OCOB"}
if($subClass eq "HM") {$sel = "CLA"}
if($subClass eq "HN") {$sel = "CLA"}
if($subClass eq "HQ") {$sel = "CLA"}
if($subClass eq "HS") {$sel = "CLA"}
if($subClass eq "HT") {
$sel = "CAED";
if($num >= 1 && $num < 101) {$sel = "CLA"}
if($num >= 601 && $num < 1596) {$sel = "CLA"}
}
if($subClass eq "HV") {$sel = "CLA"}
if($subClass eq "HX") {$sel = "CLA"}
if($subClass eq "J") {$sel = "CLA"}
if($subClass eq "JA") {$sel = "CLA"}
if($subClass eq "JC") {$sel = "CLA"}
if($subClass eq "JF") {$sel = "CLA"}
if($subClass eq "JJ") {$sel = "CLA"}
if($subClass eq "JK") {$sel = "CLA"}
if($subClass eq "JL") {$sel = "CLA"}
if($subClass eq "JN") {$sel = "CLA"}
if($subClass eq "JQ") {$sel = "CLA"}
if($subClass eq "JS") {$sel = "CLA"}
if($subClass eq "JV") {$sel = "CLA"}
if($subClass eq "JX") {$sel = "CLA"}
if($subClass eq "JZ") {$sel = "CLA"}
if($subClass eq "K") {$sel = "CLA"}
if($subClass eq "KB") {$sel = "CLA"}
if($subClass eq "KBB") {$sel = "CLA"}
if($subClass eq "KBM") {$sel = "CLA"}
if($subClass eq "KBP") {$sel = "CLA"}
if($subClass eq "KBR") {$sel = "CLA"}
if($subClass eq "KBU") {$sel = "CLA"}
if($subClass eq "KD") {$sel = "CLA"}
if($subClass eq "KDC") {$sel = "CLA"}
if($subClass eq "KDE") {$sel = "CLA"}
if($subClass eq "KDG") {$sel = "CLA"}
if($subClass eq "KDK") {$sel = "CLA"}
if($subClass eq "KDZ") {$sel = "CLA"}
if($subClass eq "KE") {$sel = "CLA"}
if($subClass eq "KF") {
$sel = "CLA";
if($num >= 3835 && $num < 3861) {$sel = "CAFES"}
}
if($subClass eq "KFA") {$sel = "CLA"}
if($subClass eq "KFC") {$sel = "CLA"}
if($subClass eq "KFD") {$sel = "CLA"}
if($subClass eq "KFF") {$sel = "CLA"}
if($subClass eq "KFG") {$sel = "CLA"}
if($subClass eq "KFH") {$sel = "CLA"}
if($subClass eq "KFI") {$sel = "CLA"}
if($subClass eq "KFK") {$sel = "CLA"}
if($subClass eq "KFL") {$sel = "CLA"}
if($subClass eq "KFM") {$sel = "CLA"}
if($subClass eq "KFN") {$sel = "CLA"}
if($subClass eq "KFO") {$sel = "CLA"}
if($subClass eq "KFP") {$sel = "CLA"}
if($subClass eq "KFR") {$sel = "CLA"}
if($subClass eq "KFS") {$sel = "CLA"}
if($subClass eq "KFT") {$sel = "CLA"}
if($subClass eq "KFU") {$sel = "CLA"}
if($subClass eq "KFV") {$sel = "CLA"}
if($subClass eq "KFW") {$sel = "CLA"}
if($subClass eq "KFX") {$sel = "CLA"}
if($subClass eq "KFZ") {$sel = "CLA"}
if($subClass eq "KG") {$sel = "CLA"}
if($subClass eq "KH") {$sel = "CLA"}
if($subClass eq "KHA") {$sel = "CLA"}
if($subClass eq "KHC") {$sel = "CLA"}
if($subClass eq "KHD") {$sel = "CLA"}
if($subClass eq "KHF") {$sel = "CLA"}
if($subClass eq "KHH") {$sel = "CLA"}
if($subClass eq "KHK") {$sel = "CLA"}
if($subClass eq "KHL") {$sel = "CLA"}
if($subClass eq "KHM") {$sel = "CLA"}
if($subClass eq "KHN") {$sel = "CLA"}
if($subClass eq "KHP") {$sel = "CLA"}
if($subClass eq "KHQ") {$sel = "CLA"}
if($subClass eq "KHR") {$sel = "CLA"}
if($subClass eq "KHS") {$sel = "CLA"}
if($subClass eq "KHU") {$sel = "CLA"}
if($subClass eq "KHW") {$sel = "CLA"}
if($subClass eq "KJ") {$sel = "CLA"}
if($subClass eq "KJA") {$sel = "CLA"}
if($subClass eq "KJC") {$sel = "CLA"}
if($subClass eq "KJE") {$sel = "CLA"}
if($subClass eq "KJG") {$sel = "CLA"}
if($subClass eq "KJH") {$sel = "CLA"}
if($subClass eq "KJJ") {$sel = "CLA"}
if($subClass eq "KJK") {$sel = "CLA"}
if($subClass eq "KJM") {$sel = "CLA"}
if($subClass eq "KJN") {$sel = "CLA"}
if($subClass eq "KJP") {$sel = "CLA"}
if($subClass eq "KJQ") {$sel = "CLA"}
if($subClass eq "KJR") {$sel = "CLA"}
if($subClass eq "KJS") {$sel = "CLA"}
if($subClass eq "KJT") {$sel = "CLA"}
if($subClass eq "KJV") {$sel = "CLA"}
if($subClass eq "KJW") {$sel = "CLA"}
if($subClass eq "KK") {$sel = "CLA"}
if($subClass eq "KKA") {$sel = "CLA"}
if($subClass eq "KKB") {$sel = "CLA"}
if($subClass eq "KKC") {$sel = "CLA"}
if($subClass eq "KKE") {$sel = "CLA"}
if($subClass eq "KKF") {$sel = "CLA"}
if($subClass eq "KKG") {$sel = "CLA"}
if($subClass eq "KKH") {$sel = "CLA"}
if($subClass eq "KKI") {$sel = "CLA"}
if($subClass eq "KKJ") {$sel = "CLA"}
if($subClass eq "KKK") {$sel = "CLA"}
if($subClass eq "KKL") {$sel = "CLA"}
if($subClass eq "KKM") {$sel = "CLA"}
if($subClass eq "KKN") {$sel = "CLA"}
if($subClass eq "KKP") {$sel = "CLA"}
if($subClass eq "KKQ") {$sel = "CLA"}
if($subClass eq "KKR") {$sel = "CLA"}
if($subClass eq "KKS") {$sel = "CLA"}
if($subClass eq "KKT") {$sel = "CLA"}
if($subClass eq "KKV") {$sel = "CLA"}
if($subClass eq "KKW") {$sel = "CLA"}
if($subClass eq "KKX") {$sel = "CLA"}
if($subClass eq "KKY") {$sel = "CLA"}
if($subClass eq "KKZ") {$sel = "CLA"}
if($subClass eq "KL") {$sel = "CLA"}
if($subClass eq "KLA") {$sel = "CLA"}
if($subClass eq "KLB") {$sel = "CLA"}
if($subClass eq "KLD") {$sel = "CLA"}
if($subClass eq "KLE") {$sel = "CLA"}
if($subClass eq "KLF") {$sel = "CLA"}
if($subClass eq "KLH") {$sel = "CLA"}
if($subClass eq "KLM") {$sel = "CLA"}
if($subClass eq "KLN") {$sel = "CLA"}
if($subClass eq "KLP") {$sel = "CLA"}
if($subClass eq "KLQ") {$sel = "CLA"}
if($subClass eq "KLR") {$sel = "CLA"}
if($subClass eq "KLS") {$sel = "CLA"}
if($subClass eq "KLT") {$sel = "CLA"}
if($subClass eq "KLV") {$sel = "CLA"}
if($subClass eq "KLW") {$sel = "CLA"}
if($subClass eq "KM") {$sel = "CLA"}
if($subClass eq "KMC") {$sel = "CLA"}
if($subClass eq "KME") {$sel = "CLA"}
if($subClass eq "KMF") {$sel = "CLA"}
if($subClass eq "KMG") {$sel = "CLA"}
if($subClass eq "KMH") {$sel = "CLA"}
if($subClass eq "KMJ") {$sel = "CLA"}
if($subClass eq "KMK") {$sel = "CLA"}
if($subClass eq "KML") {$sel = "CLA"}
if($subClass eq "KMM") {$sel = "CLA"}
if($subClass eq "KMN") {$sel = "CLA"}
if($subClass eq "KMP") {$sel = "CLA"}
if($subClass eq "KMQ") {$sel = "CLA"}
if($subClass eq "KMS") {$sel = "CLA"}
if($subClass eq "KMT") {$sel = "CLA"}
if($subClass eq "KMU") {$sel = "CLA"}
if($subClass eq "KMV") {$sel = "CLA"}
if($subClass eq "KMX") {$sel = "CLA"}
if($subClass eq "KMY") {$sel = "CLA"}
if($subClass eq "KNC") {$sel = "CLA"}
if($subClass eq "KNE") {$sel = "CLA"}
if($subClass eq "KNF") {$sel = "CLA"}
if($subClass eq "KNG") {$sel = "CLA"}
if($subClass eq "KNH") {$sel = "CLA"}
if($subClass eq "KNK") {$sel = "CLA"}
if($subClass eq "KNL") {$sel = "CLA"}
if($subClass eq "KNM") {$sel = "CLA"}
if($subClass eq "KNN") {$sel = "CLA"}
if($subClass eq "KNP") {$sel = "CLA"}
if($subClass eq "KNQ") {$sel = "CLA"}
if($subClass eq "KNR") {$sel = "CLA"}
if($subClass eq "KNS") {$sel = "CLA"}
if($subClass eq "KNT") {$sel = "CLA"}
if($subClass eq "KNU") {$sel = "CLA"}
if($subClass eq "KNV") {$sel = "CLA"}
if($subClass eq "KNW") {$sel = "CLA"}
if($subClass eq "KNX") {$sel = "CLA"}
if($subClass eq "KNY") {$sel = "CLA"}
if($subClass eq "KPA") {$sel = "CLA"}
if($subClass eq "KPC") {$sel = "CLA"}
if($subClass eq "KPE") {$sel = "CLA"}
if($subClass eq "KPF") {$sel = "CLA"}
if($subClass eq "KPG") {$sel = "CLA"}
if($subClass eq "KPH") {$sel = "CLA"}
if($subClass eq "KPJ") {$sel = "CLA"}
if($subClass eq "KPK") {$sel = "CLA"}
if($subClass eq "KPL") {$sel = "CLA"}
if($subClass eq "KPM") {$sel = "CLA"}
if($subClass eq "KPP") {$sel = "CLA"}
if($subClass eq "KPS") {$sel = "CLA"}
if($subClass eq "KPT") {$sel = "CLA"}
if($subClass eq "KPV") {$sel = "CLA"}
if($subClass eq "KPW") {$sel = "CLA"}
if($subClass eq "KQ") {$sel = "CLA"}
if($subClass eq "KQC") {$sel = "CLA"}
if($subClass eq "KQE") {$sel = "CLA"}
if($subClass eq "KQG") {$sel = "CLA"}
if($subClass eq "KQH") {$sel = "CLA"}
if($subClass eq "KQJ") {$sel = "CLA"}
if($subClass eq "KQK") {$sel = "CLA"}
if($subClass eq "KQM") {$sel = "CLA"}
if($subClass eq "KQP") {$sel = "CLA"}
if($subClass eq "KQT") {$sel = "CLA"}
if($subClass eq "KQV") {$sel = "CLA"}
if($subClass eq "KQW") {$sel = "CLA"}
if($subClass eq "KQX") {$sel = "CLA"}
if($subClass eq "KRB") {$sel = "CLA"}
if($subClass eq "KRC") {$sel = "CLA"}
if($subClass eq "KRE") {$sel = "CLA"}
if($subClass eq "KRG") {$sel = "CLA"}
if($subClass eq "KRK") {$sel = "CLA"}
if($subClass eq "KRL") {$sel = "CLA"}
if($subClass eq "KRM") {$sel = "CLA"}
if($subClass eq "KRN") {$sel = "CLA"}
if($subClass eq "KRP") {$sel = "CLA"}
if($subClass eq "KRR") {$sel = "CLA"}
if($subClass eq "KRS") {$sel = "CLA"}
if($subClass eq "KRU") {$sel = "CLA"}
if($subClass eq "KRV") {$sel = "CLA"}
if($subClass eq "KRW") {$sel = "CLA"}
if($subClass eq "KRX") {$sel = "CLA"}
if($subClass eq "KRY") {$sel = "CLA"}
if($subClass eq "KSA") {$sel = "CLA"}
if($subClass eq "KSC") {$sel = "CLA"}
if($subClass eq "KSE") {$sel = "CLA"}
if($subClass eq "KSG") {$sel = "CLA"}
if($subClass eq "KSH") {$sel = "CLA"}
if($subClass eq "KSK") {$sel = "CLA"}
if($subClass eq "KSL") {$sel = "CLA"}
if($subClass eq "KSN") {$sel = "CLA"}
if($subClass eq "KSP") {$sel = "CLA"}
if($subClass eq "KSR") {$sel = "CLA"}
if($subClass eq "KSS") {$sel = "CLA"}
if($subClass eq "KST") {$sel = "CLA"}
if($subClass eq "KSU") {$sel = "CLA"}
if($subClass eq "KSV") {$sel = "CLA"}
if($subClass eq "KSW") {$sel = "CLA"}
if($subClass eq "KSX") {$sel = "CLA"}
if($subClass eq "KSY") {$sel = "CLA"}
if($subClass eq "KSZ") {$sel = "CLA"}
if($subClass eq "KTA") {$sel = "CLA"}
if($subClass eq "KTC") {$sel = "CLA"}
if($subClass eq "KTD") {$sel = "CLA"}
if($subClass eq "KTE") {$sel = "CLA"}
if($subClass eq "KTF") {$sel = "CLA"}
if($subClass eq "KTG") {$sel = "CLA"}
if($subClass eq "KTH") {$sel = "CLA"}
if($subClass eq "KTJ") {$sel = "CLA"}
if($subClass eq "KTK") {$sel = "CLA"}
if($subClass eq "KTL") {$sel = "CLA"}
if($subClass eq "KTN") {$sel = "CLA"}
if($subClass eq "KTQ") {$sel = "CLA"}
if($subClass eq "KTR") {$sel = "CLA"}
if($subClass eq "KTT") {$sel = "CLA"}
if($subClass eq "KTU") {$sel = "CLA"}
if($subClass eq "KTV") {$sel = "CLA"}
if($subClass eq "KTW") {$sel = "CLA"}
if($subClass eq "KTX") {$sel = "CLA"}
if($subClass eq "KTY") {$sel = "CLA"}
if($subClass eq "KTZ") {$sel = "CLA"}
if($subClass eq "KU") {$sel = "CLA"}
if($subClass eq "KUA") {$sel = "CLA"}
if($subClass eq "KUB") {$sel = "CLA"}
if($subClass eq "KUC") {$sel = "CLA"}
if($subClass eq "KUD") {$sel = "CLA"}
if($subClass eq "KUE") {$sel = "CLA"}
if($subClass eq "KUF") {$sel = "CLA"}
if($subClass eq "KUG") {$sel = "CLA"}
if($subClass eq "KUH") {$sel = "CLA"}
if($subClass eq "KUN") {$sel = "CLA"}
if($subClass eq "KUQ") {$sel = "CLA"}
if($subClass eq "KVB") {$sel = "CLA"}
if($subClass eq "KVC") {$sel = "CLA"}
if($subClass eq "KVE") {$sel = "CLA"}
if($subClass eq "KVH") {$sel = "CLA"}
if($subClass eq "KVL") {$sel = "CLA"}
if($subClass eq "KVM") {$sel = "CLA"}
if($subClass eq "KVN") {$sel = "CLA"}
if($subClass eq "KVP") {$sel = "CLA"}
if($subClass eq "KVQ") {$sel = "CLA"}
if($subClass eq "KVR") {$sel = "CLA"}
if($subClass eq "KVS") {$sel = "CLA"}
if($subClass eq "KVU") {$sel = "CLA"}
if($subClass eq "KVW") {$sel = "CLA"}
if($subClass eq "KWA") {$sel = "CLA"}
if($subClass eq "KWC") {$sel = "CLA"}
if($subClass eq "KWE") {$sel = "CLA"}
if($subClass eq "KWG") {$sel = "CLA"}
if($subClass eq "KWH") {$sel = "CLA"}
if($subClass eq "KWL") {$sel = "CLA"}
if($subClass eq "KWP") {$sel = "CLA"}
if($subClass eq "KWQ") {$sel = "CLA"}
if($subClass eq "KWR") {$sel = "CLA"}
if($subClass eq "KWT") {$sel = "CLA"}
if($subClass eq "KWW") {$sel = "CLA"}
if($subClass eq "KWX") {$sel = "CLA"}
if($subClass eq "KZ") {$sel = "CLA"}
if($subClass eq "KZA") {$sel = "CLA"}
if($subClass eq "KZD") {$sel = "CLA"}
if($subClass eq "L") {$sel = "SOE"}
if($subClass eq "LA") {$sel = "SOE"}
if($subClass eq "LB") {$sel = "SOE"}
if($subClass eq "LC") {$sel = "SOE"}
if($subClass eq "LD") {$sel = "SOE"}
if($subClass eq "LE") {$sel = "SOE"}
if($subClass eq "LF") {$sel = "SOE"}
if($subClass eq "LG") {$sel = "SOE"}
if($subClass eq "LH") {$sel = "SOE"}
if($subClass eq "LJ") {$sel = "SOE"}
if($subClass eq "LT") {$sel = "SOE"}
if($subClass eq "M") {$sel = "CLA"}
if($subClass eq "ML") {$sel = "CLA"}
if($subClass eq "MT") {$sel = "CLA"}
if($subClass eq "N") {$sel = "CLA"}
if($subClass eq "NA") {$sel = "CAED"}
if($subClass eq "NB") {$sel = "CLA"}
if($subClass eq "NC") {$sel = "CLA"}
if($subClass eq "ND") {$sel = "CLA"}
if($subClass eq "NE") {$sel = "CLA"}
if($subClass eq "NK") {
$sel = "CLA";
if($num >= 2200 && $num < 2775) {$sel = "CAED"}
}
if($subClass eq "NX") {$sel = "CLA"}
if($subClass eq "P") {
$sel = "CLA";
if($num >= 115 && $num < 116) {$sel = "SOE"}
}
if($subClass eq "PA") {$sel = "CLA"}
if($subClass eq "PB") {$sel = "CLA"}
if($subClass eq "PC") {$sel = "CLA"}
if($subClass eq "PD") {$sel = "CLA"}
if($subClass eq "PE") {
$sel = "CLA";
if($num >= 1127 && $num < 1138) {$sel = "SOE"}
}
if($subClass eq "PF") {$sel = "CLA"}
if($subClass eq "PG") {$sel = "CLA"}
if($subClass eq "PH") {$sel = "CLA"}
if($subClass eq "PJ") {$sel = "CLA"}
if($subClass eq "PK") {$sel = "CLA"}
if($subClass eq "PL") {$sel = "CLA"}
if($subClass eq "PM") {$sel = "CLA"}
if($subClass eq "PN") {$sel = "CLA"}
if($subClass eq "PQ") {$sel = "CLA"}
if($subClass eq "PR") {$sel = "CLA"}
if($subClass eq "PS") {$sel = "CLA"}
if($subClass eq "PT") {$sel = "CLA"}
if($subClass eq "PZ") {$sel = "SOE"}
if($subClass eq "Q") {
$sel = "COSAM";
if($num >= 300 && $num < 391) {$sel = "CENG"}
}
if($subClass eq "QA") {
$sel = "COSAM";
if($num >= 75 && $num < 77) {$sel = "CENG"}
if($num >= 101 && $num < 141.9) {$sel = "SOE"}
if($num >= 801 && $num < 940) {$sel = "CENG"}
}
if($subClass eq "QB") {$sel = "COSAM"}
if($subClass eq "QC") {
$sel = "COSAM";
if($num >= 220 && $num < 770) {$sel = "CENG"}
}
if($subClass eq "QD") {$sel = "COSAM"}
if($subClass eq "QE") {$sel = "COSAM"}
if($subClass eq "QH") {$sel = "COSAM"}
if($subClass eq "QK") {$sel = "COSAM"}
if($subClass eq "QL") {$sel = "COSAM"}
if($subClass eq "QM") {$sel = "COSAM"}
if($subClass eq "QP") {
$sel = "COSAM";
if($num >= 136 && $num < 145) {$sel = "CAFES"}
}
if($subClass eq "QR") {
$sel = "COSAM";
if($num >= 48 && $num < 54) {$sel = "CAFES"}
}
if($subClass eq "R") {
$sel = "CENG";
if($num >= 723 && $num < 727) {$sel = "CLA"}
}
if($subClass eq "RA") {
$sel = "COSAM";
if($num >= 1 && $num < 421) {$sel = "CLA"}
}
if($subClass eq "RB") {$sel = "COSAM"}
if($subClass eq "RC") {
$sel = "COSAM";
if($num >= 321 && $num < 346) {$sel = "CLA"}
if($num >= 423 && $num < 435) {$sel = "SOE"}
if($num >= 435 && $num < 516) {$sel = "CLA"}
if($num >= 572 && $num < 578) {$sel = "CLA"}
if($num >= 620 && $num < 633) {$sel = "CAFES"}
}
if($subClass eq "RD") {$sel = "COSAM"}
if($subClass eq "RE") {$sel = "COSAM"}
if($subClass eq "RF") {$sel = "COSAM"}
if($subClass eq "RG") {$sel = "COSAM"}
if($subClass eq "RJ") {
$sel = "COSAM";
if($num >= 206 && $num < 240) {$sel = "CAFES"}
if($num >= 486 && $num < 499) {$sel = "SOE"}
if($num >= 499 && $num < 506) {$sel = "CLA"}
}
if($subClass eq "RK") {
$sel = "COSAM";
if($num >= 281 && $num < 282) {$sel = "CAFES"}
}
if($subClass eq "RL") {$sel = "COSAM"}
if($subClass eq "RM") {
$sel = "COSAM";
if($num >= 121 && $num < 300) {$sel = "CAFES"}
}
if($subClass eq "RS") {$sel = "COSAM"}
if($subClass eq "RT") {$sel = "COSAM"}
if($subClass eq "RV") {$sel = "COSAM"}
if($subClass eq "RX") {$sel = "COSAM"}
if($subClass eq "RZ") {$sel = "COSAM"}
if($subClass eq "S") {$sel = "CAFES"}
if($subClass eq "SB") {
$sel = "CAFES";
if($num >= 403 && $num < 469) {$sel = "CAED"}
if($num >= 481 && $num < 599) {$sel = "CAED"}
}
if($subClass eq "SD") {$sel = "CAFES"}
if($subClass eq "SF") {$sel = "CAFES"}
if($subClass eq "SH") {
$sel = "CAFES";
if($num >= 20.3 && $num < 401) {$sel = "COSAM"}
}
if($subClass eq "SK") {
$sel = "CAFES";
if($num >= 351 && $num < 590) {$sel = "COSAM"}
}
if($subClass eq "T") {$sel = "CENG"}
if($subClass eq "TA") {$sel = "CENG"}
if($subClass eq "TC") {$sel = "CENG"}
if($subClass eq "TD") {
$sel = "CENG";
if($num >= 169 && $num < 193) {$sel = "CAFES"}
if($num >= 365 && $num < 390) {$sel = "COSAM"}
if($num >= 878 && $num < 881) {$sel = "CAFES"}
}
if($subClass eq "TE") {$sel = "CENG"}
if($subClass eq "TF") {$sel = "CENG"}
if($subClass eq "TG") {$sel = "CENG"}
if($subClass eq "TH") {$sel = "CAED"}
if($subClass eq "TJ") {
$sel = "CENG";
if($num >= 1480 && $num < 1501) {$sel = "CAFES"}
}
if($subClass eq "TK") {$sel = "CENG"}
if($subClass eq "TL") {$sel = "CENG"}
if($subClass eq "TN") {$sel = "CENG"}
if($subClass eq "TP") {
$sel = "CENG";
if($num >= 368 && $num < 690) {$sel = "CAFES"}
if($num >= 690 && $num < 693) {$sel = "CENG"}
if($num >= 693 && $num < 700) {$sel = "CENG"}
}
if($subClass eq "TR") {$sel = "CLA"}
if($subClass eq "TS") {
$sel = "CENG";
if($num >= 155 && $num < 200) {$sel = "OCOB"}
if($num >= 800 && $num < 940) {$sel = "CAFES"}
if($num >= 1300 && $num < 1870) {$sel = "CAFES"}
if($num >= 1950 && $num < 2160) {$sel = "CAFES"}
}
if($subClass eq "TT") {$sel = "CLA"}
if($subClass eq "TX") {
$sel = "CAFES";
if($num >= 851 && $num < 955) {$sel = "OCOB"}
}
if($subClass eq "U") {$sel = "CAFES"}
if($subClass eq "UA") {$sel = "CAFES"}
if($subClass eq "UB") {$sel = "CAFES"}
if($subClass eq "UC") {$sel = "CAFES"}
if($subClass eq "UD") {$sel = "CAFES"}
if($subClass eq "UE") {$sel = "CAFES"}
if($subClass eq "UF") {$sel = "CAFES"}
if($subClass eq "UG") {$sel = "CAFES"}
if($subClass eq "UH") {$sel = "CAFES"}
if($subClass eq "V") {$sel = "CAFES"}
if($subClass eq "VA") {$sel = "CAFES"}
if($subClass eq "VB") {$sel = "CAFES"}
if($subClass eq "VC") {$sel = "CAFES"}
if($subClass eq "VD") {$sel = "CAFES"}
if($subClass eq "VE") {$sel = "CAFES"}
if($subClass eq "VF") {$sel = "CAFES"}
if($subClass eq "VG") {$sel = "CAFES"}
if($subClass eq "VK") {$sel = "CAFES"}
if($subClass eq "VM") {
$sel = "CAFES";
if($num >= 600 && $num < 975) {$sel = "CENG"}
if($num >= 975 && $num < 990) {$sel = "COSAM"}
}
if($subClass eq "Z") {
$sel = "GEN";
if($num >= 1 && $num < 105) {$sel = "CLA"}
if($num >= 116 && $num < 662) {$sel = "CLA"}
}
if($subClass eq "ZA") {$sel = "GEN"}
#/ Finish
return ($sel);
}
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment