Return to courseclassifier.pm CVS log

Up to [LON-CAPA] / loncom / interface

Annotation of loncom/interface/courseclassifier.pm, revision 1.5

1.5     ! raeburn     1: # The LearningOnline Network with CAPA
        !             2: # Utilities for classifying courses based on institutional code
        !             3: #
        !             4: # $Id: courseclassifier.pm,v 1.5 2008/03/21 18:00:53 raeburn Exp $
1.1       raeburn     5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA#
                     23: # /home/httpd/html/adm/gpl.txt
                     24: #
                     25: # http://www.lon-capa.org/
                     26: #
                     27: 
                     28: package Apache::courseclassifier;
                     29: 
                     30: use strict;
                     31: use lib '/home/httpd/lib/perl/';
                     32: use Apache::lonnet;
                     33: use LONCAPA;
                     34: 
                     35: sub retrieve_instcodes {
1.2       raeburn    36:     my ($coursecodes,$codedom) = @_;
                     37:     my $totcodes;
1.1       raeburn    38:     my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.',                                                undef,undef,'Course');
1.2       raeburn    39:     foreach my $course (keys(%courses)) {
                     40:         if (ref($courses{$course}) eq 'HASH') {
1.3       raeburn    41:             $$coursecodes{$course} = $courses{$course}{'inst_code'};
1.1       raeburn    42:             $totcodes ++;
                     43:         }
                     44:     }
                     45:     return $totcodes;
                     46: }
                     47: 
                     48: sub sort_cats {
                     49:     my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;
                     50:     my @unsorted = @{$idsarrayref};
                     51:     if (defined($$cat_order{$$codetitles[$num]})) {
                     52:         foreach my $item (@{$$cat_order{$$codetitles[$num]}}) {
                     53:             if (grep/^\Q$item\E$/,@unsorted) {
                     54:                 push @{$sorted}, $item;
                     55:             }
                     56:         }
                     57:     } else {
                     58:         @{$sorted} = sort (@unsorted);
                     59:     }
                     60: }
                     61: 
                     62: sub recurse_list {
                     63:     my ($cid,$codetitles,$codes,$num,$idarrays) = @_;
                     64:     if ($num == 0) {
                     65:         if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
                     66:             push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
                     67:         }
                     68:     } elsif ($num == 1) {
                     69:         if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {
                     70:             if (!grep/^$$codes{$cid}{$$codetitles[1]}$/,@{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}) {
                     71:                 push @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}, $$codes{$cid}{$$codetitles[1]};
                     72:             }
                     73:         } else {
                     74:             @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}} = ("$$codes{$cid}{$$codetitles[1]}");
                     75:         }
                     76:     } elsif ($num == 2) {
                     77:         if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}})) {
                     78:             if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
                     79:                 if (!grep/^$$codes{$cid}{$$codetitles[2]}$/,@{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}) {
                     80:                     push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};
                     81:                 }
                     82:             } else {
                     83:                 @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");            }
                     84:         } else {
                     85:             %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();
                     86:             @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
                     87:         }
                     88:     } elsif ($num == 3) {
                     89:         if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}})) {
                     90:             if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
                     91:                 if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
                     92:                     if (!grep/^$$codes{$cid}{$$codetitles[3]}$/,@{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}) {
                     93:                         push @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}, $$codes{$cid}{$$codetitles[3]};
                     94:                     }
                     95:                 } else {
                     96:                     @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
                     97:                 }
                     98:             } else {
                     99:                 %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
                    100:                 @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
                    101:             }
                    102:         } else {
                    103:             %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}} = ();
                    104:             %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
                    105:             @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
                    106:         }
                    107:     } elsif ($num == 4) {
                    108:         if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}})) {
                    109:             if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
                    110:                 if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
                    111:                     if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}})) {
                    112:                         if (!grep/^$$codes{$cid}{$$codetitles[4]}$/,@{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}) {
                    113:                             push @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}, $$codes{$cid}{$$codetitles[4]};
                    114:                         }
                    115:                     } else {
                    116:                         @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
                    117:                     }
                    118:                 } else {
                    119:                     %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
                    120:                     @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
                    121:                 }
                    122:             } else {
                    123:                 %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1.4       raeburn   124:                 %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
                    125:                 @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
1.1       raeburn   126:             }
                    127:         } else {
                    128:             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}} = ();
                    129:             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
                    130:             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
                    131:             @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[3]}");
                    132:         }
                    133:     }
                    134:     $num ++;
                    135:     if ($num <@{$codetitles}) {
                    136:         &recurse_list($cid,$codetitles,$codes,$num,$idarrays);
                    137:     }
                    138: }
                    139: 
                    140: sub build_code_selections {
                    141:     my ($codes,$codetitles,$cat_titles,$cat_order,$idlist,$idnums,$idlist_titles) = @_;
                    142:     my %idarrays = ();
                    143:     for (my $i=1; $i<@{$codetitles}; $i++) {
                    144:         %{$idarrays{$$codetitles[$i]}} = ();
                    145:     }
                    146:     foreach my $cid (sort keys %{$codes}) {
                    147:         &recurse_list($cid,$codetitles,$codes,0,\%idarrays);
                    148:     }
                    149:     for (my $num=0; $num<@{$codetitles}; $num++) {
                    150:         if ($num == 0) {
                    151:             my @contents = ();
                    152:             my @contents_titles = ();
                    153:             &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[0]}},\@contents);
                    154:             if (defined($$cat_titles{$$codetitles[0]})) {
                    155:                 foreach (@contents) {
                    156:                     push @contents_titles, $$cat_titles{$$codetitles[0]}{$_};
                    157:                 }
                    158:             }
                    159:             $$idlist{$$codetitles[0]} = join('","',@contents);
                    160:             $$idnums{$$codetitles[0]} = scalar(@contents);
                    161:             if (defined($$cat_titles{$$codetitles[0]})) {
                    162:                 $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
                    163:             }
                    164:         } elsif ($num == 1) {
                    165:             %{$$idlist{$$codetitles[1]}} = ();
                    166:             %{$$idlist_titles{$$codetitles[1]}} = ();
                    167:             foreach my $key_a (keys %{$idarrays{$$codetitles[1]}}) {
                    168:                 my @sorted_a = ();
                    169:                 my @sorted_a_titles = ();
                    170:                 &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);
                    171:                 if (defined($$cat_titles{$$codetitles[1]})) {
                    172:                     foreach (@sorted_a) {
                    173:                         push @sorted_a_titles, $$cat_titles{$$codetitles[1]}{$_};
                    174:                     }
                    175:                 }
                    176:                 $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
                    177:                 $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
                    178:                 if (defined($$cat_titles{$$codetitles[1]})) {
                    179:                     $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
                    180:                 }
                    181:             }
                    182:         } elsif ($num == 2) {
                    183:             %{$$idlist{$$codetitles[2]}} = ();
                    184:             %{$$idlist_titles{$$codetitles[2]}} = ();
                    185:             foreach my $key_a (keys %{$idarrays{$$codetitles[2]}}) {
                    186:                 %{$$idlist{$$codetitles[2]}{$key_a}} = ();
                    187:                 %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();
                    188:                 foreach my $key_b (keys %{$idarrays{$$codetitles[2]}{$key_a}}) {
                    189:                     my @sorted_b = ();
                    190:                     my @sorted_b_titles = ();
                    191:                     &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);
                    192:                     if (defined($$cat_titles{$$codetitles[2]})) {
                    193:                         foreach (@sorted_b) {
                    194:                             push @sorted_b_titles, $$cat_titles{$$codetitles[2]}{$_};
                    195:                         }
                    196:                     }
                    197:                     $$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b);
                    198:                     $$idnums{$$codetitles[2]}{$key_a}{$key_b} = scalar(@sorted_b);
                    199:                     if (defined($$cat_titles{$$codetitles[2]})) {
                    200:                         $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b_titles);
                    201:                     }
                    202:                 }
                    203:             }
                    204:         } elsif ($num == 3) {
                    205:             %{$$idlist{$$codetitles[3]}} = ();
                    206:             foreach my $key_a (keys %{$idarrays{$$codetitles[3]}}) {
                    207:                 %{$$idlist{$$codetitles[3]}{$key_a}} = ();
                    208:                 foreach my $key_b (keys %{$idarrays{$$codetitles[3]}{$key_a}}) {
                    209:                     %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();
                    210:                     foreach my $key_c (keys %{$idarrays{$$codetitles[3]}{$key_a}{$key_b}}) {
                    211:                         my @sorted_c = ();
                    212:                         my @sorted_c_titles = ();
                    213:                         &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);
                    214:                         if (defined($$cat_titles{$$codetitles[3]})) {
                    215:                             foreach (@sorted_c) {
                    216:                                 push @sorted_c_titles, $$cat_titles{$$codetitles[3]}{$_};
                    217:                             }
                    218:                         }
                    219:                         $$idlist{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c);
                    220:                         $$idnums{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = scalar(@sorted_c);
                    221:                         if (defined($$cat_titles{$$codetitles[3]})) {
1.4       raeburn   222:                             $$idlist_titles{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c_titles);
1.1       raeburn   223:                         }
                    224:                     }
                    225:                 }
                    226:             }
                    227:         } elsif ($num == 4) {
                    228:             %{$$idlist{$$codetitles[4]}} = ();
                    229:             foreach my $key_a (keys %{$idarrays{$$codetitles[4]}}) {
                    230:                 %{$$idlist{$$codetitles[4]}{$key_a}} = ();
                    231:                 foreach my $key_b (keys %{$idarrays{$$codetitles[4]}{$key_a}}) {
                    232:                     %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();
                    233:                     foreach my $key_c (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}}) {
                    234:                         %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();
                    235:                         foreach my $key_d (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}}) {
                    236:                             my @sorted_d = ();
                    237:                             my @sorted_d_titles = ();
                    238:                             &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);
                    239:                             if (defined($$cat_titles{$$codetitles[4]})) {
                    240:                                 foreach (@sorted_d) {
                    241:                                     push @sorted_d_titles, $$cat_titles{$$codetitles[4]}{$_};
                    242:                                 }
                    243:                             }
                    244:                             $$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d);
                    245:                             $$idnums{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = scalar(@sorted_d);
1.4       raeburn   246:                             if (defined($$cat_titles{$$codetitles[4]})) {
                    247:                                 $$idlist_titles{$$codetitles[3]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d_titles);
                    248:                             }
1.1       raeburn   249:                         }
                    250:                     }
                    251:                 }
                    252:             }
                    253:         }
                    254:     }
                    255: }
                    256: 
                    257: sub javascript_code_selections {
                    258:     my ($formname,@codetitles) = @_;
                    259:     my $numtitles = @codetitles;
                    260:     my $output = (<<END_OF_BLOCK);
                    261:  var display = new Array($numtitles)
                    262:  if (caller == "" || caller == "$codetitles[0]") {
                    263:      if (caller == "") {
                    264:          document.$formname.Year.length = 0
                    265:          document.$formname.Year.options[0] = new Option("Select","-1",true,true)
                    266:          display[0] = new Array(idyears.length)
                    267:          for (var i=0; i<idyears.length; i++) {
                    268:              display[0][i] = idyears[i]
                    269:              if (longtitles[0] == 1) {
                    270:                  if (idyearslongs[i] != "") {
                    271:                      display[0][i] = idyearslongs[i]
                    272:                  }
                    273:              }
                    274:              else {
                    275:                  if (idyearslongs[i] != "") {
                    276:                      display[0][i] = idyears[i]
                    277:                  }
                    278:              }
                    279:              document.$formname.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false)
                    280:          }
                    281:          document.$formname.Year.selectedIndex = 0;
                    282:      }
                    283:      document.$formname.Semester.length = 0
                    284:      document.$formname.Department.length = 0;
                    285:      document.$formname.Number.length = 0
                    286:      document.$formname.Department.options[0] = new Option("<-Pick $codetitles[1]","-1",true,true)
                    287:      document.$formname.Number.options[0] = new Option("<-Pick $codetitles[2]","-1",true,true)
                    288:      if (idyr == 0 || caller == "") {
                    289:          document.$formname.Semester.options[0] = new Option("<-Pick $codetitles[0]","-1",true,true)
                    290:      }
                    291:      else {
                    292:          document.$formname.Semester.options[0] = new Option("Select","-1",true,true)
                    293:          display[1] = new Array(idsems[idyr-1].length)
                    294:          for (var i=0; i<idsems[idyr-1].length; i++) {
                    295:              display[1][i] = idsems[idyr-1][i]
                    296:              if (longtitles[1] == 1) {
                    297:                  if (idsemslongs[idyr-1][i] != "") {
                    298:                      display[1][i] = idsemslongs[idyr-1][i]
                    299:                  }
                    300:              }
                    301:              document.$formname.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false)
                    302:          }
                    303:      }
                    304:      document.$formname.Semester.selectedIndex = 0;
                    305:  }
                    306:  if (caller == "$codetitles[1]") {
                    307:    document.$formname.Department.length = 0
                    308:    document.$formname.Number.length = 0
                    309:    document.$formname.Number.options[0] = new Option("<-Pick $codetitles[2]","-1",true,true)
                    310:    if (idsem == 0) {
                    311:      document.$formname.Department.options[0] = new Option("<-Pick $codetitles[1]","-1",true,true)
                    312:    }
                    313:    else {
                    314:     document.$formname.Department.options[0] = new Option("Select","-1",true,true)
                    315:     display[2] = new Array(idcodes[idyr-1][idsem-1].length)
                    316:     for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) {
                    317:       display[2][i] = idcodes[idyr-1][idsem-1][i]
                    318:       if (longtitles[2] == 1) {
                    319:           if (idcodeslongs[idyr-1][idsem-1][i] != "") {
                    320:               display[2][i] = idcodeslongs[idyr-1][idsem-1][i]
                    321:           }
                    322:       }
                    323:       document.$formname.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false)
                    324:     }
                    325:    }
                    326:    document.$formname.Department.selectedIndex = 0
                    327:  }
                    328:  if (caller == "$codetitles[2]") {
                    329:    document.$formname.Number.length = 0
                    330:    if (iddept == 0) {
                    331:      document.$formname.Number.options[0] = new Option("<-Pick $codetitles[2]","-1",true,true)
                    332:    }
                    333:    else {
                    334:     document.$formname.Number.options[0] = new Option("Select","-1",true,true)
                    335:     display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length)
                    336:     for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) {
                    337:       display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i]
                    338:       if (longtitles[3] == 1) {
                    339:         if (idcourseslongs[idyr-1][idsem-1][iddept-1][i] != "") {
                    340:             display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i]
                    341:         }
                    342:       }
                    343:       document.$formname.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false)
                    344:     }
                    345:    }
                    346:    document.$formname.Number.selectedIndex = 0
                    347:  }
                    348: }
                    349: 
                    350: function initialize_codes() {
                    351:     courseSet();
                    352:     return;
                    353: }
                    354: END_OF_BLOCK
                    355: }
                    356: 
                    357: 
                    358: sub javascript_definitions {
                    359:     my ($codetitles,$idlist,$idlist_titles,$idnums,$cat_titles) = @_;
                    360:     my $numtitles = @{$codetitles};
                    361:     my $longtitles = [];
                    362:     for (my $i=0; $i<$numtitles; $i++) {
                    363:        if (defined($cat_titles->{$codetitles->[$i]})) {
                    364:            $longtitles->[$i] = 1;
                    365:        } else {
                    366:            $longtitles->[$i] = 0;
                    367:        }
                    368:     }
                    369:     my $scripttext;
                    370:     if ($longtitles->[0]) {
                    371:         $scripttext =
                    372:           qq|      var idyearslongs = new Array("$idlist_titles->{$codetitles->[0]}")\n|;
                    373:     }
                    374:     $scripttext .=
                    375:           "      var idsems = new Array ($idnums->{$codetitles->[0]})\n";
                    376:     if ($longtitles->[1]) {
                    377:         $scripttext .=
                    378:           "      var idsemslongs = new Array ($idnums->{$codetitles->[0]})\n";    }
                    379:     $scripttext .=
                    380:           "      var idcodes = new Array ($idnums->{$codetitles->[0]})\n";
                    381:     if ($longtitles->[2]) {
                    382:         $scripttext .=
                    383:           "      var idcodeslongs = new Array ($idnums->{$codetitles->[0]})\n";
                    384:     }
                    385:     $scripttext .=
                    386:           "      var idcourses = new Array ($idnums->{$codetitles->[0]})\n";
                    387:     if ($longtitles->[3]) {
                    388:         $scripttext .=
                    389:           "      var idcourseslongs =  new Array ($idnums->{$codetitles->[0]})\n";
                    390:     }
                    391:     my @sort_a = split/","/,$idlist->{$codetitles->[0]};
                    392:     for (my $j=0; $j<@sort_a; $j++) {
                    393:         $scripttext .= qq| idsems[$j] = new Array("$idlist->{$codetitles->[1]}{$sort_a[$j]}")\n|;
                    394:         if ($longtitles->[1]) {
                    395:             $scripttext .= qq| idsemslongs[$j] = new Array("$idlist_titles->{$codetitles->[1]}{$sort_a[$j]}")\n|;
                    396:         }
                    397:         $scripttext .= qq| idcodes[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
                    398:         if ($longtitles->[2]) {
                    399:             $scripttext .= qq| idcodeslongs[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
                    400:         }
                    401:         $scripttext .= qq| idcourses[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
                    402:         if ($longtitles->[3]) {
                    403:             $scripttext .= qq| idcourseslongs[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
                    404:         }
                    405:         my @sort_b = split/","/,$idlist->{$codetitles->[1]}{$sort_a[$j]};
                    406:         for (my $k=0; $k<@sort_b; $k++) {
                    407:             my $idcode_entry = $idlist->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
                    408:             $scripttext .= qq| idcodes[$j][$k] = new Array("$idcode_entry")\n|;
                    409:             if ($longtitles->[2]) {
                    410:                 my $idcodelong_entry = $idlist_titles->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
                    411:                 $scripttext .= qq| idcodeslongs[$j][$k] = new Array("$idcodelong_entry")\n|;
                    412:             }
                    413:             $scripttext .= qq| idcourses[$j][$k] = new Array($idnums->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
                    414:             if ($longtitles->[3]) {
                    415:                 $scripttext .= qq| idcourseslongs[$j][$k] = new Array($idnums->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
                    416:             }
                    417:             my @sort_c = split/","/,$idlist->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
                    418:             for (my $l=0; $l<@sort_c; $l++) {
                    419:                 my $idcourse_entry = $idlist->{$codetitles->[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
                    420:                 $scripttext .= qq| idcourses[$j][$k][$l] = new Array("$idcourse_entry")\n|;
                    421:                 if ($longtitles->[3]) {
                    422:                     my $idcourselong_entry = $idlist_titles->{$codetitles->[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
                    423:                     $scripttext .= qq| idcourseslongs[$j][$k][$l] = new Array("$idcourselong_entry")\n|;
                    424:                 }
                    425:             }
                    426:         }
                    427:     }
                    428:     return ($scripttext,$longtitles);
                    429: }
                    430: 
                    431: sub courseset_js_start {
                    432:     my ($formname,$longtitles_str,$allidlist) = @_;
                    433:     my $output = <<END;
                    434: function courseSet(caller) {
                    435:     var longtitles = new Array ("$longtitles_str");
                    436:     var idyr = document.$formname.Year.selectedIndex
                    437:     var idsem  = document.$formname.Semester.selectedIndex
                    438:     var iddept = document.$formname.Department.selectedIndex
                    439:     var idclass = document.$formname.Number.selectedIndex
                    440:     var idyears = new Array("$allidlist");
                    441: END
                    442:     return $output;
                    443: }
                    444: 
                    445: 1;
                    446: