--- loncom/interface/lonmodifycourse.pm 2009/01/12 01:37:57 1.41
+++ 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.41 2009/01/12 01:37:57 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.44 2009/05/08 17:22:17 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -118,8 +118,9 @@ 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);
@@ -131,7 +132,7 @@ sub print_course_search_page {
'
'.&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',
@@ -290,10 +291,10 @@ sub print_setquota {
my $cctitle = &Apache::lonnet::plaintext('cc',$type);
my $subdiv = &mt('Although a [_1] will assign the disk quota for each individual group, the size of the quota is constrained by the total disk space allocated by the [_2] for portfolio files in a course.',$cctitle,$dctitle);
my %lt = &Apache::lonlocal::texthash(
- 'cquo' => 'Disk space for storage of group portfolio files',
+ 'cquo' => 'Disk space for storage of group portfolio',
'gpqu' => 'Course portfolio files disk space',
'each' => 'Each course group can be assigned a quota for portfolio files uploaded to the group.',
- 'modi' => 'Modify quota',
+ 'modi' => 'Save',
'back' => "Back to options page",
);
my %settings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);
@@ -387,7 +388,7 @@ sub print_course_modification_page {
'name' => "Name",
'unme' => "Username:Domain",
'stus' => "Status",
- 'cquo' => "Disk space for storage of group portfolio files",
+ 'cquo' => "Disk space for storage of group portfolio",
'gpqu' => "Course portfolio files disk space",
'each' => "Each course group can be assigned a quota for portfolio files uploaded to the group.",
'cose' => "Course settings for LON-CAPA courses that control automated student enrollment based on classlist data available from your institution's student information system fall into two groups: (a) settings that can be modified by a Course Coordinator using the ",
@@ -783,7 +784,7 @@ sub modify_quota {
);
$r->print('