Annotation of loncom/interface/courseclassifier.pm, revision 1.31
1.5 raeburn 1: # The LearningOnline Network with CAPA
2: # Utilities for classifying courses based on institutional code
3: #
1.31 ! raeburn 4: # $Id: courseclassifier.pm,v 1.30 2023/07/10 01:55:15 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;
1.10 raeburn 33: use Apache::loncommon;
1.6 raeburn 34: use Apache::lonlocal;
1.1 raeburn 35: use LONCAPA;
36:
37: sub sort_cats {
38: my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;
39: my @unsorted = @{$idsarrayref};
40: if (defined($$cat_order{$$codetitles[$num]})) {
41: foreach my $item (@{$$cat_order{$$codetitles[$num]}}) {
42: if (grep/^\Q$item\E$/,@unsorted) {
1.12 raeburn 43: push(@{$sorted},$item);
1.1 raeburn 44: }
45: }
46: } else {
47: @{$sorted} = sort (@unsorted);
48: }
49: }
50:
51: sub recurse_list {
52: my ($cid,$codetitles,$codes,$num,$idarrays) = @_;
53: if ($num == 0) {
54: if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
55: push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
56: }
57: } elsif ($num == 1) {
58: if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {
59: if (!grep/^$$codes{$cid}{$$codetitles[1]}$/,@{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}) {
60: push @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}, $$codes{$cid}{$$codetitles[1]};
61: }
62: } else {
63: @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}} = ("$$codes{$cid}{$$codetitles[1]}");
64: }
65: } elsif ($num == 2) {
66: if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}})) {
67: if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
68: if (!grep/^$$codes{$cid}{$$codetitles[2]}$/,@{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}) {
69: push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};
70: }
71: } else {
1.29 raeburn 72: @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
73: }
1.1 raeburn 74: } else {
75: %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();
76: @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
77: }
78: } elsif ($num == 3) {
79: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}})) {
80: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
81: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
82: if (!grep/^$$codes{$cid}{$$codetitles[3]}$/,@{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}) {
83: push @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}, $$codes{$cid}{$$codetitles[3]};
84: }
85: } else {
86: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
87: }
88: } else {
89: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
90: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
91: }
92: } else {
93: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}} = ();
94: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
95: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
96: }
97: } elsif ($num == 4) {
98: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}})) {
99: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
100: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
101: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}})) {
102: 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]}}}) {
103: push @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}, $$codes{$cid}{$$codetitles[4]};
104: }
105: } else {
106: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
107: }
108: } else {
109: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
110: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
111: }
112: } else {
113: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1.4 raeburn 114: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
115: @{$$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 116: }
117: } else {
118: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}} = ();
119: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
120: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
121: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[3]}");
122: }
123: }
124: $num ++;
125: if ($num <@{$codetitles}) {
126: &recurse_list($cid,$codetitles,$codes,$num,$idarrays);
127: }
128: }
129:
130: sub build_code_selections {
131: my ($codes,$codetitles,$cat_titles,$cat_order,$idlist,$idnums,$idlist_titles) = @_;
132: my %idarrays = ();
133: for (my $i=1; $i<@{$codetitles}; $i++) {
134: %{$idarrays{$$codetitles[$i]}} = ();
135: }
1.20 raeburn 136: foreach my $cid (sort(keys(%{$codes}))) {
1.1 raeburn 137: &recurse_list($cid,$codetitles,$codes,0,\%idarrays);
138: }
139: for (my $num=0; $num<@{$codetitles}; $num++) {
140: if ($num == 0) {
141: my @contents = ();
142: my @contents_titles = ();
143: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[0]}},\@contents);
144: if (defined($$cat_titles{$$codetitles[0]})) {
145: foreach (@contents) {
146: push @contents_titles, $$cat_titles{$$codetitles[0]}{$_};
147: }
148: }
149: $$idlist{$$codetitles[0]} = join('","',@contents);
150: $$idnums{$$codetitles[0]} = scalar(@contents);
151: if (defined($$cat_titles{$$codetitles[0]})) {
152: $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
153: }
154: } elsif ($num == 1) {
155: %{$$idlist{$$codetitles[1]}} = ();
156: %{$$idlist_titles{$$codetitles[1]}} = ();
1.20 raeburn 157: foreach my $key_a (keys(%{$idarrays{$$codetitles[1]}})) {
1.1 raeburn 158: my @sorted_a = ();
159: my @sorted_a_titles = ();
160: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);
161: if (defined($$cat_titles{$$codetitles[1]})) {
162: foreach (@sorted_a) {
163: push @sorted_a_titles, $$cat_titles{$$codetitles[1]}{$_};
164: }
165: }
166: $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
167: $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
168: if (defined($$cat_titles{$$codetitles[1]})) {
169: $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
170: }
171: }
172: } elsif ($num == 2) {
173: %{$$idlist{$$codetitles[2]}} = ();
174: %{$$idlist_titles{$$codetitles[2]}} = ();
1.20 raeburn 175: foreach my $key_a (keys(%{$idarrays{$$codetitles[2]}})) {
1.1 raeburn 176: %{$$idlist{$$codetitles[2]}{$key_a}} = ();
177: %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();
1.20 raeburn 178: foreach my $key_b (keys(%{$idarrays{$$codetitles[2]}{$key_a}})) {
1.1 raeburn 179: my @sorted_b = ();
180: my @sorted_b_titles = ();
181: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);
182: if (defined($$cat_titles{$$codetitles[2]})) {
183: foreach (@sorted_b) {
184: push @sorted_b_titles, $$cat_titles{$$codetitles[2]}{$_};
185: }
186: }
187: $$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b);
188: $$idnums{$$codetitles[2]}{$key_a}{$key_b} = scalar(@sorted_b);
189: if (defined($$cat_titles{$$codetitles[2]})) {
190: $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b_titles);
191: }
192: }
193: }
194: } elsif ($num == 3) {
195: %{$$idlist{$$codetitles[3]}} = ();
1.20 raeburn 196: foreach my $key_a (keys(%{$idarrays{$$codetitles[3]}})) {
1.1 raeburn 197: %{$$idlist{$$codetitles[3]}{$key_a}} = ();
1.20 raeburn 198: foreach my $key_b (keys(%{$idarrays{$$codetitles[3]}{$key_a}})) {
1.1 raeburn 199: %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();
1.20 raeburn 200: foreach my $key_c (keys(%{$idarrays{$$codetitles[3]}{$key_a}{$key_b}})) {
1.1 raeburn 201: my @sorted_c = ();
202: my @sorted_c_titles = ();
203: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);
204: if (defined($$cat_titles{$$codetitles[3]})) {
205: foreach (@sorted_c) {
206: push @sorted_c_titles, $$cat_titles{$$codetitles[3]}{$_};
207: }
208: }
209: $$idlist{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c);
210: $$idnums{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = scalar(@sorted_c);
211: if (defined($$cat_titles{$$codetitles[3]})) {
1.4 raeburn 212: $$idlist_titles{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c_titles);
1.1 raeburn 213: }
214: }
215: }
216: }
217: } elsif ($num == 4) {
218: %{$$idlist{$$codetitles[4]}} = ();
1.20 raeburn 219: foreach my $key_a (keys(%{$idarrays{$$codetitles[4]}})) {
1.1 raeburn 220: %{$$idlist{$$codetitles[4]}{$key_a}} = ();
1.20 raeburn 221: foreach my $key_b (keys(%{$idarrays{$$codetitles[4]}{$key_a}})) {
1.1 raeburn 222: %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();
1.20 raeburn 223: foreach my $key_c (keys(%{$idarrays{$$codetitles[4]}{$key_a}{$key_b}})) {
1.1 raeburn 224: %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();
1.20 raeburn 225: foreach my $key_d (keys(%{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}})) {
1.1 raeburn 226: my @sorted_d = ();
227: my @sorted_d_titles = ();
228: &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);
229: if (defined($$cat_titles{$$codetitles[4]})) {
230: foreach (@sorted_d) {
231: push @sorted_d_titles, $$cat_titles{$$codetitles[4]}{$_};
232: }
233: }
234: $$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d);
235: $$idnums{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = scalar(@sorted_d);
1.4 raeburn 236: if (defined($$cat_titles{$$codetitles[4]})) {
237: $$idlist_titles{$$codetitles[3]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d_titles);
238: }
1.1 raeburn 239: }
240: }
241: }
242: }
243: }
244: }
245: }
246:
247: sub javascript_code_selections {
1.26 raeburn 248: my ($formname,$codetitlesref,$knowncodes,$sectionlist) = @_;
1.25 raeburn 249: return unless (ref($codetitlesref) eq 'ARRAY');
250: my @codetitles = @{$codetitlesref};
1.1 raeburn 251: my $numtitles = @codetitles;
1.10 raeburn 252: my %lt = &Apache::lonlocal::texthash(
253: Select => 'Select',
254: Pick => 'Pick',
255: );
1.1 raeburn 256: my $output = (<<END_OF_BLOCK);
257: var display = new Array($numtitles)
258: if (caller == "" || caller == "$codetitles[0]") {
259: if (caller == "") {
260: document.$formname.Year.length = 0
1.10 raeburn 261: document.$formname.Year.options[0] = new Option("$lt{'Select'}","-1",true,true)
1.1 raeburn 262: display[0] = new Array(idyears.length)
263: for (var i=0; i<idyears.length; i++) {
264: display[0][i] = idyears[i]
265: if (longtitles[0] == 1) {
266: if (idyearslongs[i] != "") {
267: display[0][i] = idyearslongs[i]
268: }
269: }
270: else {
271: if (idyearslongs[i] != "") {
272: display[0][i] = idyears[i]
273: }
274: }
275: document.$formname.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false)
276: }
277: document.$formname.Year.selectedIndex = 0;
278: }
279: document.$formname.Semester.length = 0
280: document.$formname.Department.length = 0;
281: document.$formname.Number.length = 0
1.10 raeburn 282: document.$formname.Department.options[0] = new Option("<-$lt{'Pick'} $codetitles[1]","-1",true,true)
283: document.$formname.Number.options[0] = new Option("<-$lt{'Pick'} $codetitles[2]","-1",true,true)
1.1 raeburn 284: if (idyr == 0 || caller == "") {
1.10 raeburn 285: document.$formname.Semester.options[0] = new Option("<-$lt{'Pick'} $codetitles[0]","-1",true,true)
1.1 raeburn 286: }
287: else {
1.10 raeburn 288: document.$formname.Semester.options[0] = new Option("$lt{'Select'}","-1",true,true)
1.1 raeburn 289: display[1] = new Array(idsems[idyr-1].length)
290: for (var i=0; i<idsems[idyr-1].length; i++) {
291: display[1][i] = idsems[idyr-1][i]
292: if (longtitles[1] == 1) {
293: if (idsemslongs[idyr-1][i] != "") {
294: display[1][i] = idsemslongs[idyr-1][i]
295: }
296: }
297: document.$formname.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false)
298: }
299: }
300: document.$formname.Semester.selectedIndex = 0;
301: }
302: if (caller == "$codetitles[1]") {
303: document.$formname.Department.length = 0
304: document.$formname.Number.length = 0
305: document.$formname.Number.options[0] = new Option("<-Pick $codetitles[2]","-1",true,true)
306: if (idsem == 0) {
1.10 raeburn 307: document.$formname.Department.options[0] = new Option("<-$lt{'Pick'} $codetitles[1]","-1",true,true)
1.1 raeburn 308: }
309: else {
1.10 raeburn 310: document.$formname.Department.options[0] = new Option("$lt{'Select'}","-1",true,true)
1.1 raeburn 311: display[2] = new Array(idcodes[idyr-1][idsem-1].length)
312: for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) {
313: display[2][i] = idcodes[idyr-1][idsem-1][i]
314: if (longtitles[2] == 1) {
315: if (idcodeslongs[idyr-1][idsem-1][i] != "") {
316: display[2][i] = idcodeslongs[idyr-1][idsem-1][i]
317: }
318: }
319: document.$formname.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false)
320: }
321: }
322: document.$formname.Department.selectedIndex = 0
323: }
324: if (caller == "$codetitles[2]") {
325: document.$formname.Number.length = 0
326: if (iddept == 0) {
1.10 raeburn 327: document.$formname.Number.options[0] = new Option("<-$lt{'Pick'} $codetitles[2]","-1",true,true)
1.1 raeburn 328: }
329: else {
330: document.$formname.Number.options[0] = new Option("Select","-1",true,true)
331: display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length)
332: for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) {
333: display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i]
334: if (longtitles[3] == 1) {
335: if (idcourseslongs[idyr-1][idsem-1][iddept-1][i] != "") {
336: display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i]
337: }
338: }
339: document.$formname.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false)
340: }
341: }
342: document.$formname.Number.selectedIndex = 0
343: }
344: }
1.26 raeburn 345: END_OF_BLOCK
346:
347: if ((ref($knowncodes) eq 'HASH') && (keys(%{$knowncodes}) > 0)) {
348: my @standardnames = &Apache::loncommon::get_standard_codeitems();
349: my (%local_to_standard,$currstr);
350: for (my $i=0; $i<@codetitles; $i++) {
351: $local_to_standard{$codetitles[$i]} = $standardnames[$i];
352: }
353: $output .= <<"ENDJS";
354:
355: function initialize_codes() {
356: ENDJS
357: for (my $i=0; $i<@codetitles-1; $i++) {
358: my $item = $local_to_standard{$codetitles[$i]};
359: $currstr .= $knowncodes->{$codetitles[$i]};
360: if ($knowncodes->{$codetitles[$i]} != -1) {
361: $output .= '
362: for (var j=0; j<document.'.$formname.'.'.$item.'.length; j++) {
363: if (document.'.$formname.'.'.$item.'[j].value == "'.$knowncodes->{$codetitles[$i]}.'") {
364: document.'.$formname.'.'.$item.'.selectedIndex = j;
365: }
366: }
367: ';
368: }
369: $output .= ' courseSet('."'$codetitles[$i]'".')'."\n";
370: }
371: my $lastcodetitle = $local_to_standard{$codetitles[-1]};
372: $currstr .= $knowncodes->{$codetitles[-1]};
373: if ($knowncodes->{$codetitles[-1]} != -1) {
374: $output .= '
375: for (var j=0; j<document.'.$formname.'.'.$lastcodetitle.'.length; j++) {
376: if (document.'.$formname.'.'.$lastcodetitle.'[j].value == "'.$knowncodes->{$codetitles[-1]}.'") {
377: document.'.$formname.'.'.$lastcodetitle.'.selectedIndex = j;
378: }
379: }
380: ';
381: }
382: $output .= " return;\n}\n";
383: if ($sectionlist) {
384: $output .= '
385: function toggleSecVis() {
386: var currcode = "";
387: var crscode = '."'$currstr'".';
388: ';
389: for (my $i=0; $i<@codetitles-1; $i++) {
390: my $item = $local_to_standard{$codetitles[$i]};
391: $output .= 'currcode += document.'.$formname.'.'.$item.'.options[document.'.$formname.'.'.$item.'.selectedIndex].value;'."\n";
392: }
393: my $lastcodetitle = $local_to_standard{$codetitles[-1]};
394: if ($lastcodetitle ne '') {
395: if ($knowncodes->{$codetitles[-1]} != -1) {
396: $output .= 'currcode += document.'.$formname.'.'.$lastcodetitle.'.options[document.'.$formname.'.'.$lastcodetitle.'.selectedIndex].value;'."\n";
397: }
398: }
399: $output .= <<"ENDSEC";
400: var showlist = 'none';
401: var showbox = 'inline';
402: if ((crscode != '') && (currcode == crscode)) {
403: showlist = 'inline';
404: showbox = 'none';
405: }
406: if (document.getElementById('LC_helpdesk_sectionlist')) {
407: document.getElementById('LC_helpdesk_sectionlist').style.display = showlist;
408: }
409: if (document.getElementById('LC_helpdesk_section')) {
410: document.getElementById('LC_helpdesk_section').style.display = showbox;
411: }
1.31 ! raeburn 412: if (document.getElementById('section')) {
! 413: document.getElementById('section').id = 'wasinuse';
! 414: }
! 415: if (document.getElementById('notinuse') {
! 416: document.getElementById('notinuse').id = 'section';
! 417: }
! 418: if (document.getElementById('wasinuse') {
! 419: document.getElementById('wasinuse').id = 'notinuse';
! 420: }
1.26 raeburn 421: return;
422: }
423:
424: ENDSEC
425:
426: }
427: } else {
428: $output .= <<"END_OF_JS";
1.1 raeburn 429:
430: function initialize_codes() {
431: courseSet();
432: return;
433: }
1.26 raeburn 434: END_OF_JS
435: }
436: return $output;
1.1 raeburn 437: }
438:
439: sub javascript_definitions {
440: my ($codetitles,$idlist,$idlist_titles,$idnums,$cat_titles) = @_;
441: my $numtitles = @{$codetitles};
442: my $longtitles = [];
443: for (my $i=0; $i<$numtitles; $i++) {
444: if (defined($cat_titles->{$codetitles->[$i]})) {
445: $longtitles->[$i] = 1;
446: } else {
447: $longtitles->[$i] = 0;
448: }
449: }
450: my $scripttext;
451: if ($longtitles->[0]) {
452: $scripttext =
453: qq| var idyearslongs = new Array("$idlist_titles->{$codetitles->[0]}")\n|;
454: }
455: $scripttext .=
456: " var idsems = new Array ($idnums->{$codetitles->[0]})\n";
457: if ($longtitles->[1]) {
458: $scripttext .=
459: " var idsemslongs = new Array ($idnums->{$codetitles->[0]})\n"; }
460: $scripttext .=
461: " var idcodes = new Array ($idnums->{$codetitles->[0]})\n";
462: if ($longtitles->[2]) {
463: $scripttext .=
464: " var idcodeslongs = new Array ($idnums->{$codetitles->[0]})\n";
465: }
466: $scripttext .=
467: " var idcourses = new Array ($idnums->{$codetitles->[0]})\n";
468: if ($longtitles->[3]) {
469: $scripttext .=
470: " var idcourseslongs = new Array ($idnums->{$codetitles->[0]})\n";
471: }
472: my @sort_a = split/","/,$idlist->{$codetitles->[0]};
473: for (my $j=0; $j<@sort_a; $j++) {
474: $scripttext .= qq| idsems[$j] = new Array("$idlist->{$codetitles->[1]}{$sort_a[$j]}")\n|;
475: if ($longtitles->[1]) {
476: $scripttext .= qq| idsemslongs[$j] = new Array("$idlist_titles->{$codetitles->[1]}{$sort_a[$j]}")\n|;
477: }
478: $scripttext .= qq| idcodes[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
479: if ($longtitles->[2]) {
480: $scripttext .= qq| idcodeslongs[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
481: }
482: $scripttext .= qq| idcourses[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
483: if ($longtitles->[3]) {
484: $scripttext .= qq| idcourseslongs[$j] = new Array($idnums->{$codetitles->[1]}{$sort_a[$j]})\n|;
485: }
486: my @sort_b = split/","/,$idlist->{$codetitles->[1]}{$sort_a[$j]};
487: for (my $k=0; $k<@sort_b; $k++) {
488: my $idcode_entry = $idlist->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
489: $scripttext .= qq| idcodes[$j][$k] = new Array("$idcode_entry")\n|;
490: if ($longtitles->[2]) {
491: my $idcodelong_entry = $idlist_titles->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
492: $scripttext .= qq| idcodeslongs[$j][$k] = new Array("$idcodelong_entry")\n|;
493: }
494: $scripttext .= qq| idcourses[$j][$k] = new Array($idnums->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
495: if ($longtitles->[3]) {
496: $scripttext .= qq| idcourseslongs[$j][$k] = new Array($idnums->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
497: }
498: my @sort_c = split/","/,$idlist->{$codetitles->[2]}{$sort_a[$j]}{$sort_b[$k]};
499: for (my $l=0; $l<@sort_c; $l++) {
500: my $idcourse_entry = $idlist->{$codetitles->[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
501: $scripttext .= qq| idcourses[$j][$k][$l] = new Array("$idcourse_entry")\n|;
502: if ($longtitles->[3]) {
503: my $idcourselong_entry = $idlist_titles->{$codetitles->[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
504: $scripttext .= qq| idcourseslongs[$j][$k][$l] = new Array("$idcourselong_entry")\n|;
505: }
506: }
507: }
508: }
509: return ($scripttext,$longtitles);
510: }
511:
512: sub courseset_js_start {
513: my ($formname,$longtitles_str,$allidlist) = @_;
514: my $output = <<END;
1.6 raeburn 515:
1.1 raeburn 516: function courseSet(caller) {
517: var longtitles = new Array ("$longtitles_str");
518: var idyr = document.$formname.Year.selectedIndex
519: var idsem = document.$formname.Semester.selectedIndex
520: var iddept = document.$formname.Department.selectedIndex
521: var idclass = document.$formname.Number.selectedIndex
522: var idyears = new Array("$allidlist");
523: END
524: return $output;
525: }
526:
1.6 raeburn 527: sub instcode_selectors_data {
1.7 raeburn 528: my ($codedom,$formname,$cat_items,$codetitles,$cat_titles,$cat_order,$officialjs) = @_;
1.27 raeburn 529: my ($jscript,$codes,%idlist,%idnums,%idlist_titles,%by_year,%by_sem,%by_dept);
530: my ($numtitles,$lasttitle,$totcodes);
531: my $instcats = &Apache::lonnet::get_dom_instcats($codedom);
532: if (ref($instcats) eq 'HASH') {
533: if ((ref($instcats->{'codetitles'}) eq 'ARRAY') && (ref($instcats->{'codes'}) eq 'HASH') &&
534: (ref($instcats->{'cat_titles'}) eq 'HASH') && (ref($instcats->{'cat_order'}) eq 'HASH')) {
535: %{$codes} = %{$instcats->{'codes'}};
536: @{$codetitles} = @{$instcats->{'codetitles'}};
537: %{$cat_titles} = %{$instcats->{'cat_titles'}};
538: %{$cat_order} = %{$instcats->{'cat_order'}};
539: $totcodes = scalar(keys(%{$codes}));
1.28 raeburn 540: if ((!$totcodes) && (exists($instcats->{'totcodes'}))) {
1.29 raeburn 541: $totcodes = $instcats->{'totcodes'};
1.28 raeburn 542: }
1.27 raeburn 543: &build_code_selections($codes,$codetitles,$cat_titles,$cat_order,
1.6 raeburn 544: \%idlist,\%idnums,\%idlist_titles);
1.29 raeburn 545: my ($scripttext,$longtitles) =
1.6 raeburn 546: &javascript_definitions($codetitles,\%idlist,\%idlist_titles,
547: \%idnums,$cat_titles);
548: my $longtitles_str = join('","',@{$longtitles});
549: my $allidlist = $idlist{$codetitles->[0]};
550: $numtitles = @{$codetitles};
551: $lasttitle = $numtitles;
552: if ($numtitles > 4) {
553: $lasttitle = 4;
554: }
555: if ($numtitles == 0) {
556: if (!defined($env{'form.state'})) {
557: $env{'form.state'} = 'listing';
558: }
559: } else {
560: my @data = ('top');
561: for (my $k=0; $k<$lasttitle; $k++) {
562: my $cat = $codetitles->[$k];
563: my $level = 1;
564: $level = &recurse_options($codetitles->[$k],$idlist{$codetitles->[$k]},$level,$cat,$cat_items,\@data,\%by_year,\%by_sem,\%by_dept);
565: }
566: $scripttext .= &build_javascript(\%by_year,\%by_sem,\%by_dept,$cat_order,$codetitles);
1.7 raeburn 567: if ($officialjs) {
568: $jscript .= '
569:
1.18 raeburn 570: function toggleOfficial() {
571: var choice;
572: for (var i=0; i<document.'.$formname.'.official.length; i++) {
573: if (document.'.$formname.'.official[i].checked) {
574: choice = document.'.$formname.'.official[i].value;
575: }
576: }
577: if (choice == "off") {
578: if (document.getElementById("instcodes")) {
579: document.getElementById("instcodes").style.display = "none";
580: }';
1.7 raeburn 581: for (my $i=0; $i<@{$codetitles}-1; $i++) {
582: $jscript .= '
1.18 raeburn 583: document.'.$formname.'.'.$codetitles->[$i].'.selectedIndex = 0;';
1.7 raeburn 584: }
1.18 raeburn 585: $jscript .= '
586: } else {
587: if (document.getElementById("instcodes")) {
588: document.getElementById("instcodes").style.display = "block";
589: }
590: }
1.7 raeburn 591: }
592:
593: function setOfficial(caller) {
1.8 raeburn 594: if (typeof(caller) != "undefined") {
595: if (caller.options[caller.selectedIndex].value != 0) {
596: if (document.'.$formname.'.official.length > 0) {
597: for (var j=0; j<document.'.$formname.'.official.length; j++) {
598: if (document.'.$formname.'.official[j].value == "on") {
599: document.'.$formname.'.official[j].checked = true;
600: }
601: }
1.7 raeburn 602: }
603: }
604: }
605: return;
606: }
607:
608: ';
609:
610: $officialjs = 'setOfficial(caller);';
611: }
612: $jscript .= &javascript_select_filler($formname,$scripttext,$codetitles,$longtitles_str,$allidlist,$officialjs);
1.6 raeburn 613: if ($env{'form.state'} eq 'listing') {
1.12 raeburn 614: my @standardnames = &Apache::loncommon::get_standard_codeitems();
615: my %local_to_standard;
616: if (ref($codetitles) eq 'ARRAY') {
617: for (my $i=0; $i<@{$codetitles}; $i++) {
618: $local_to_standard{$codetitles->[$i]} = $standardnames[$i];
619: }
620: }
1.6 raeburn 621: $jscript .= '
622: function setElements() {
623: ';
624: for (my $i=0; $i<@{$codetitles}-1; $i++) {
1.12 raeburn 625: my $item = $local_to_standard{$codetitles->[$i]};
626: if ($env{'form.'.$item} != -1) {
1.6 raeburn 627: $jscript .= '
1.12 raeburn 628: for (var j=0; j<document.'.$formname.'.'.$item.'.length; j++) {
629: if (document.'.$formname.'.'.$item.'[j].value == "'.$env{'form.'.$item}.'") {
630: document.'.$formname.'.'.$item.'.selectedIndex = j;
1.6 raeburn 631: }
632: }
633: ';
634: }
635: }
636: $jscript .= ' courseSet()'."\n";
1.12 raeburn 637: my $lastcodetitle = $local_to_standard{$codetitles->[-1]};
638: if ($env{'form.'.$lastcodetitle} != -1) {
1.6 raeburn 639: $jscript .= '
1.12 raeburn 640: for (var j=0; j<document.'.$formname.'.'.$lastcodetitle.'.length; j++) {
641: if (document.'.$formname.'.'.$lastcodetitle.'[j].value == "'.$env{'form.'.$lastcodetitle}.'") {
642: document.'.$formname.'.'.$lastcodetitle.'.selectedIndex = j;
1.6 raeburn 643: }
644: }
645: ';
646: }
647: $jscript .= '}';
648: }
649: }
650: }
651: }
652: return ($jscript,$totcodes,$numtitles,$lasttitle);
653: }
654:
655: sub build_instcode_selectors {
1.24 raeburn 656: my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id,$noedit) = @_;
1.6 raeburn 657: my $output;
1.10 raeburn 658: my @standardnames = &Apache::loncommon::get_standard_codeitems();
1.6 raeburn 659: if ($numtitles > 0) {
1.18 raeburn 660: my $style;
1.22 raeburn 661: if ($official eq 'off') {
1.18 raeburn 662: $style = ' style="display: none"';
663: }
1.22 raeburn 664: if ($id eq '') {
665: $id = 'instcodes';
666: }
1.24 raeburn 667: my $disabled;
668: if ($noedit) {
669: $disabled = ' disabled="disabled"';
670: }
1.22 raeburn 671: $output .= '<div id="'.$id.'"'.$style.'><table><tr>';
1.6 raeburn 672: for (my $k=0; $k<$lasttitle-1; $k++) {
673: my (@items,@unsorted);
674: if (ref($cat_items->{$codetitles->[$k]}) eq 'ARRAY') {
675: @unsorted = @{$cat_items->{$codetitles->[$k]}};
676: }
677: &sort_cats($k,$cat_order,$codetitles,\@unsorted,\@items);
678: my @longitems;
679: if (defined($cat_titles->{$codetitles->[$k]})) {
680: foreach my $item (@items) {
681: push(@longitems,$cat_titles->{$codetitles->[$k]}{$item});
682: }
683: } else {
684: @longitems = @items;
685: }
686: $output .= '<td align="center">'.$codetitles->[$k].'<br />'."\n".
1.22 raeburn 687: '<select name="'.$standardnames[$k].'" onchange="courseSet(this)"';
688: if ($class) {
689: $output .= ' class="'.$class.'"';
690: }
1.24 raeburn 691: $output .= $disabled.'>'."\n".'<option value="0">'.&mt('All').'</option>'."\n";
1.6 raeburn 692: for (my $i=0; $i<@items; $i++) {
693: if ($longitems[$i] eq '') {
694: $longitems[$i] = $items[$i];
695: }
696: $output .= ' <option value="'.$items[$i].'">'.$longitems[$i].'</option>';
697: }
698: $output .= '</select></td>';
699: }
700: $output .= '<td align="center">'.$codetitles->[$lasttitle-1].'<br />'."\n".
1.23 raeburn 701: '<select name="'.$standardnames[$lasttitle-1].'"';
702: if ($class) {
703: $output .= ' class="'.$class.'"';
704: }
1.24 raeburn 705: $output .= $disabled.'>'."\n".
1.6 raeburn 706: '<option value="0">'.&mt('All')."\n".
707: '</option>'."\n".'</select>'."\n".
708: '</td></tr></table>'."\n";
709: if ($numtitles > 4) {
710: $output .= '<br /><br />'.$codetitles->[$numtitles-1].'<br />'."\n".
1.9 raeburn 711: '<input type="text" name="'.$standardnames[$numtitles-1].
1.24 raeburn 712: '"'.$disabled.' /><br />'."\n";
1.6 raeburn 713: }
1.18 raeburn 714: $output .= '</div>';
1.6 raeburn 715: }
716: return $output;
717: }
718:
1.16 raeburn 719: sub instcode_selectors {
720: my ($codedom,$formname,$officialjs,$codetitles) = @_;
721: my ($output,%cat_titles,%cat_order,%cat_items);
722: my ($jscript,$totcodes,$numtitles,$lasttitle) =
723: &instcode_selectors_data($codedom,$formname,\%cat_items,$codetitles,
724: \%cat_titles,\%cat_order,$officialjs);
725: if ($numtitles > 0) {
726: my $official = ' checked="checked" ';
727: my $unofficial = '';
1.18 raeburn 728: if (($formname eq 'filterpicker') && ($env{'form.official'} eq 'off')) {
1.16 raeburn 729: $unofficial = $official;
730: $official = '';
731: }
732: $output .= '<span class="LC_nobreak">'.&mt('Official course:').' <label>'.
1.18 raeburn 733: '<input type="radio" name="official" value="on"'.$official.
734: ' onclick="toggleOfficial();" />'.&mt('Yes').'</label>'.
735: (' 'x3).'<label>'.
1.16 raeburn 736: '<input type="radio" name="official" value="off"'.$unofficial.
737: ' onclick="toggleOfficial();" />'.&mt('No').'</label></span><br />'.
738: &build_instcode_selectors($numtitles,$lasttitle,\%cat_items,$codetitles,
1.22 raeburn 739: \%cat_titles,\%cat_order,$env{'form.official'})."\n".
1.16 raeburn 740: '<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n".
741: '<input type="hidden" name="state" value="listing" />'."\n";
742: }
743: return ($output,$jscript,$numtitles);
744: }
745:
1.6 raeburn 746: sub recurse_options {
747: my ($currkey,$currlist,$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept) = @_;
748: if (ref($currlist) eq 'HASH') {
749: $level ++;
750: foreach my $key (sort(keys(%{$currlist}))) {
751: $$data[$level-1]= $key;
752: &recurse_options($key,$currlist->{$key},$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept);
753: }
754: } else {
755: $level --;
756: my @contents = split(/","/,$currlist);
757: foreach my $item (@contents) {
758: if (!grep(/^\Q$item\E$/,@{$cat_options->{$cat}})) {
759: push(@{$cat_options->{$cat}},$item);
760: }
761: if ($level == 3) {
762: if (!grep/^\Q$item\E$/,@{$by_year->{$data->[1]}->{$currkey}}) {
763: push(@{$by_year->{$data->[1]}->{$currkey}},$item);
764: }
765: if (!grep/^\Q$item\E$/,@{$by_sem->{$data->[2]}->{$currkey}}) {
766: push(@{$by_sem->{$data->[2]}->{$currkey}},$item);
767: }
768: if (!grep/^\Q$item\E$/,@{$by_dept->{$currkey}}) {
769: push(@{$by_dept->{$currkey}},$item);
770: }
771:
772: }
773: }
774: }
775: return $level;
776: }
777:
778: sub build_javascript {
779: my ($by_year,$by_sem,$by_dept,$cat_order,$codetitles) = @_;
780: my @unsorted = keys(%{$by_year});
781: my @sorted_yrs;
1.21 raeburn 782: &sort_cats('0',$cat_order,$codetitles,\@unsorted,\@sorted_yrs);
783: my $output = 'var idcse_by_yr_year = new Array("'.join('","',@sorted_yrs).'");'."\n".
1.6 raeburn 784: 'var idcse_by_yr_dept = new Array('.scalar(@sorted_yrs).');'."\n".
785: 'var idcse_by_yr_num = new Array('.scalar(@sorted_yrs).');'."\n";
786: for (my $i=0; $i<@sorted_yrs; $i++) {
787: my $numkeys = keys(%{$by_year->{$sorted_yrs[$i]}});
788: $output .= " idcse_by_yr_num[$i] = new Array($numkeys);\n";
789: if (ref($by_year->{$sorted_yrs[$i]}) eq 'HASH') {
790: @unsorted = keys(%{$by_year->{$sorted_yrs[$i]}});
791: my @sorted_depts;
792: &Apache::courseclassifier::sort_cats('2',$cat_order,$codetitles,\@unsorted,\@sorted_depts);
793: $output .= qq| idcse_by_yr_dept[$i] = new Array ("|.join('","',@sorted_depts).'");'."\n";
794: for (my $j=0; $j<@sorted_depts; $j++) {
795: $output .= qq| idcse_by_yr_num[$i][$j] = new Array ("|;
796: $output .= join('","',sort(@{$by_year->{$sorted_yrs[$i]}->{$sorted_depts[$j]}})).'");'."\n";
797: }
798: }
799: }
800: @unsorted = keys(%{$by_sem});
801: my @sorted_sems;
802: &sort_cats('1',$cat_order,$codetitles,\@unsorted,\@sorted_sems);
803: $output .= 'idcse_by_sem_sems = new Array("'.join('","',@sorted_sems).'");'."\n".
804: 'idcse_by_sem_dept = new Array('.scalar(@sorted_sems).');'."\n".
805: 'idcse_by_sem_num = new Array('.scalar(@sorted_sems).');'."\n";
806: for (my $i=0; $i<@sorted_sems; $i++) {
807: my $numkeys = keys(%{$by_sem->{$sorted_sems[$i]}});
808: $output .= " idcse_by_sem_num[$i] = new Array($numkeys);\n";
809: if (ref($by_sem->{$sorted_sems[$i]}) eq 'HASH') {
810: @unsorted = keys(%{$by_sem->{$sorted_sems[$i]}});
811: my @sorted_depts;
812: &sort_cats('2',$cat_order,$codetitles,\@unsorted,\@sorted_depts);
813: $output .= qq| idcse_by_sem_dept[$i] = new Array("|.join('","',@sorted_depts).'");'."\n";
814: for (my $j=0; $j<@sorted_depts; $j++) {
815: $output .= qq| idcse_by_sem_num[$i][$j] = new Array ("|.join('","',sort(@{$by_sem->{$sorted_sems[$i]}->{$sorted_depts[$j]}})).'");'."\n";
816: }
817: }
818: }
819: @unsorted = keys(%{$by_dept});
820: my @sorted_deps;
821: &sort_cats('2',$cat_order,$codetitles,\@unsorted,\@sorted_deps);
822: $output .= 'idcse_by_dep = new Array('.scalar(@sorted_deps).');'."\n";
823: for (my $k=0; $k<@sorted_deps; $k++) {
824: $output .= qq| idcse_by_dep[$k] = new Array ("|.join('","',sort(@{$by_dept->{$sorted_deps[$k]}})).'");'."\n";
825: }
826: return $output;
827: }
828:
829: sub javascript_select_filler {
1.7 raeburn 830: my ($formname,$scripttext,$codetitles,$longtitles_str,$allidlist,$officialjs) = @_;
1.13 raeburn 831: my $all = &mt('All');
832: my $nocrs = &mt('No courses');
1.6 raeburn 833: my $output = <<END;
834:
1.19 musolffc 835: function courseSet(caller, onload) {
1.6 raeburn 836: var longtitles = new Array ("$longtitles_str");
1.19 musolffc 837: var valyr = '';
838: var valsem = '';
839: var valdept = '';
840: var valclass = '';
841: if (onload) {
842: valyr = "$env{'form.Year'}";
843: valsem = "$env{'form.Semester'}";
844: valdept = "$env{'form.Department'}";
845: valclass = "$env{'form.Number'}";
846: } else {
847: valyr = document.$formname.Year.options[document.$formname.Year.selectedIndex].value;
848: valsem = document.$formname.Semester.options[document.$formname.Semester.selectedIndex].value;
849: valdept = document.$formname.Department.options[document.$formname.Department.selectedIndex].value;
850: valclass = document.$formname.Number.options[document.$formname.Number.selectedIndex].value;
851: }
1.6 raeburn 852: var idyears = new Array("$allidlist");
853: var idyr = -1;
854: var idsem = -1;
855: var iddept = -1;
856: document.$formname.Number.length = 0;
857:
858: $scripttext
859:
1.19 musolffc 860: if (onload) {
861: if (document.$formname.Year.options.length > 0) {
862: for (var i = 0; i< document.$formname.Year.options.length; i++) {
863: if (document.$formname.Year.options[i].value == "$env{'form.Year'}") {
864: document.$formname.Year.selectedIndex = i;
865: break;
866: }
867: }
868: }
869: if (document.$formname.Department.options.length > 0) {
870: for (var i = 0; i< document.$formname.Department.options.length; i++) {
871: if (document.$formname.Department.options[i].value == "$env{'form.Department'}") {
872: document.$formname.Department.selectedIndex = i;
873: break;
874: }
875: }
876: }
877: if (document.$formname.Semester.options.length > 0) {
878: for (var i = 0; i< document.$formname.Semester.options.length; i++) {
879: if (document.$formname.Semester.options[i].value == "$env{'form.Semester'}") {
880: document.$formname.Semester.selectedIndex = i;
881: break;
882: }
883: }
884: }
885: }
886:
887: var selYear = document.$formname.Year.selectedIndex-1;
888: var selSemester = document.$formname.Semester.selectedIndex-1;
889: var selDepartment = document.$formname.Department.selectedIndex-1;
1.6 raeburn 890: if (selYear == -1) {
891: if (selSemester == -1) {
892: if (selDepartment > -1) {
1.13 raeburn 893: document.$formname.Number.options[0] = new Option('$all','0',false,false);
1.6 raeburn 894: for (var k=0; k<idcse_by_dep[selDepartment].length; k++) {
895: document.$formname.Number.options[k+1] = new Option(idcse_by_dep[selDepartment][k],idcse_by_dep[selDepartment][k],false,false);
896:
897: }
898: }
899: else {
1.13 raeburn 900: document.$formname.Number.options[0] = new Option('$all','0',true,true);
1.6 raeburn 901: }
902: }
903: else {
904: if (selDepartment > -1) {
905: for (var i=0; i<idcse_by_sem_sems.length; i++) {
906: if (idcse_by_sem_sems[i] == valsem) {
907: idsem = i;
908: }
909: }
910: if (idsem != -1) {
911: for (var i=0; i<idcse_by_sem_dept[idsem].length; i++) {
912: if (idcse_by_sem_dept[idsem][i] == valdept) {
913: iddept = i;
914: }
915: }
916: }
917: if (iddept != -1) {
1.13 raeburn 918: document.$formname.Number.options[0] = new Option('$all','0',false,false);
1.6 raeburn 919: for (var k=0; k<idcse_by_sem_num[idsem][iddept].length; k++) {
920: document.$formname.Number.options[k+1] = new Option(idcse_by_sem_num[idsem][iddept][k],idcse_by_sem_num[idsem][iddept][k],false,false);
921: }
922: }
923: else {
1.13 raeburn 924: document.$formname.Number.options[0] = new Option('$nocrs','0',true,true);
1.6 raeburn 925: }
926: }
927: else {
1.13 raeburn 928: document.$formname.Number.options[0] = new Option('$all','0',true,true);
1.6 raeburn 929: }
930: }
931: }
932: else {
933: if (selSemester == -1) {
934: if (selDepartment > -1) {
935: for (var i=0; i<idcse_by_yr_year.length; i++) {
936: if (idcse_by_yr_year[i] == valyr) {
937: idyr = i;
938: }
939: }
940: if (idyr != -1) {
941: for (var i=0; i<idcse_by_yr_dept[idyr].length; i++) {
942: if (idcse_by_yr_dept[idyr][i] == valdept) {
943: iddept = i;
944: }
945: }
946: }
947: if (iddept != -1) {
1.13 raeburn 948: document.$formname.Number.options[0] = new Option('$all','0',false,false);
1.6 raeburn 949: for (var k=0; k<idcse_by_yr_num[idyr][iddept].length; k++) {
950: document.$formname.Number.options[k+1] = new Option(idcse_by_yr_num[idyr][iddept][k],idcse_by_yr_num[idyr][iddept][k],false,false);
951: }
952: }
953: else {
1.13 raeburn 954: document.$formname.Number.options[0] = new Option('$nocrs','0',true,true);
1.6 raeburn 955: }
956: }
957: else {
1.13 raeburn 958: document.$formname.Number.options[0] = new Option('$all','0',true,true);
1.6 raeburn 959: }
960: }
961: else {
962: if (selDepartment > -1) {
963: for (var k=0; k<idyears.length; k++) {
964: if (idyears[k] == valyr) {
965: idyr = k;
966: }
967: }
968: if (idyr != -1) {
969: for (var k=0; k<idsems[idyr].length; k++) {
970: if (idsems[idyr][k] == valsem) {
971: idsem = k;
972: }
973: }
974: }
975: if (idsem != -1) {
976: for (var k=0; k<idcodes[idyr][idsem].length; k++) {
977: if (idcodes[idyr][idsem][k] == valdept) {
978: iddept = k;
979: }
980: }
981: }
982: if (iddept != -1) {
1.17 raeburn 983: document.$formname.Number.options[0] = new Option('$all','0',false,false);
1.6 raeburn 984: for (var i=0; i<idcourses[idyr][idsem][iddept].length; i++) {
985: var display = idcourses[idyr][idsem][iddept][i];
986: if (longtitles[3] == 1) {
987: if (idcourseslongs[idyr][idsem][iddept][i] != "") {
988: display = idcourseslongs[idyr][idsem][iddept][i]
989: }
990: }
991: document.$formname.Number.options[i+1] = new Option(display,idcourses[idyr][idsem][iddept][i],false,false)
992: }
993: }
994: else {
1.13 raeburn 995: document.$formname.Number.options[0] = new Option('$nocrs','0',true,true);
1.6 raeburn 996: }
997: }
998: else {
1.13 raeburn 999: document.$formname.Number.options[0] = new Option('$all','0',true,true);
1.6 raeburn 1000: }
1001: }
1002: document.$formname.Number.selectedIndex = 0
1003: }
1.19 musolffc 1004: if (onload) {
1005: if (document.$formname.Number.options.length > 0) {
1006: for (var i = 0; i< document.$formname.Number.options.length; i++) {
1007: if (document.$formname.Number.options[i].value == "$env{'form.Number'}") {
1008: document.$formname.Number.selectedIndex = i;
1009: break;
1010: }
1011: }
1012: }
1013: } else {
1014: $officialjs
1015: }
1.6 raeburn 1016: }
1017: END
1018: return $output;
1019: }
1020:
1021: sub instcode_search_str {
1.9 raeburn 1022: my ($domain,$numtitles,$codetitles) = @_;
1.6 raeburn 1023: my $instcode;
1024: if (defined($numtitles) && $numtitles == 0) {
1025: $instcode = '.+';
1026: } else {
1027: my (%codedefaults,@code_order);
1028: my $defaults_result =
1029: &Apache::lonnet::auto_instcode_defaults($domain,\%codedefaults,
1030: \@code_order);
1.10 raeburn 1031: my @standardnames = &Apache::loncommon::get_standard_codeitems();
1.9 raeburn 1032: my %local_to_standard;
1033: if (ref($codetitles) eq 'ARRAY') {
1034: for (my $i=0; $i<@{$codetitles}; $i++) {
1035: $local_to_standard{$codetitles->[$i]} = $standardnames[$i];
1036: }
1037: }
1.6 raeburn 1038: if ($defaults_result eq 'ok') {
1039: $instcode ='^';
1.9 raeburn 1040: foreach my $loctitle (@code_order) {
1041: my $item = $local_to_standard{$loctitle};
1042: if ($item ne '') {
1043: if ($env{'form.'.$item} eq '0' ) {
1.12 raeburn 1044: $instcode .= $codedefaults{$loctitle};
1.9 raeburn 1045: } else {
1046: $instcode .= $env{'form.'.$item};
1047: }
1.6 raeburn 1048: } else {
1.9 raeburn 1049: $instcode .= '.+';
1.6 raeburn 1050: }
1051: }
1052: $instcode .= '$';
1053: } else {
1054: $instcode = '.+';
1055: }
1056: }
1057: return $instcode;
1058: }
1059:
1.10 raeburn 1060: sub instcode_from_selectors {
1.14 raeburn 1061: my ($cdom,$noregexps) = @_;
1.10 raeburn 1062: my $instcode;
1.27 raeburn 1063: my (@codetitles,%codedefaults,@code_order);
1064: my $instcats = &Apache::lonnet::get_dom_instcats($cdom);
1065: if (ref($instcats) eq 'HASH') {
1066: if (ref($instcats->{'codetitles'}) eq 'ARRAY') {
1067: @codetitles = @{$instcats->{'codetitles'}};
1068: }
1069: }
1.10 raeburn 1070: my $defaults_result =
1071: &Apache::lonnet::auto_instcode_defaults($cdom,\%codedefaults,
1072: \@code_order);
1.27 raeburn 1073: if (($defaults_result eq 'ok') && (@codetitles > 0)) {
1.10 raeburn 1074: my @standardnames = &Apache::loncommon::get_standard_codeitems();
1075: my %local_to_standard;
1076: for (my $i=0; $i<@codetitles; $i++) {
1077: $local_to_standard{$codetitles[$i]} = $standardnames[$i];
1078: }
1079: foreach my $loctitle (@code_order) {
1080: my $category = $local_to_standard{$loctitle};
1081: if ($category ne '') {
1082: if ($env{'form.'.$category} eq '-1' ) {
1.14 raeburn 1083: if ($noregexps) {
1084: $instcode .= ' ';
1085: } else {
1086: $instcode .= $codedefaults{$category};
1087: }
1.10 raeburn 1088: } else {
1089: $instcode .= $env{'form.'.$category};
1090: }
1091: } else {
1092: $instcode .= '.+';
1093: }
1094: }
1095: }
1096: return $instcode;
1.9 raeburn 1097: }
1098:
1.1 raeburn 1099: 1;
1100:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to courseclassifier.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface