'.&mt('Display information about official [_1] classes for which LON-CAPA courses have been created:',$domdesc).'
');
- $r->print(&mt('Choose which course(s) to list. '));
$r->print('');
+ if (($numtitles > 0) && ($env{'form.state'} eq 'listing')) {
+ $r->print('
');
}
- $r->print(' ');
} else {
$r->print(&Apache::loncommon::start_page('Course Catalog','',
{
'no_inline_link' => 1,}));
$r->print(' '.&mt('No official courses to display for [_1].',$domdesc));
}
- return;
+ return $numtitles;
}
+sub user_is_dc {
+ my ($codedom) = @_;
+ if (exists($env{'user.role.dc./'.$codedom.'/'})) {
+ my $livedc = 1;
+ my $now = time;
+ my ($start,$end)=split(/\./,$env{'user.role.dc./'.$codedom.'/'});
+ if ($start && $start>$now) { $livedc = 0; }
+ if ($end && $end <$now) { $livedc = 0; }
+ return $livedc;
+ }
+ return;
+}
sub recurse_options {
my ($currkey,$currlist,$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept) = @_;
@@ -327,23 +393,28 @@ sub build_javascript {
}
sub search_courselist {
- my ($domain) = @_;
- my ($instcode,%codedefaults,@code_order);
- my $defaults_result =
- &Apache::lonnet::auto_instcode_defaults($domain,\%codedefaults,
- \@code_order);
- if ($defaults_result eq 'ok') {
- $instcode ='^';
- foreach my $item (@code_order) {
- if ($env{'form.'.$item} eq '0' ) {
- $instcode .= $codedefaults{$item};
- } else {
- $instcode .= $env{'form.'.$item};
+ my ($domain,$numtitles) = @_;
+ my $instcode;
+ if (defined($numtitles) && $numtitles == 0) {
+ $instcode = '.+';
+ } else {
+ my (%codedefaults,@code_order);
+ my $defaults_result =
+ &Apache::lonnet::auto_instcode_defaults($domain,\%codedefaults,
+ \@code_order);
+ if ($defaults_result eq 'ok') {
+ $instcode ='^';
+ foreach my $item (@code_order) {
+ if ($env{'form.'.$item} eq '0' ) {
+ $instcode .= $codedefaults{$item};
+ } else {
+ $instcode .= $env{'form.'.$item};
+ }
}
+ $instcode .= '$';
+ } else {
+ $instcode = '.';
}
- $instcode .= '$';
- } else {
- $instcode = '.';
}
my %courses = &Apache::lonnet::courseiddump($domain,'.',1,$instcode,'.','.',
undef,undef,'Course',1);
@@ -352,9 +423,16 @@ sub search_courselist {
sub print_course_listing {
- my ($domain) = @_;
+ my ($domain,$numtitles) = @_;
my $output;
my %courses;
+ my $knownuser = &user_is_known();
+ my $details = $env{'form.coursenum'};
+ if (&user_is_dc($domain)) {
+ if ($env{'form.showdetails'}) {
+ $details = 1;
+ }
+ }
if ($env{'form.coursenum'} ne '') {
%courses = &Apache::lonnet::courseiddump($domain,'.',1,'.','.',
$env{'form.coursenum'},
@@ -364,22 +442,34 @@ sub print_course_listing {
return $output;
}
} else {
- %courses = &search_courselist($domain);
+ %courses = &search_courselist($domain,$numtitles);
if (keys(%courses) == 0) {
$output = &mt('No courses match the criteria you selected.');
return $output;
}
- $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'}) {
+ $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.