--- loncom/interface/lonmodifycourse.pm 2008/06/30 01:28:56 1.38
+++ loncom/interface/lonmodifycourse.pm 2009/05/08 17:22:17 1.44
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# handler for DC-only modifiable course settings
#
-# $Id: lonmodifycourse.pm,v 1.38 2008/06/30 01:28:56 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.44 2009/05/08 17:22:17 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -118,20 +118,21 @@ sub print_course_search_page {
&print_header($r);
my $filterlist = ['descriptfilter',
'instcodefilter','ownerfilter',
- 'ownerdomfilter','coursefilter'];
+ 'coursefilter'];
my $filter = {};
+ my $numtitles;
my $type = 'Course';
my $action = '/adm/modifycourse';
my $cctitle = &Apache::lonnet::plaintext('cc',$type);
my $dctitle = &Apache::lonnet::plaintext('dc');
$r->print(
'
'.&mt('Search for a course in the [_1] domain',$domdesc).'
'.
- &mt('Actions available after selecting a course:').''.
+ &mt('Actions available after searching for a course:').''.
'- '.&mt('Enter the course with the role of [_1]',$cctitle).'
'."\n".
'- '.&mt('View or modify course settings which only a [_1] may modify.'
,$dctitle).'
'."\n".'
');
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type,
- undef,undef,$filter,$action,'modifycourse'));
+ undef,undef,$filter,$action,\$numtitles,'modifycourse'));
}
sub print_course_selection_page {
@@ -155,7 +156,7 @@ sub print_course_selection_page {
$filter{'domainfilter'} = $dom;
my %courses = &Apache::lonpickcourse::search_courses($r,$type,0,
\%filter);
- &Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,
+ &Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,
%courses);
return;
}
@@ -173,7 +174,7 @@ sub print_modification_menu {
);
my @menu =
(
- { text => 'Modify quota for group portfolio files',
+ { text => 'Modify quota for group portfolio',
phase => 'setquota',
},
{ text => 'Display current settings for automated enrollment',
@@ -269,7 +270,7 @@ sub print_settings_display {
$disp_table .= &Apache::loncommon::end_data_table()."\n";
&print_header($r,$cdesc);
$r->print('
-'.$lt{'caes'}.'
+'.$lt{'caes'}.$cdesc.'