';
+ my $show_selfenroll_status;
+ if ($env{'form.showselfenroll'}) {
+ $show_selfenroll_status = 'checked="checked" ';
+ }
+ if (&user_is_dc($codedom)) {
+ my $showdetails_status;
+ if ($env{'form.showdetails'}) {
+ $showdetails_status = 'checked="checked" ';
+ }
+ my $showhidden_status;
+ if ($env{'form.showhidden'}) {
+ $showhidden_status = 'checked="checked" ';
+ }
+ my $dc_title = &Apache::lonnet::plaintext('dc');
+ $output .= '
'."\n".
+ ''."\n".'
'.
+ ''."\n".'
';
+ }
+ $output .= '
'.
+ '
';
+ return $output;
+}
+
sub user_is_dc {
my ($codedom) = @_;
if (exists($env{'user.role.dc./'.$codedom.'/'})) {
@@ -395,7 +591,7 @@ sub build_javascript {
return $output;
}
-sub search_courselist {
+sub search_official_courselist {
my ($domain,$numtitles) = @_;
my $instcode;
if (defined($numtitles) && $numtitles == 0) {
@@ -419,12 +615,38 @@ sub search_courselist {
$instcode = '.';
}
}
- my %courses = &Apache::lonnet::courseiddump($domain,'.',1,$instcode,'.','.',
- undef,undef,'Course',1,
- $env{'form.showselfenroll'});
+ my $showhidden;
+ if (&user_is_dc($domain)) {
+ $showhidden = $env{'form.showhidden'};
+ }
+ my %courses =
+ &Apache::lonnet::courseiddump($domain,'.',1,$instcode,'.','.',undef,undef,
+ 'Course',1,$env{'form.showselfenroll'},undef,
+ $showhidden,'coursecatalog');
return %courses;
}
+sub search_courselist {
+ my ($domain) = @_;
+ my $cat_maxdepth = $env{'form.catalog_maxdepth'};
+ my $filter = $env{'form.currcat_'.$cat_maxdepth};
+ if (($filter eq '') && ($cat_maxdepth > 0)) {
+ my $shallower = $cat_maxdepth - 1;
+ $filter = $env{'form.currcat_'.$shallower};
+ }
+ my %courses;
+ if ($filter ne '') {
+ my $showhidden;
+ if (&user_is_dc($domain)) {
+ $showhidden = $env{'form.showhidden'};
+ }
+ %courses =
+ &Apache::lonnet::courseiddump($domain,'.',1,'.','.','.',undef,undef,
+ '.',1,$env{'form.showselfenroll'},
+ $filter,$showhidden,'coursecatalog');
+ }
+ return %courses;
+}
sub print_course_listing {
my ($domain,$numtitles) = @_;
@@ -440,19 +662,25 @@ sub print_course_listing {
if ($env{'form.coursenum'} ne '') {
%courses = &Apache::lonnet::courseiddump($domain,'.',1,'.','.',
$env{'form.coursenum'},
- undef,undef,'Course',1);
+ undef,undef,'.',1);
if (keys(%courses) == 0) {
$output .= &mt('The courseID provided does not match a course in this domain.');
return $output;
}
} else {
- %courses = &search_courselist($domain,$numtitles);
+ if ($env{'form.currcat_0'} eq 'instcode::0') {
+ %courses = &search_official_courselist($domain,$numtitles);
+ } else {
+ %courses = &search_courselist($domain);
+ }
if (keys(%courses) == 0) {
$output = &mt('No courses match the criteria you selected.');
return $output;
}
- if ($knownuser && !$env{'form.showdetails'}) {
- $output = &mt('Note for students: If you are officially enrolled in a course but the course is not listed in your LON-CAPA courses, click the "Show more details" link for the specific course and check the default access dates and/or automated enrollment settings.
');
+ if (($knownuser) && (!$env{'form.showdetails'}) && (!&user_is_dc($domain))) {
+ $output = ''.&mt('Note for students:').' '
+ .&mt('If you are officially enrolled in a course but the course is not listed in your LON-CAPA courses, click the "Show more details" link for the specific course and check the default access dates and/or automated enrollment settings.')
+ .'
';
}
}
my $now = time;
@@ -631,7 +859,7 @@ sub build_courseinfo_hash {
if ( defined($coursehash{'default_enrollment_end_date'}) ) {
$endaccess = &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_end_date'});
if ($coursehash{'default_enrollment_end_date'} == 0) {
- $endaccess = "No ending date";
+ $endaccess = &mt('No ending date');
}
}
if ($startaccess) {
@@ -640,6 +868,33 @@ sub build_courseinfo_hash {
if ($endaccess) {
$accessdates .= &mt('To: ').$endaccess.' ';
}
+ if (($selfenroll_types ne '') &&
+ ($selfenroll_end > 0 && $selfenroll_end > $now)) {
+ my ($selfenroll_start_access,$selfenroll_end_access);
+ if (($coursehash{'default_enrollment_start_date'} ne
+ $coursehash{'internal.selfenroll_start_access'}) ||
+ ($coursehash{'default_enrollment_end_date'} ne
+ $coursehash{'internal.selfenroll_end_access'})) {
+ if ( defined($coursehash{'internal.selfenroll_start_access'}) ) {
+ $selfenroll_start_access = &Apache::lonlocal::locallocaltime($coursehash{'internal.selfenroll_start_access'});
+ }
+ if ( defined($coursehash{'default_enrollment_end_date'}) ) {
+ $selfenroll_end_access = &Apache::lonlocal::locallocaltime($coursehash{'internal.selfenroll_end_access'});
+ if ($coursehash{'internal.selfenroll_end_access'} == 0) {
+ $selfenroll_end_access = &mt('No ending date');
+ }
+ }
+ if ($selfenroll_start_access || $selfenroll_end_access) {
+ $accessdates .= '