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

Diff for /loncom/interface/lonsupportreq.pm between versions 1.6 and 1.7

version 1.6, 2004/07/19 16:35:12 version 1.7, 2004/07/19 20:01:56
Line 737  sub build_code_selections { Line 737  sub build_code_selections {
             }              }
             $$idlist{$$codetitles[0]} = join('","',@contents);              $$idlist{$$codetitles[0]} = join('","',@contents);
             $$idnums{$$codetitles[0]} = scalar(@contents);              $$idnums{$$codetitles[0]} = scalar(@contents);
             print STDERR "idnums for {$$codetitles[0] is $$idnums{$$codetitles[0]}\n";  
             if (defined($$cat_titles{$$codetitles[0]})) {              if (defined($$cat_titles{$$codetitles[0]})) {
                 $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);                  $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
             }              }
Line 755  sub build_code_selections { Line 754  sub build_code_selections {
                 }                  }
                 $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);                  $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
                 $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);                  $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
                 print STDERR "idnums for {$$codetitles[1]  and $key_a is $$idnums{$$codetitles[1]}{$key_a}\n";  
                 if (defined($$cat_titles{$$codetitles[1]})) {                  if (defined($$cat_titles{$$codetitles[1]})) {
                     $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);                      $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
                 }                  }
Line 837  sub recurse_list { Line 835  sub recurse_list {
     if ($num == 0) {      if ($num == 0) {
         if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {          if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
             push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};              push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
             print STDERR "Adding $$codes{$cid}{$$codetitles[0]} to $$codetitles[0]\n";  
         }          }
     } elsif ($num == 1) {      } elsif ($num == 1) {
         if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {          if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {
Removed from v.1.6  
changed lines
  Added in v.1.7

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