';
- my %add_entries = (topmargin => "0",
- marginheight => "0",
- onLoad =>"setElements()",);
- my $start_page =
- &Apache::loncommon::start_page('Course Catalog',$js,
- {
- 'add_entries' => \%add_entries,
- 'no_inline_link' => 1,});
- $r->print($start_page);
-
- $r->print(''.&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('');
+ $r->print(''."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ ''.
+ '
');
} else {
- $r->print(&Apache::loncommon::start_page('Course Catalog','',
- {
- 'no_inline_link' => 1,}));
- $r->print('
'.&mt('No official courses to display for [_1].',$domdesc));
+ &cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);
+ my $cat_maxdepth = $env{'form.catalog_maxdepth'};
+ $r->print('');
}
+ return $numtitles;
+}
+
+sub cat_header {
+ my ($r,$codedom,$js,$add_entries,$catlinks,$numtitles) = @_;
+ my $start_page =
+ &Apache::loncommon::start_page('Course Catalog',$js,
+ {
+ 'add_entries' => $add_entries,
+ 'no_inline_link' => 1,});
+ $r->print($start_page);
if ($env{'form.state'} eq 'listing') {
- $r->print('
'.&print_course_listing($codedom).'
');
+ if ($numtitles > 0) {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>"/adm/coursecatalog",
+ text=>"Select courses"},
+ {text=>"Course listing"});
+ } else {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({text=>"Course listing"});
+ }
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Listing'));
+ } else {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>"/adm/coursecatalog",
+ text=>"Select courses"});
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Select courses'));
+ }
+ $r->print(''.
+ '');
+ return;
+}
+
+sub category_breadcrumbs {
+ my ($dom,@cats) = @_;
+ my ($currdepth,$deeper) = &get_depth_values();
+ my $currcat_str = '';
+ my $catlinks = ''.&mt('Catalog:').' | ';
+ my $has_subcats;
+ for (my $i=0; $i<$deeper; $i++) {
+ $currcat_str .= '';
+ my ($cattitle,$shallower);
+ if ($i == 0) {
+ $cattitle = &mt('Main Categories');
+ } else {
+ $shallower = $i-1;
+ my ($cat,$container,$depth) = map { &unescape($_); } split(/:/,$env{'form.currcat_'.$shallower});
+ $cattitle = $cat;
+ }
+ $catlinks .= '| '.$cattitle.'-> | ';
+ }
+ if ($deeper == 0) {
+ $catlinks .= ''.&mt('Main Categories').': ';
+ if (ref($cats[0]) eq 'ARRAY') {
+ if ((@{$cats[0]} == 1) && ($cats[0][0] eq 'instcode')) {
+ $catlinks .= &mt('Official courses (with institutional codes)').
+ '';
+ $env{'form.currcat_0'} = 'instcode::0';
+ } else {
+ $has_subcats = 1;
+ $catlinks .= ''."\n".
+ ' ';
+ }
+ } else {
+ $catlinks .= &mt('Official courses (with institutional codes)').
+ '';
+ $env{'form.currcat_0'} = 'instcode::0';
+ }
+ } else {
+ my ($cat,$container,$depth);
+ if ($env{'form.currcat_'.$currdepth} eq '') {
+ my $shallower = $currdepth - 1;
+ ($cat,$container,$depth) = map { &unescape($_); } split(/:/,$env{'form.currcat_'.$shallower});
+ } else {
+ ($cat,$container,$depth) = map { &unescape($_); } split(/:/,$env{'form.currcat_'.$currdepth});
+ }
+ my $deeper = $depth +1;
+ my $currcat = $cat;
+ if ($cat eq 'instcode') {
+ $currcat = &mt('Official courses (with institutional codes)');
+ }
+ $catlinks .= ' | '.$currcat;
+ if (ref($cats[$deeper]{$cat}) eq 'ARRAY') {
+ $has_subcats = 1;
+ my $selstr;
+ $catlinks .= ': '."\n".
+ ' ';
+ }
}
- $r->print(&Apache::loncommon::end_page());
- return OK;
+ $catlinks .= $currcat_str.' |
| ';
+ return ($catlinks,$has_subcats);
+}
+
+sub get_depth_values {
+ my $currdepth = 0;
+ my $deeper = 0;
+ if ($env{'form.catalog_maxdepth'} ne '') {
+ $currdepth = $env{'form.catalog_maxdepth'};
+ if ($env{'form.currcat_'.$currdepth} eq '') {
+ $deeper = $currdepth;
+ } else {
+ $deeper = $currdepth + 1;
+ }
+ }
+ return ($currdepth,$deeper);
+}
+
+sub additional_filters {
+ my ($codedom,$has_subcats) = @_;
+ my $output = '
';
+ return $output;
+}
+
+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 {
@@ -268,105 +621,202 @@ sub build_javascript {
return $output;
}
+sub search_official_courselist {
+ 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 = '.';
+ }
+ }
+ 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,$subcats) = @_;
+ 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;
+ my $filterstr;
+ if ($filter ne '') {
+ if ($env{'form.withsubcats'}) {
+ if (ref($subcats) eq 'HASH') {
+ if (ref($subcats->{$filter}) eq 'ARRAY') {
+ $filterstr = join('&',@{$subcats->{$filter}});
+ if ($filterstr ne '') {
+ $filterstr = $filter.'&'.$filterstr;
+ }
+ } else {
+ $filterstr = $filter;
+ }
+ } else {
+ $filterstr = $filter;
+ }
+ } else {
+ $filterstr = $filter;
+ }
+ my $showhidden;
+ if (&user_is_dc($domain)) {
+ $showhidden = $env{'form.showhidden'};
+ }
+ %courses =
+ &Apache::lonnet::courseiddump($domain,'.',1,'.','.','.',undef,undef,
+ '.',1,$env{'form.showselfenroll'},
+ $filterstr,$showhidden,'coursecatalog');
+ }
+ return %courses;
+}
sub print_course_listing {
- my ($domain) = @_;
+ my ($domain,$numtitles,$trails,$allitems,$subcats) = @_;
my $output;
- my $year = $env{'form.Year'};
- my $sem = $env{'form.Semester'};
- my $dept = $env{'form.Department'};
- my $coursenum = $env{'form.Number'};
- my $instcode;
- if ($sem eq '0' ) {
- $instcode .= '^[sfu]s';
- } else {
- $instcode .= '^'.$sem;
+ my %courses;
+ my $knownuser = &user_is_known();
+ my $details = $env{'form.coursenum'};
+ if (&user_is_dc($domain)) {
+ if ($env{'form.showdetails'}) {
+ $details = 1;
+ }
}
- if ($year eq '0') {
- $instcode .= '\d{2}';
+ if ($env{'form.coursenum'} ne '') {
+ %courses = &Apache::lonnet::courseiddump($domain,'.',1,'.','.',
+ $env{'form.coursenum'},
+ undef,undef,'.',1);
+ if (keys(%courses) == 0) {
+ $output .= &mt('The courseID provided does not match a course in this domain.');
+ return $output;
+ }
} else {
- $instcode .= $year;
+ if ($env{'form.currcat_0'} eq 'instcode::0') {
+ %courses = &search_official_courselist($domain,$numtitles);
+ } else {
+ %courses = &search_courselist($domain,$subcats);
+ }
+ if (keys(%courses) == 0) {
+ $output = &mt('No courses match the criteria you selected.');
+ return $output;
+ }
+ 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;
+ my %domconfig =
+ &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
+ $output .= &construct_data_table($knownuser,\%courses,$details,undef,$now,\%domconfig,$trails,$allitems);
+ if ($env{'form.coursenum'} ne '') {
+ $output .= &Apache::lonhtmlcommon::echo_form_input(['coursenum','state','catalogfilter','sortby','showdetails']);
}
- if ($dept eq '0') {
- $instcode .= '\w{2,3}';
+ return $output;
+}
+
+sub construct_data_table {
+ my ($knownuser,$courses,$details,$usersections,$now,$domconfig,$trails,
+ $allitems) = @_;
+ my %sortname;
+ if (($details eq '') || ($env{'form.showdetails'})) {
+ $sortname{'Code'} = 'code';
+ $sortname{'Categories'} = 'cats';
+ $sortname{'Title'} = 'title';
+ $sortname{'Owner(s)'} = 'owner';
+ }
+ my $output = &Apache::loncommon::start_data_table().
+ &Apache::loncommon::start_data_table_header_row();
+ my @coltitles = ('Count');
+ if ($env{'form.currcat_0'} eq 'instcode::0') {
+ push(@coltitles,'Code');
} else {
- $instcode .= $dept;
- }
- if ($coursenum ne '0' && $coursenum != -1) {
- $instcode .= $coursenum.'$';
- }
- my %courses = &Apache::lonnet::courseiddump($domain,'.',1,$instcode,'.','.',
- undef,undef,'Course',1);
- if (keys(%courses) == 0) {
- $output = &mt('No courses match the criteria you selected.');
- return $output;
+ push(@coltitles,'Categories');
}
- $output = &mt('Note for students: If you are officially enrolled in a course but there is no student role for the course in your LON-CAPA roles screen, check the default access dates and/or auto-enrollment settings for the course below. Your roles screen displays only currently accessible roles.
');
- $output .= &Apache::loncommon::start_data_table().
- &Apache::loncommon::start_data_table_header_row().
- ''.&mt('Code').' | '.
- ''.&mt('Sections').' | '.
- ''.&mt('Crosslisted').' | '.
- ''.&mt('Title').' | '.
- ''.&mt('Owner').' | '.
- ''.&mt('Student Status').' | '.
- ''.&mt('Default Access Dates').' | '.
- ''.&mt('Auto-enrollment').' | '.
- &Apache::loncommon::end_data_table_header_row();
- my %courseinfo;
- foreach my $course (keys(%courses)) {
- my $descr;
- if ($courses{$course} =~ m/^([^:]*):/i) {
- $descr = &unescape($1);
+ push(@coltitles,('Sections','Crosslisted','Title','Owner(s)'));
+ if (ref($usersections) eq 'HASH') {
+ $coltitles[1] = 'Your Section';
+ }
+ foreach my $item (@coltitles) {
+ $output .= '';
+ if (defined($sortname{$item})) {
+ $output .= ''.&mt($item).'';
+ } elsif ($item eq 'Count') {
+ $output .= ' ';
} else {
- $descr = &unescape($courses{$course});
- }
- my $cleandesc=&HTML::Entities::encode($descr,'<>&"');
- $cleandesc=~s/'/\\'/g;
- my ($cdom,$cnum)=split(/\_/,$course);
-
- my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course});
- $owner = &unescape($owner);
- my ($ownername,$ownerdom);
- if ($owner =~ /:/) {
- ($ownername,$ownerdom) = split(/:/,$owner);
- } else {
- $ownername = $owner;
- if ($owner ne '') {
- $ownerdom = $cdom;
- }
+ $output .= &mt($item);
}
- my %ownernames;
- if ($ownername ne '' && $ownerdom ne '') {
- %ownernames = &Apache::loncommon::getnames($ownername,$ownerdom);
+ $output .= ' | ';
+ }
+ if ($knownuser) {
+ if ($details) {
+ $output .=
+ ''.&mt('Default Access Dates for Students').' | '.
+ ''.&mt('Student Counts').' | '.
+ ''.&mt('Auto-enrollment of
registered students').' | ';
+ } else {
+ $output .= ''.&mt('Details').' | ';
}
- $courseinfo{$course}{'cdom'} = $cdom;
- $courseinfo{$course}{'cnum'} = $cnum;
- $courseinfo{$course}{'code'} = $instcode;
- $courseinfo{$course}{'ownerlastname'} = $ownernames{'lastname'};
- $courseinfo{$course}{'title'} = $cleandesc;
- $courseinfo{$course}{'owner'} = $owner;
}
+ $output .= ''.&mt('Self-enroll (if permitted)').' | ';
+ &Apache::loncommon::end_data_table_header_row();
+ my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$details,
+ $usersections);
my %Sortby;
- foreach my $course (sort(keys(%courses))) {
+ foreach my $course (sort(keys(%{$courses}))) {
if ($env{'form.sortby'} eq 'code') {
push(@{$Sortby{$courseinfo{$course}{'code'}}},$course);
+ } elsif ($env{'form.sortby'} eq 'cats') {
+ push(@{$Sortby{$courseinfo{$course}{'categories'}}},$course);
} elsif ($env{'form.sortby'} eq 'owner') {
- push(@{$Sortby{$courseinfo{$course}{'ownerlastname'}}},$course);
+ push(@{$Sortby{$courseinfo{$course}{'ownerlastnames'}}},$course);
} else {
- push(@{$Sortby{$courseinfo{$course}{'title'}}},$course);
+ my $clean_title = $courseinfo{$course}{'title'};
+ $clean_title =~ s/\W+//g;
+ if ($clean_title eq '') {
+ $clean_title = $courseinfo{$course}{'title'};
+ }
+ push(@{$Sortby{$clean_title}},$course);
}
}
my @sorted_courses;
- if (($env{'form.sortby'} eq 'code') || ($env{'form.sortby'} eq 'owner')) {
+ if (($env{'form.sortby'} eq 'code') || ($env{'form.sortby'} eq 'owner') ||
+ ($env{'form.sortby'} eq 'cats')) {
@sorted_courses = sort(keys(%Sortby));
} else {
@sorted_courses = sort { lc($a) cmp lc($b) } (keys(%Sortby));
}
+ my $count = 1;
foreach my $item (@sorted_courses) {
foreach my $course (@{$Sortby{$item}}) {
$output.=&Apache::loncommon::start_data_table_row();
- $output.=&courseinfo_row($courseinfo{$course});
+ $output.=&courseinfo_row($courseinfo{$course},$knownuser,$details,
+ \$count,$now,$course,$trails,$allitems);
$output.=&Apache::loncommon::end_data_table_row();
}
}
@@ -374,117 +824,254 @@ sub print_course_listing {
return $output;
}
-sub courseinfo_row {
- my ($info) = @_;
- my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$output);
- if (ref($info) eq 'HASH') {
- $cdom = $info->{'cdom'};
- $cnum = $info->{'cnum'};
- $title = $info->{'title'};
- $ownerlast = $info->{'ownerlastname'};
- $code = $info->{'code'};
- $owner = $info->{'owner'};
- } else {
- $output = ''.&mt('No information available for [_1].',
- $code).' | ';
- return $output;
+sub build_courseinfo_hash {
+ my ($courses,$knownuser,$details,$usersections) = @_;
+ my %courseinfo;
+ my $now = time;
+ foreach my $course (keys(%{$courses})) {
+ my $descr;
+ if (ref($courses->{$course}) eq 'HASH') {
+ $descr = $courses->{$course}{'description'};
+ }
+ my $cleandesc=&HTML::Entities::encode($descr,'<>&"');
+ $cleandesc=~s/'/\\'/g;
+ $cleandesc =~ s/^\s+//;
+ my ($cdom,$cnum)=split(/\_/,$course);
+ my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types,
+ $selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);
+ if (ref($courses->{$course}) eq 'HASH') {
+ $descr = $courses->{$course}{'description'};
+ $instcode = $courses->{$course}{'inst_code'};
+ $singleowner = $courses->{$course}{'owner'};
+ $ttype = $courses->{$course}{'type'};
+ $selfenroll_types = $courses->{$course}{'selfenroll_types'};
+ $selfenroll_start = $courses->{$course}{'selfenroll_start_date'};
+ $selfenroll_end = $courses->{$course}{'selfenroll_end_date'};
+ $categories = $courses->{$course}{'categories'};
+ push(@owners,$singleowner);
+ if (ref($courses->{$course}{'co-owners'}) eq 'ARRAY') {
+ foreach my $item (@{$courses->{$course}{'co-owners'}}) {
+ push(@owners,$item);
+ }
+ }
+ }
+ foreach my $owner (@owners) {
+ my ($ownername,$ownerdom) = @_;
+ if ($owner =~ /:/) {
+ ($ownername,$ownerdom) = split(/:/,$owner);
+ } else {
+ $ownername = $owner;
+ if ($owner ne '') {
+ $ownerdom = $cdom;
+ }
+ }
+ if ($ownername ne '' && $ownerdom ne '') {
+ my %namehash=&Apache::loncommon::getnames($ownername,$ownerdom);
+ $ownernames{$ownername.':'.$ownerdom} = \%namehash;
+ }
+ }
+ $courseinfo{$course}{'cdom'} = $cdom;
+ $courseinfo{$course}{'cnum'} = $cnum;
+ $courseinfo{$course}{'code'} = $instcode;
+ my @lastnames;
+ foreach my $owner (keys(%ownernames)) {
+ if (ref($ownernames{$owner}) eq 'HASH') {
+ push(@lastnames,$ownernames{$owner}{'lastname'});
+ }
+ }
+ $courseinfo{$course}{'ownerlastnames'} = join(', ',sort(@lastnames));
+ $courseinfo{$course}{'title'} = $cleandesc;
+ $courseinfo{$course}{'owner'} = $singleowner;
+ $courseinfo{$course}{'selfenroll_types'} = $selfenroll_types;
+ $courseinfo{$course}{'selfenroll_start'} = $selfenroll_start;
+ $courseinfo{$course}{'selfenroll_end'} = $selfenroll_end;
+ $courseinfo{$course}{'categories'} = $categories;
+
+ my %coursehash = &Apache::lonnet::dump('environment',$cdom,$cnum);
+ my @classids;
+ my @crosslistings;
+ my ($seclist,$numsec) =
+ &identify_sections($coursehash{'internal.sectionnums'});
+ if (ref($usersections) eq 'HASH') {
+ if (ref($usersections->{$course}) eq 'ARRAY') {
+ $seclist = join(', ',@{$usersections->{$course}});
+ }
+ }
+ $courseinfo{$course}{'seclist'} = $seclist;
+ my ($xlist_items,$numxlist) =
+ &identify_sections($coursehash{'internal.crosslistings'});
+ my $showsyllabus = 1; # default is to include a syllabus link
+ if (defined($coursehash{'showsyllabus'})) {
+ $showsyllabus = $coursehash{'showsyllabus'};
+ }
+ $courseinfo{$course}{'showsyllabus'} = $showsyllabus;
+ if (((defined($env{'form.coursenum'}) && ($cnum eq $env{'form.coursenum'}))) ||
+ ($knownuser && ($details == 1))) {
+ $courseinfo{$course}{'counts'} = &count_students($cdom,$cnum,$numsec);
+ $courseinfo{$course}{'autoenrollment'} =
+ &autoenroll_info(\%coursehash,$now,$seclist,$xlist_items,
+ $instcode,\@owners,$cdom,$cnum);
+
+ my $startaccess = '';
+ my $endaccess = '';
+ my $accessdates;
+ if ( defined($coursehash{'default_enrollment_start_date'}) ) {
+ $startaccess = &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_start_date'});
+ }
+ if ( defined($coursehash{'default_enrollment_end_date'}) ) {
+ $endaccess = &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_end_date'});
+ if ($coursehash{'default_enrollment_end_date'} == 0) {
+ $endaccess = &mt('No ending date');
+ }
+ }
+ if ($startaccess) {
+ $accessdates .= &mt('From: ').$startaccess.'
';
+ }
+ 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 .= '
'.&mt('Self-enrollers:').'
';
+ if ($selfenroll_start_access) {
+ $accessdates .= &mt('From: ').$selfenroll_start_access.'
';
+ }
+ if ($selfenroll_end_access) {
+ $accessdates .= &mt('To: ').$selfenroll_end_access.'
';
+ }
+ }
+ }
+ }
+ $courseinfo{$course}{'access'} = $accessdates;
+ }
+ if ($xlist_items eq '') {
+ $xlist_items = &mt('No');
+ }
+ $courseinfo{$course}{'xlist'} = $xlist_items;
}
- my %coursehash = &Apache::lonnet::dump('environment',$cdom,$cnum);
+ return %courseinfo;
+}
+
+sub count_students {
+ my ($cdom,$cnum,$numsec) = @_;
my $classlist = &Apache::loncoursedata::get_classlist($cdom,$cnum);
+ my %student_count = (
+ Active => 0,
+ Future => 0,
+ Expired => 0,
+ );
my %idx;
- my @classids;
- my @crosslistings;
$idx{'status'} = &Apache::loncoursedata::CL_STATUS();
my %status_title = &Apache::lonlocal::texthash(
Expired => 'Previous access',
Active => 'Current access',
Future => 'Future access',
);
- my %student_count = (
- Expired => 0,
- Active => 0,
- Future => 0,
- );
+
while (my ($student,$data) = each(%$classlist)) {
$student_count{$data->[$idx{'status'}]} ++;
}
- my $seclist = &identify_sections($coursehash{'internal.sectionnums'});
- my $xlist_items = &identify_sections($coursehash{'internal.crosslistings'});
- my $countslist;
- my $startaccess = '';
- my $endaccess = '';
- my $now;
- my ($accessdates,$autoenrolldates,$showsyllabus);
- if ( defined($coursehash{'default_enrollment_start_date'}) ) {
- $startaccess = &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_start_date'});
- }
- 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";
- }
- }
- if ($startaccess) {
- $accessdates .= &mt('From: ').$startaccess.'
';
- }
- if ($endaccess) {
- $accessdates .= &mt('To: ').$endaccess.'
';
- }
- $autoenrolldates = &mt('Not enabled');
- if (defined($coursehash{'internal.autoadds'}) && $coursehash{'internal.autoadds'} == 1) {
- my ($autostart,$autoend);
- if ( defined($coursehash{'internal.autostart'}) ) {
- $autostart = &Apache::lonlocal::locallocaltime($coursehash{'internal.autostart'});
- }
- if ( defined($coursehash{'internal.autoend'}) ) {
- $autoend = &Apache::lonlocal::locallocaltime($coursehash{'internal.autoend'});
- }
- if ($coursehash{'internal.autostart'} > $now) {
- if ($coursehash{'internal.autoend'} && $coursehash{'internal.autoend'} < $now) {
- $autoenrolldates = &mt('Not enabled');
- } else {
- my $valid_classes = &get_valid_classes($seclist,$xlist_items,
- $code,$owner,$cdom,$cnum);
- if ($valid_classes ne '') {
- $autoenrolldates = &mt('Not enabled
Starts: ').
- $autostart.'
'.$valid_classes;
- }
- }
- } else {
- if ($coursehash{'internal.autoend'} && $coursehash{'internal.autoend'} < $now) {
- $autoenrolldates = &mt('Not enabled
Ended: ').$autoend;
- } else {
- my $valid_classes = &get_valid_classes($seclist,$xlist_items,
- $code,$owner,$cdom,$cnum);
- if ($valid_classes ne '') {
- $autoenrolldates = &mt('Currently enabled
').
- $valid_classes;
- }
- }
- }
- }
- if (defined($coursehash{'showsyllabus'})) {
- $showsyllabus = $coursehash{'showsyllabus'};
- }
- foreach my $status ('Active','Future','Expired') {
+
+ my $countslist = &mt('[quant,_1,section]',$numsec).':
';
+ foreach my $status ('Active','Future') {
$countslist .= ''.$status_title{$status}.': '.
$student_count{$status}.'
';
}
- if ($xlist_items eq '') {
- $xlist_items = &mt('No');
+ return $countslist;
+}
+
+sub courseinfo_row {
+ my ($info,$knownuser,$details,$countref,$now,$course,$trails,$allitems) = @_;
+ my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$seclist,$xlist_items,
+ $accessdates,$showsyllabus,$counts,$autoenrollment,$output,$categories);
+ if (ref($info) eq 'HASH') {
+ $cdom = $info->{'cdom'};
+ $cnum = $info->{'cnum'};
+ $title = $info->{'title'};
+ $ownerlast = $info->{'ownerlastnames'};
+ $code = $info->{'code'};
+ $owner = $info->{'owner'};
+ $seclist = $info->{'seclist'};
+ $xlist_items = $info->{'xlist'};
+ $accessdates = $info->{'access'};
+ $counts = $info->{'counts'};
+ $autoenrollment = $info->{'autoenrollment'};
+ $showsyllabus = $info->{'showsyllabus'};
+ $categories = $info->{'categories'};
+ } else {
+ $output = ''.&mt('No information available for [_1].',
+ $code).' | ';
+ return $output;
}
- $output = ''.$coursehash{'internal.coursecode'}.' | '.
- ''.$seclist.' | '.
- ''.$xlist_items.' | '.
- ''.$title.' ';
+ $output .= ' | '.$$countref.' | ';
+ if ($env{'form.currcat_0'} eq 'instcode::0') {
+ $output .= ''.$code.' | ';
+ } else {
+ my ($categorylist,@cats);
+ if ($categories ne '') {
+ @cats = split('&',$categories);
+ }
+ if ((ref($trails) eq 'ARRAY') && (ref($allitems) eq 'HASH')) {
+ my @categories = map { $trails->[$allitems->{$_}]; } @cats;
+ $categorylist = join('
',@categories);
+ }
+ if ($categorylist eq '') {
+ $categorylist = ' ';
+ }
+ $output .= ''.$categorylist.' | ';
+ }
+ $output .= ''.$seclist.' | '.
+ ''.$xlist_items.' | '.
+ ''.$title.' ';
if ($showsyllabus) {
$output .= &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$cnum,$cdom);
+ } else {
+ $output .= ' ';
}
$output .= ' | '.
- ''.$ownerlast.' | '.
- ''.$countslist.' | '.
- ''.$accessdates.' | '.
- ''.$autoenrolldates.' | ';
+ ''.$ownerlast.' | ';
+ if ($knownuser) {
+ if ($details) {
+ $output .=
+ ''.$accessdates.' | '.
+ ''.$counts.' | '.
+ ''.$autoenrollment.' | ';
+ } else {
+ $output .= "".&mt('Show more details').' | ';
+ }
+ }
+ my $selfenroll;
+ if ($info->{'selfenroll_types'}) {
+ my $showstart = &Apache::lonlocal::locallocaltime($info->{'selfenroll_start'});
+ my $showend = &Apache::lonlocal::locallocaltime($info->{'selfenroll_end'});
+ if (($info->{'selfenroll_end'} > 0) && ($info->{'selfenroll_end'} > $now)) {
+ if (($info->{'selfenroll_start'} > 0) && ($info->{'selfenroll_start'} > $now)) {
+ $output .= ''.&mt('Starts: [_1]',''.$showstart.'').'
'.&mt('Ends: [_1]',''.$showend.'').' | ';
+ } else {
+ $output .= ''.&mt('Enroll in course').' | ';
+ }
+ $selfenroll = 1;
+ }
+ }
+ if (!$selfenroll) {
+ $output .= ' | ';
+ }
+ $$countref ++;
return $output;
}
@@ -507,20 +1094,21 @@ sub identify_sections {
}
@secnums = sort {$a <=> $b} @secnums;
my $seclist = join(', ',@secnums);
- return $seclist;
+ my $numsec = @secnums;
+ return ($seclist,$numsec);
}
sub get_valid_classes {
- my ($seclist,$xlist_items,$crscode,$owner,$cdom,$cnum) = @_;
+ my ($seclist,$xlist_items,$crscode,$owners,$cdom,$cnum) = @_;
my $response;
my %validations;
@{$validations{'sections'}} = ();
@{$validations{'xlists'}} = ();
my $totalitems = 0;
if ($seclist) {
- foreach my $sec (split(',',$seclist)) {
+ foreach my $sec (split(/, /,$seclist)) {
my $class = $crscode.$sec;
- if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+ if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owners,
$class) eq 'ok') {
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
push(@{$validations{'sections'}},$sec);
@@ -530,8 +1118,8 @@ sub get_valid_classes {
}
}
if ($xlist_items) {
- foreach my $item (split(',',$xlist_items)) {
- if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+ foreach my $item (split(/, /,$xlist_items)) {
+ if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owners,
$item) eq 'ok') {
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
push(@{$validations{'xlists'}},$item);
@@ -543,11 +1131,11 @@ sub get_valid_classes {
if ($totalitems > 0) {
if (@{$validations{'sections'}}) {
$response = &mt('Sections: ').
- join(',',@{$validations{'sections'}}).'
';
+ join(', ',@{$validations{'sections'}}).'
';
}
if (@{$validations{'xlists'}}) {
$response .= &mt('Courses: ').
- join(',',@{$validations{'xlists'}});
+ join(', ',@{$validations{'xlists'}});
}
}
return $response;
@@ -645,39 +1233,44 @@ function courseSet() {
}
}
else {
- for (var k=0; k -1) {
+ for (var k=0; k{'internal.autoadds'}) && $coursehash->{'internal.autoadds'} == 1) {
+ my ($autostart,$autoend);
+ if ( defined($coursehash->{'internal.autostart'}) ) {
+ $autostart = &Apache::lonlocal::locallocaltime($coursehash->{'internal.autostart'});
+ }
+ if ( defined($coursehash->{'internal.autoend'}) ) {
+ $autoend = &Apache::lonlocal::locallocaltime($coursehash->{'internal.autoend'});
+ }
+ if ($coursehash->{'internal.autostart'} > $now) {
+ if ($coursehash->{'internal.autoend'} && $coursehash->{'internal.autoend'} < $now) {
+ $autoenrolldates = &mt('Not enabled');
+ } else {
+ my $valid_classes =
+ &get_valid_classes($seclist,$xlist_items,$code,
+ $owners,$cdom,$cnum);
+ if ($valid_classes ne '') {
+ $autoenrolldates = &mt('Not enabled
Starts: ').
+ $autostart.'
'.$valid_classes; }
+ }
+ } else {
+ if ($coursehash->{'internal.autoend'} && $coursehash->{'internal.autoend'} < $now) {
+ $autoenrolldates = &mt('Not enabled
Ended: ').$autoend;
+ } else {
+ my $valid_classes = &get_valid_classes($seclist,$xlist_items,
+ $code,$owners,$cdom,$cnum);
+ if ($valid_classes ne '') {
+ $autoenrolldates = &mt('Currently enabled
').
+ $valid_classes;
+ }
+ }
+ }
+ }
+ return $autoenrolldates;
+}
+
+sub user_is_known {
+ my $known = 0;
+ if ($env{'user.name'} ne '' && $env{'user.name'} ne 'public'
+ && $env{'user.domain'} ne '' && $env{'user.domain'} ne 'public') {
+ $known = 1;
+ }
+ return $known;
+}
+
1;