[BACK]Return to lonsupportreq.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsupportreq.pm between versions 1.37 and 1.38

version 1.37, 2006/09/01 21:07:11 version 1.38, 2006/10/12 22:47:31
Line 36  use Apache::loncommon(); Line 36  use Apache::loncommon();
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonacc();  use Apache::lonacc();
   use Apache::courseclassifier;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
     
Line 178  function initialize_codes() { Line 179  function initialize_codes() {
     if ($cnum) {      if ($cnum) {
         $coursecodes{$cnum} = $ccode;          $coursecodes{$cnum} = $ccode;
         if ($ccode eq '') {          if ($ccode eq '') {
             $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes);              $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$codedom,$totcodes);
         } else {          } else {
             $coursecodes{$cnum} = $ccode;              $coursecodes{$cnum} = $ccode;
             $caller = $cnum;              $caller = $cnum;
             $totcodes ++;              $totcodes ++;
         }          }
     } else {       } else { 
         $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes);          $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$codedom,$totcodes);
     }      }
     if ($totcodes > 0) {      if ($totcodes > 0) {
         if ($ccode eq '') {          if ($ccode eq '') {
             $format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order);              $format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order);
             if ($format_reply eq 'ok') {              if ($format_reply eq 'ok') {
                 my $numtypes = @codetitles;                  my $numtypes = @codetitles;
                 &build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);                  &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
                 &javascript_code_selections($formname,$numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles);                  my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles);
                   my $longtitles_str = join('","',@{$longtitles});
                   my $allidlist = $idlist{$codetitles[0]};
                   $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
                   $jscript .= $scripttext;
                   $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles);
                 $loaditems = '';                  $loaditems = '';
             }              }
         }          }
