[LON-CAPA-cvs] cvs: loncom /interface lonnotify.pm lonsupportreq.pm

[raeburn]

raeburn		Tue Jul 11 11:38:05 2006 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm lonnotify.pm 
  Log:
  Include 'Course' as type filter when retrieving course IDs and course codes for population of connected Year, Semester, Department and Number select boxes.  
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.35 loncom/interface/lonsupportreq.pm:1.36
--- loncom/interface/lonsupportreq.pm:1.35	Tue May 30 08:46:09 2006
+++ loncom/interface/lonsupportreq.pm	Tue Jul 11 11:37:59 2006
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.35 2006/05/30 12:46:09 www Exp $
+# $Id: lonsupportreq.pm,v 1.36 2006/07/11 15:37:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -976,7 +976,8 @@
 
 sub retrieve_instcodes {
     my ($coursecodes,$codedom,$totcodes) = @_;
-    my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.');
+    my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.',
+                                                undef,undef,'Course');
     foreach my $course (keys %courses) {
         if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
             $$coursecodes{$course} = &unescape($1);
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.21 loncom/interface/lonnotify.pm:1.22
--- loncom/interface/lonnotify.pm:1.21	Fri Jul  7 09:50:26 2006
+++ loncom/interface/lonnotify.pm	Tue Jul 11 11:37:59 2006
@@ -498,7 +498,8 @@
     my $coursefilter = $env{'form.coursepick'};
     my %courses = ();
     if ($coursefilter eq 'all') {
-        %courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.');
+        %courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.',
+                                                 undef,undef,'Course');
     } elsif ($coursefilter eq 'category') {
         my $instcode = '';
         my @cats = ('Semester','Year','Department','Number');
@@ -512,7 +513,8 @@
         if ($instcode eq '') {
             $instcode = '.';
         }
-        %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.');
+        %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.',
+                                                 undef,undef,'Course');
     } elsif ($coursefilter eq 'specific') {
         if ($env{'form.coursetotal'} > 1) {
             my @course_ids = split(/&&/,$env{'form.courselist'});