--- loncom/interface/lonmodifycourse.pm	2010/05/18 16:13:31	1.54
+++ loncom/interface/lonmodifycourse.pm	2010/07/08 23:19:19	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # handler for DC-only modifiable course settings
 #
-# $Id: lonmodifycourse.pm,v 1.54 2010/05/18 16:13:31 bisitz Exp $
+# $Id: lonmodifycourse.pm,v 1.56 2010/07/08 23:19:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -149,7 +149,7 @@ sub print_course_search_page {
                       'instcodefilter','ownerfilter',
                       'coursefilter'];
     my $filter = {};
-    my ($numtitles,$cctitle,$dctitle);
+    my ($numtitles,$cctitle,$dctitle,@codetitles);
     my $ccrole = 'cc';
     if ($type eq 'Community') {
         $ccrole = 'co';
@@ -163,7 +163,8 @@ sub print_course_search_page {
         $r->print('<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>');
     }   
     $r->print(&Apache::lonpickcourse::build_filters($filterlist,$type,
-                             undef,undef,$filter,$action,\$numtitles,'modifycourse'));
+                             undef,undef,$filter,$action,\$numtitles,'modifycourse',
+                             undef,undef,undef,\@codetitles));
     if ($type eq 'Community') {
         $r->print(&mt('Actions available after searching for a community:').'<ul>'.
                   '<li>'.&mt('Enter the community with the role of [_1]',$cctitle).'</li>'."\n".
@@ -192,14 +193,16 @@ sub print_course_selection_page {
     my %filter;
     my $action = '/adm/modifycourse';
     my $dctitle = &Apache::lonnet::plaintext('dc');
-    my $numtitles;
+    my ($numtitles,@codetitles);
     $r->print(&Apache::lonpickcourse::js_changer());
     $r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br />');
     $r->print(&Apache::lonpickcourse::build_filters($filterlist,$type,
-                                       undef,undef,\%filter,$action,\$numtitles));
+                                       undef,undef,\%filter,$action,\$numtitles,
+                                       undef,undef,undef,undef,\@codetitles));
     $filter{'domainfilter'} = $dom;
     my %courses = &Apache::lonpickcourse::search_courses($r,$type,0,
-                                                         \%filter,$numtitles);
+                                                         \%filter,$numtitles,undef,
+                                                         undef,undef,\@codetitles);
     &Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef,
                                                     %courses);
     return;
@@ -241,7 +244,7 @@ sub print_modification_menu {
                 url => &phaseurl('setparms'),
                 permission => 1,
                 #help => '',
-                icon => 'mcrs.png',
+                icon => 'crsconf.png',
                 linktitle => ''
             },
             {
@@ -249,7 +252,7 @@ sub print_modification_menu {
                 url => &phaseurl('setquota'),
                 permission => 1,
                 #help => '',
-                icon => 'mcrs.png',
+                icon => 'groupportfolioquota.png',
                 linktitle => ''
             },
             {
@@ -257,7 +260,7 @@ sub print_modification_menu {
                 url => &phaseurl('catsettings'),
                 permission => (@additional_params > 0),
                 #help => '',
-                icon => 'mcrs.png',
+                icon => 'ccatconf.png',
                 linktitle => ''
             },
             {
@@ -265,7 +268,7 @@ sub print_modification_menu {
                 url => &phaseurl('viewparms'),
                 permission => ($type ne 'Community'),
                 #help => '',
-                icon => 'mcrs.png',
+                icon => 'roles.png',
                 linktitle => ''
             },
         ]