Line 974  Please review the information in "Log-in Line 980  Please review the information in "Log-in
     return;      return;
 }  }
   
 sub retrieve_instcodes {  
     my ($coursecodes,$codedom,$totcodes) = @_;  
     my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.',  
                                                 undef,undef,'Course');  
     foreach my $course (keys %courses) {  
         if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {  
             $$coursecodes{$course} = &unescape($1);  
             $totcodes ++;  
         }  
     }  
     return $totcodes;  
 }  
   
 sub build_code_selections {  
     my ($codes,$codetitles,$cat_titles,$cat_order,$idlist,$idnums,$idlist_titles) = @_;  
     my %idarrays = ();  
     for (my $i=1; $i<@{$codetitles}; $i++) {  
         %{$idarrays{$$codetitles[$i]}} = ();  
     }  
     foreach my $cid (sort keys %{$codes}) {  
         &recurse_list($cid,$codetitles,$codes,0,\%idarrays);  
     }  
     for (my $num=0; $num<@{$codetitles}; $num++) {  
         if ($num == 0) {  
             my @contents = ();  
             my @contents_titles = ();  
             &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[0]}},\@contents);  
             if (defined($$cat_titles{$$codetitles[0]})) {  
                 foreach (@contents) {  
                     push @contents_titles, $$cat_titles{$$codetitles[0]}{$_};  
                 }  
             }  
             $$idlist{$$codetitles[0]} = join('","',@contents);  
             $$idnums{$$codetitles[0]} = scalar(@contents);  
             if (defined($$cat_titles{$$codetitles[0]})) {  
                 $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);  
             }  
         } elsif ($num == 1) {  
             %{$$idlist{$$codetitles[1]}} = ();  
             %{$$idlist_titles{$$codetitles[1]}} = ();  
             foreach my $key_a (keys %{$idarrays{$$codetitles[1]}}) {  
                 my @sorted_a = ();  
                 my @sorted_a_titles = ();  
                 &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);  
                 if (defined($$cat_titles{$$codetitles[1]})) {  
                     foreach (@sorted_a) {  
                         push @sorted_a_titles, $$cat_titles{$$codetitles[1]}{$_};  
                     }  
                 }  
                 $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);  
                 $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);  
                 if (defined($$cat_titles{$$codetitles[1]})) {  
                     $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);  
                 }  
             }  
         } elsif ($num == 2) {  
             %{$$idlist{$$codetitles[2]}} = ();  
             %{$$idlist_titles{$$codetitles[2]}} = ();  
             foreach my $key_a (keys %{$idarrays{$$codetitles[2]}}) {  
                 %{$$idlist{$$codetitles[2]}{$key_a}} = ();  
                 %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();  
                 foreach my $key_b (keys %{$idarrays{$$codetitles[2]}{$key_a}}) {  
                     my @sorted_b = ();  
                     my @sorted_b_titles = ();  
                     &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);  
                     if (defined($$cat_titles{$$codetitles[2]})) {  
                         foreach (@sorted_b) {  
                             push @sorted_b_titles, $$cat_titles{$$codetitles[2]}{$_};  
                         }  
                     }  
                     $$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b);  
                     $$idnums{$$codetitles[2]}{$key_a}{$key_b} = scalar(@sorted_b);  
                     if (defined($$cat_titles{$$codetitles[2]})) {  
                         $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b_titles);  
                     }  
                 }  
             }  
         } elsif ($num == 3) {  
             %{$$idlist{$$codetitles[3]}} = ();  
             foreach my $key_a (keys %{$idarrays{$$codetitles[3]}}) {  
                 %{$$idlist{$$codetitles[3]}{$key_a}} = ();  
                 foreach my $key_b (keys %{$idarrays{$$codetitles[3]}{$key_a}}) {  
                     %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();  
                     foreach my $key_c (keys %{$idarrays{$$codetitles[3]}{$key_a}{$key_b}}) {  
                         my @sorted_c = ();  
                         my @sorted_c_titles = ();  
                         &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);  
                         if (defined($$cat_titles{$$codetitles[3]})) {  
                             foreach (@sorted_c) {  
                                 push @sorted_c_titles, $$cat_titles{$$codetitles[3]}{$_};  
                             }  
                         }  
                         $$idlist{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c);  
                         $$idnums{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = scalar(@sorted_c);  
                         if (defined($$cat_titles{$$codetitles[3]})) {  
                             $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_c_titles);  
                         }  
                     }  
                 }  
             }  
         } elsif ($num == 4) {  
             %{$$idlist{$$codetitles[4]}} = ();  
             foreach my $key_a (keys %{$idarrays{$$codetitles[4]}}) {  
                 %{$$idlist{$$codetitles[4]}{$key_a}} = ();  
                 foreach my $key_b (keys %{$idarrays{$$codetitles[4]}{$key_a}}) {  
                     %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();  
                     foreach my $key_c (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}}) {  
                         %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();  
                         foreach my $key_d (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}}) {  
                             my @sorted_d = ();  
                             my @sorted_d_titles = ();  
                             &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);  
                             if (defined($$cat_titles{$$codetitles[4]})) {  
                                 foreach (@sorted_d) {  
                                     push @sorted_d_titles, $$cat_titles{$$codetitles[4]}{$_};  
                                 }  
                             }  
                             $$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d);  
                             $$idnums{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = scalar(@sorted_d);  
                         }  
                     }  
                 }  
             }  
         }  
     }  
 }  
   
 sub sort_cats {  
     my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;  
     my @unsorted = @{$idsarrayref};  
     if (defined($$cat_order{$$codetitles[$num]})) {  
         foreach my $item (@{$$cat_order{$$codetitles[$num]}}) {  
             if (grep/^\Q$item\E$/,@unsorted) {  
                 push @{$sorted}, $item;  
             }  
         }  
     } else {  
         @{$sorted} = sort (@unsorted);  
     }  
 }  
   
   
 sub recurse_list {  
     my ($cid,$codetitles,$codes,$num,$idarrays) = @_;  
     if ($num == 0) {  
         if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {  
             push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};  
         }  
     } elsif ($num == 1) {  
         if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {  
             if (!grep/^$$codes{$cid}{$$codetitles[1]}$/,@{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}) {  
                 push @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}, $$codes{$cid}{$$codetitles[1]};  
             }  
         } else {  
             @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}} = ("$$codes{$cid}{$$codetitles[1]}");  
         }  
     } elsif ($num == 2) {  
         if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}})) {  
             if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {  
                 if (!grep/^$$codes{$cid}{$$codetitles[2]}$/,@{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}) {  
                     push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};  
                 }  
             } else {  
                 @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");  
             }  
         } else {  
             %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();  
             @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");  
         }  
     } elsif ($num == 3) {  
         if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}})) {  
             if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {  
                 if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {  
                     if (!grep/^$$codes{$cid}{$$codetitles[3]}$/,@{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}) {  
                         push @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}, $$codes{$cid}{$$codetitles[3]};  
                     }  
                 } else {  
                     @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");  
                 }  
             } else {  
                 %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();  
                 @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");  
             }  
         } else {  
             %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}} = ();  
             %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();  
             @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");  
         }  
     } elsif ($num == 4) {  
         if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}})) {  
             if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {  
                 if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {  
                     if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}})) {  
                         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]}}}) {  
                             push @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}, $$codes{$cid}{$$codetitles[4]};  
                         }  
                     } else {  
                         @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");  
                     }  
                 } else {  
                     %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();  
                     @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");  
                 }  
             } else {  
                 %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();  
                 %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();  
                 @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");  
             }  
         } else {  
             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}} = ();  
             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();  
             %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();  
             @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[3]}");  
         }  
     }  
     $num ++;  
     if ($num <@{$codetitles}) {  
         &recurse_list($cid,$codetitles,$codes,$num,$idarrays);  
     }  
 }  
   
 sub javascript_code_selections {  
     my ($formname,$numcats,$cat_titles,$script_tag,$idlist,$idnums,$idlist_titles,$codetitles) = @_;  
     my $numtitles = @{$codetitles};  
     my @seltitles = ();  
     for (my $j=0; $j<$numtitles; $j++) {  
         $seltitles[$j] = 'id'.$$codetitles[$j];  
     }  
     my $seltitle_str = join('","',@seltitles);  
     my @longtitles = ();  
     for (my $i=0; $i<$numtitles; $i++) {  
        if (defined($$cat_titles{$$codetitles[$i]})) {  
            $longtitles[$i] = 1;  
        } else {  
            $longtitles[$i] = 0;  
        }  
     }  
     my $longtitles_str = join('","',@longtitles);  
     $$script_tag .= <<END;  
 function courseSet(caller) {  
     var ids = new Array ("$seltitle_str");  
     var formitems = new Array ($numtitles);  
     var longtitles = new Array ("$longtitles_str");  
     var idyr = document.$formname.Year.selectedIndex  
     var idsem  = document.$formname.Semester.selectedIndex  
     var iddept = document.$formname.Department.selectedIndex  
     var idclass = document.$formname.Number.selectedIndex  
     var idyears = new Array("$$idlist{$$codetitles[0]}");  
 END  
     if ($longtitles[0]) {  
         $$script_tag .=  
           qq|      var idyearslongs = new Array("$$idlist_titles{$$codetitles[0]}")\n|;  
     }  
     $$script_tag .=  
           "      var idsems = new Array ($$idnums{$$codetitles[0]})\n";  
     if ($longtitles[1]) {  
         $$script_tag .=  
           "      var idsemslongs = new Array ($$idnums{$$codetitles[0]})\n";  
     }  
     $$script_tag .=  
           "      var idcodes = new Array ($$idnums{$$codetitles[0]})\n";  
     if ($longtitles[2]) {  
         $$script_tag .=  
           "      var idcodeslongs = new Array ($$idnums{$$codetitles[0]})\n";  
     }  
     $$script_tag .=  
           "      var idcourses = new Array ($$idnums{$$codetitles[0]})\n";  
     if ($longtitles[3]) {  
         $$script_tag .=  
           "      var idcourseslongs =  new Array ($$idnums{$$codetitles[0]})\n";  
     }  
     my @sort_a = split/","/,$$idlist{$$codetitles[0]};  
     for (my $j=0; $j<@sort_a; $j++) {  
         $$script_tag .= qq| idsems[$j] = new Array("$$idlist{$$codetitles[1]}{$sort_a[$j]}")\n|;  
         if ($longtitles[1]) {  
             $$script_tag .= qq| idsemslongs[$j] = new Array("$$idlist_titles{$$codetitles[1]}{$sort_a[$j]}")\n|;  
         }  
         $$script_tag .= qq| idcodes[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;  
         if ($longtitles[2]) {  
             $$script_tag .= qq| idcodeslongs[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;  
         }  
         $$script_tag .= qq| idcourses[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;  
         if ($longtitles[3]) {  
             $$script_tag .= qq| idcourseslongs[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;  
         }  
         my @sort_b = split/","/,$$idlist{$$codetitles[1]}{$sort_a[$j]};  
         for (my $k=0; $k<@sort_b; $k++) {  
             my $idcode_entry = $$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};  
             $$script_tag .= qq| idcodes[$j][$k] = new Array("$idcode_entry")\n|;  
             if ($longtitles[2]) {  
                 my $idcodelong_entry = $$idlist_titles{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};  
                 $$script_tag .= qq| idcodeslongs[$j][$k] = new Array("$idcodelong_entry")\n|;  
             }  
             $$script_tag .= qq| idcourses[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;  
             if ($longtitles[3]) {  
                 $$script_tag .= qq| idcourseslongs[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;  
             }  
             my @sort_c = split/","/,$$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};  
             for (my $l=0; $l<@sort_c; $l++) {  
                 my $idcourse_entry = $$idlist{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};  
                 $$script_tag .= qq| idcourses[$j][$k][$l] = new Array("$idcourse_entry")\n|;  
                 if ($longtitles[3]) {  
                     my $idcourselong_entry = $$idlist_titles{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};  
                     $$script_tag .= qq| idcourseslongs[$j][$k][$l] = new Array("$idcourselong_entry")\n|;  
                 }  
             }  
         }  
     }  
     $$script_tag .= (<<END_OF_BLOCK);  
  var display = new Array($numtitles)  
  if (caller == "" || caller == "$$codetitles[0]") {  
      if (caller == "") {  
          document.$formname.Year.length = 0  
          document.$formname.Year.options[0] = new Option("Select","-1",true,true)  
          display[0] = new Array(idyears.length)  
          for (var i=0; i<idyears.length; i++) {  
              display[0][i] = idyears[i]  
              if (longtitles[0] == 1) {  
                  if (idyearslongs[i] != "") {  
                      display[0][i] = idyearslongs[i]  
                  }  
              }  
              else {  
                  if (idyearslongs[i] != "") {  
                      display[0][i] = idyears[i]  
                  }  
              }  
              document.$formname.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false)  
          }  
          document.$formname.Year.selectedIndex = 0;  
      }  
      document.$formname.Semester.length = 0  
      document.$formname.Department.length = 0;  
      document.$formname.Number.length = 0  
      document.$formname.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true)  
      document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)  
      if (idyr == 0 || caller == "") {  
          document.$formname.Semester.options[0] = new Option("<-Pick $$codetitles[0]","-1",true,true)  
      }  
      else {  
          document.$formname.Semester.options[0] = new Option("Select","-1",true,true)  
          display[1] = new Array(idsems[idyr-1].length)  
          for (var i=0; i<idsems[idyr-1].length; i++) {  
              display[1][i] = idsems[idyr-1][i]  
              if (longtitles[1] == 1) {  
                  if (idsemslongs[idyr-1][i] != "") {  
                      display[1][i] = idsemslongs[idyr-1][i]  
                  }  
              }  
              document.$formname.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false)  
          }  
      }  
      document.$formname.Semester.selectedIndex = 0;  
  }  
  if (caller == "$$codetitles[1]") {  
    document.$formname.Department.length = 0  
    document.$formname.Number.length = 0  
    document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)  
    if (idsem == 0) {  
      document.$formname.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true)  
    }  
    else {  
     document.$formname.Department.options[0] = new Option("Select","-1",true,true)      
     display[2] = new Array(idcodes[idyr-1][idsem-1].length)  
     for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) {  
       display[2][i] = idcodes[idyr-1][idsem-1][i]  
       if (longtitles[2] == 1) {  
           if (idcodeslongs[idyr-1][idsem-1][i] != "") {  
               display[2][i] = idcodeslongs[idyr-1][idsem-1][i]  
           }  
       }  
       document.$formname.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false)  
     }  
    }  
    document.$formname.Department.selectedIndex = 0  
  }  
  if (caller == "$$codetitles[2]") {  
    document.$formname.Number.length = 0  
    if (iddept == 0) {  
      document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)  
    }  
    else {  
     document.$formname.Number.options[0] = new Option("Select","-1",true,true)  
     display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length)  
     for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) {  
       display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i]  
       if (longtitles[3] == 1) {  
         if (idcourseslongs[idyr-1][idsem-1][iddept-1][i] != "") {  
             display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i]  
         }  
       }  
       document.$formname.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false)  
     }  
    }  
    document.$formname.Number.selectedIndex = 0  
  }  
 }  
   
 function initialize_codes() {  
     courseSet();  
     return;  
 }  
 END_OF_BLOCK  
 }  
   
 1;  1;
Removed from v.1.37  
changed lines
  Added in v.1.38

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>