loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/coursecatalog.pm between versions 1.75 and 1.87

version 1.75, 2013/11/20 18:40:09	version 1.87, 2015/05/19 18:07:35
Line 38 use Apache::lonlocal;	Line 38 use Apache::lonlocal;
use Apache::courseclassifier;	use Apache::courseclassifier;
use Apache::lonacc;	use Apache::lonacc;
use LONCAPA;	use LONCAPA;
	use LONCAPA::lonauthcgi;

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 76 sub handler {	Line 77 sub handler {
my $domdesc = &Apache::lonnet::domain($codedom,'description');	my $domdesc = &Apache::lonnet::domain($codedom,'description');
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();

if ($env{'form.catalog_maxdepth'} ne '') {
$env{'form.catalog_maxdepth'} =~ s{\D}{}g;
}

my %domconfig =	my %domconfig =
&Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);	&Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);
my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash);	my $knownuser = &user_is_known();
	my $canviewall = &canview_all();

	my ($cathash,$cattype);
if (ref($domconfig{'coursecategories'}) eq 'HASH') {	if (ref($domconfig{'coursecategories'}) eq 'HASH') {
$cathash = $domconfig{'coursecategories'}{'cats'};	$cathash = $domconfig{'coursecategories'}{'cats'};
	if ($knownuser \|\| $canviewall) {
	$cattype = $domconfig{'coursecategories'}{'auth'};
	} else {
	$cattype = $domconfig{'coursecategories'}{'unauth'};
	}
	if ($cattype eq '') {
	$cattype = 'std';
	}
} else {	} else {
$cathash = {};	$cathash = {};
	$cattype = 'std';
	}
	if ($cattype eq 'none') {
	$r->print(&Apache::loncommon::start_page('Course/Community Catalog'));
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursecatalog",
	text=>"Course/Community Catalog"});
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
	if ($knownuser \|\| $canviewall) {
	$r->print('<div>'.&mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',$domdesc).'</div>');
	} else {
	if ($domconfig{'coursecategories'}{'auth'} eq 'none') {
	$r->print('<div>'.&mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',$domdesc).'</div>');
	} else {
	$r->print('<div>'.&mt('The catalog of LON-CAPA courses/communities provided for: "[_1]" is only available to users who are logged in.',$domdesc).'</div>');
	}
	}
	$r->print(&Apache::loncommon::end_page());
	return OK;
	}

	my $cnum;
	if ($cattype eq 'codesrch') {
	my ($uniquecode,$codemsg,$brtext);
	if ($env{'form.uniquecode'}) {
	$uniquecode = $env{'form.uniquecode'};
	$uniquecode =~ s/^\s+\|\s+$//g;
	}
	my $js = '<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	&courselink_javascript()."\n".
	'// ]]>'."\n".
	'</script>'."\n";
	$r->print(&Apache::loncommon::start_page('Search for a Course/Community',$js));
	if ($uniquecode =~ /^\w{6}$/) {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursecatalog",
	text=>"Course/Community Catalog"});
	$brtext = 'Search Result';
	} else {
	$brtext = 'Course/Community Catalog';
	}
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursecatalog",
	text=>"$brtext"});
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
	$r->print(&coursesearch($codedom,$domdesc,$uniquecode));
	if ($uniquecode =~ /^\w{6}$/) {
	$r->print('<hr />');
	my $confname = $codedom.'-domainconfig';
	my %codes = &Apache::lonnet::get('uniquecodes',[$uniquecode],$codedom,$confname);
	if ($codes{$uniquecode}) {
	$cnum = $codes{$uniquecode};
	my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.',
	$cnum,undef,undef,'.',1);
	if (keys(%courses)) {
	$env{'form.coursenum'} = $cnum;
	my %courseinfo = &build_courseinfo_hash(\%courses,$knownuser,$codedom,$canviewall);
	undef($env{'form.coursenum'});
	if (ref($courseinfo{$codedom.'_'.$cnum}) eq 'HASH') {
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	my @cols = ('title','ownerlastnames','seclist','access');
	my %lt = &Apache::lonlocal::texthash(
	title => 'Title',
	ownerlastnames => 'Owner & Co-owner(s)',
	seclist => 'Sections',
	access => 'Default Access Dates for Students',
	);
	my @shown;
	foreach my $item (@cols) {
	if ($courseinfo{$codedom.'_'.$cnum}{$item}) {
	push(@shown,$item);
	}
	}
	my $num = 0;
	foreach my $item (@shown) {
	$num ++;
	$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}).
	$courseinfo{$codedom.'_'.$cnum}{$item});
	if ($item eq 'title') {
	if ($courseinfo{$codedom.'_'.$cnum}{'showsyllabus'}) {
	$r->print(' <font size="-2">'.
	'<a href="javascript:ToSyllabus('."'$codedom','$cnum'".')">'.
	&mt('Syllabus').'</a></font>');
	}
	}
	my $arg = ( $num == scalar(@shown) ? 1 : '' );
	$r->print(&Apache::lonhtmlcommon::row_closure($arg));
	}
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	my $selfenroll = &selfenroll_status($courseinfo{$codedom.'_'.$cnum},$codedom.'_'.$cnum);
	if ($selfenroll) {
	$r->print('<br />'.$selfenroll);
	}
	$r->print('<form name="linklaunch" method="post" action="">'."\n".
	'<input type="hidden" name="backto" value="coursecatalog" />'."\n".
	'<input type="hidden" name="courseid" value="" />'."\n".
	'</form>'."\n");

	} else {
	$codemsg = &mt('Code matched, but course ID to which this mapped is invalid.');
	}
	} else {
	$codemsg = &mt('Code matched, but course ID to which this mapped is invalid.');
	}
	} else {
	$codemsg = &mt('No match');
	}
	}
	$r->print('<br />'.&Apache::loncommon::end_page());
	return OK;
	} else {
	if ($env{'form.coursenum'}) {
	$cnum = $env{'form.coursenum'};
	}
	}

	if ($env{'form.catalog_maxdepth'} ne '') {
	$env{'form.catalog_maxdepth'} =~ s{\D}{}g;
}	}
my $subcats;
	my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$subcats);
if ($env{'form.withsubcats'}) {	if ($env{'form.withsubcats'}) {
$subcats = \%subcathash;	$subcats = \%subcathash;
}	}
&Apache::loncommon::extract_categories($cathash,\@cats,\@trails,\%allitems,	&Apache::loncommon::extract_categories($cathash,\@cats,\@trails,\%allitems,
\%idx,\@jsarray,$subcats);	\%idx,\@jsarray,$subcats);
my ($numtitles,@codetitles);	my ($numtitles,@codetitles);
if ($env{'form.coursenum'} ne '' && &user_is_known()) {	if (($env{'form.coursenum'} ne '') && ($knownuser)) {
&course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles);	&course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles);
} else {	} else {
my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats);	my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats);
Line 123 function setCourseId(caller) {	Line 251 function setCourseId(caller) {

ENDSCRIPT	ENDSCRIPT
$catjs .= &courselink_javascript();	$catjs .= &courselink_javascript();
if (&user_is_dc($codedom)) {	if (&user_is_dc($codedom) \|\| $canviewall) {
$catjs .= <<ENDTOGGJS	$catjs .= <<ENDTOGGJS

function toggleStatuses() {	function toggleStatuses() {
Line 154 ENDTOGGJS	Line 282 ENDTOGGJS
}	}
if ($env{'form.currcat_0'} eq 'instcode::0') {	if ($env{'form.currcat_0'} eq 'instcode::0') {
$numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc,	$numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc,
$catlinks,$catjs,\@codetitles);	$catlinks,$catjs,\@codetitles,$cattype,$canviewall);
if ($env{'form.state'} eq 'listing') {	if ($env{'form.state'} eq 'listing') {
$r->print(&print_course_listing($codedom,$numtitles,undef,undef,undef,	$r->print(&print_course_listing($codedom,$numtitles,undef,undef,undef,
\@codetitles));	\@codetitles,$canviewall));
}	}
} else {	} else {
my (%add_entries);	my (%add_entries);
Line 177 function check_selected() {	Line 305 function check_selected() {
ENDJS	ENDJS
}	}
$catjs = '<script type="text/javascript">'."\n".$catjs."\n".'</script>';	$catjs = '<script type="text/javascript">'."\n".$catjs."\n".'</script>';
&cat_header($r,$codedom,$catjs,\%add_entries,$catlinks);	&cat_header($r,$codedom,$catjs,\%add_entries,$catlinks,undef,$cattype);
if ($env{'form.currcat_0'} ne '') {	if ($env{'form.currcat_0'} ne '') {
$r->print('<form name="'.$formname.	$r->print('<form name="'.$formname.
'" method="post" action="/adm/coursecatalog">'.	'" method="post" action="/adm/coursecatalog">'.
&additional_filters($codedom,$has_subcats)."\n");	&additional_filters($codedom,$has_subcats,$canviewall)."\n");
$r->print('<input type="hidden" name="catalog_maxdepth" value="'.	$r->print('<input type="hidden" name="catalog_maxdepth" value="'.
$deeper.'" />'."\n");	$deeper.'" />'."\n");
for (my $i=0; $i<$deeper; $i++) {	for (my $i=0; $i<$deeper; $i++) {
Line 202 ENDJS	Line 330 ENDJS
$display_button.'" /></form><br /><br />');	$display_button.'" /></form><br /><br />');
}	}
if ($env{'form.state'} eq 'listing') {	if ($env{'form.state'} eq 'listing') {
$r->print(&print_course_listing($codedom,undef,\@trails,\%allitems,$subcats,\@codetitles));	$r->print(&print_course_listing($codedom,undef,\@trails,\%allitems,$subcats,\@codetitles,
	$canviewall));
}	}
}	}
}	}
Line 236 sub course_details {	Line 365 sub course_details {
({href=>"javascript:document.$formname.submit()",	({href=>"javascript:document.$formname.submit()",
text=>$brtextone},	text=>$brtextone},
{text=>$brtexttwo});	{text=>$brtexttwo});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));	$r->print(
$r->print('<br />');	&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog').
if ($env{'form.currcat_0'} eq 'communities::0') {	'<h2>'.
$r->print(&mt('Detailed community information:'));	(($env{'form.currcat_0'} eq 'communities::0') ?
} else {	&mt('Detailed community information:') :
$r->print(&mt('Detailed course information:'));	&mt('Detailed course information:')).
}	'</h2>'.
$r->print('<br /><br />'.	&print_course_listing($codedom,undef,$trails,$allitems,undef,$codetitles).
&print_course_listing($codedom,undef,$trails,$allitems,undef,$codetitles).	'<br />'.
'<br /><br />');	'<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
$r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.	&Apache::lonhtmlcommon::actionbox([
'<a href = "javascript:document.coursecatalog.submit()">');	'<a href = "javascript:document.coursecatalog.submit()">'.
if ($env{'form.currcat_0'} eq 'communities::0') {	(($env{'form.currcat_0'} eq 'communities::0') ?
$r->print(&mt('Back to community listing'));	&mt('Back to community listing') : &mt('Back to course listing')).
} else {	'</a>'
$r->print(&mt('Back to course listing'));	]).
}	&Apache::lonhtmlcommon::echo_form_input(['coursenum','catalogfilter',
$r->print('</a>'.	'showdetails','courseid']).
&Apache::lonhtmlcommon::echo_form_input(['coursenum','catalogfilter',	'</form>');
'showdetails','courseid']).'</form>');
return;	return;
}	}

	sub coursesearch {
	my ($codedom,$domdesc,$uniquecode) = @_;
	my %lt = &Apache::lonlocal::texthash (
	crlk => 'Course look-up',
	code => 'Code',
	ifyo => 'Enter the course code (six letters and numbers)',
	srch => 'Find course',
	);
	return <<"END";
	<h3>$lt{'crlk'} ($domdesc)</h3>
	$lt{'ifyo'}
	<form name="searchbycode" method="post" action="">
	<span class="LC_nobreak">
	<input type="text" value="$uniquecode" size="6" name="uniquecode" />
	<br />
	<input type="submit" value="$lt{'srch'}" name="srch" /></span>
	</form>
	END
	}

sub courselink_javascript {	sub courselink_javascript {
return <<"END";	return <<"END";

Line 286 END	Line 434 END
}	}

sub instcode_course_selector {	sub instcode_course_selector {
my ($r,$codedom,$formname,$domdesc,$catlinks,$catjs,$codetitles) = @_;	my ($r,$codedom,$formname,$domdesc,$catlinks,$catjs,$codetitles,$cattype,$canviewall) = @_;
my %coursecodes = ();	my %coursecodes = ();
my %codes = ();	my %codes = ();
my %cat_titles = ();	my %cat_titles = ();
Line 299 sub instcode_course_selector {	Line 447 sub instcode_course_selector {
my ($jscript,$totcodes,$numtitles,$lasttitle) =	my ($jscript,$totcodes,$numtitles,$lasttitle) =
&Apache::courseclassifier::instcode_selectors_data($codedom,$formname,	&Apache::courseclassifier::instcode_selectors_data($codedom,$formname,
\%cat_items,$codetitles,\%cat_titles,\%cat_order);	\%cat_items,$codetitles,\%cat_titles,\%cat_order);
my $js = '<script type"text/javascript">'."\n$jscript\n$catjs\n".	my $js = '<script type="text/javascript">'."\n".
'</script>';	'// <![CDATA['."\n".
	"$jscript\n$catjs\n".
	'// ]]>'."\n".
	'</script>';
if ($totcodes) {	if ($totcodes) {
if (($env{'form.state'} eq 'listing') && ($numtitles > 0)) {	if (($env{'form.state'} eq 'listing') && ($numtitles > 0)) {
$add_entries{'onLoad'} = 'setElements();';	$add_entries{'onload'} = 'setElements();';
}	}
if (&user_is_dc($codedom)) {	if (&user_is_dc($codedom) \|\| $canviewall) {
$add_entries{'onLoad'} .= ' toggleStatuses();toggleWasActive();'	$add_entries{'onload'} .= ' toggleStatuses();toggleWasActive();'
}	}
&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);	&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles,$cattype);
my $cat_maxdepth = $env{'form.catalog_maxdepth'};	my $cat_maxdepth = $env{'form.catalog_maxdepth'};
$r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.	$r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
'<input type="hidden" name="catalog_maxdepth" value="'.$cat_maxdepth.'" />'."\n".	'<input type="hidden" name="catalog_maxdepth" value="'.$cat_maxdepth.'" />'."\n".
'<input type="hidden" name="showdom" value="'.$env{'form.showdom'}.'" />'."\n".	'<input type="hidden" name="showdom" value="'.$env{'form.showdom'}.'" />'."\n".
'<input type="hidden" name="currcat_0" value="instcode::0" />'.	'<input type="hidden" name="currcat_0" value="instcode::0" />'.
&additional_filters($codedom));	&additional_filters($codedom,undef,$canviewall));
if ($numtitles > 0) {	if ($numtitles > 0) {
$r->print('<b>'.&mt('Choose which course(s) to list.').'</b><br />'.	$r->print('<b>'.&mt('Choose which course(s) to list.').'</b><br />'.
&Apache::courseclassifier::build_instcode_selectors($numtitles,	&Apache::courseclassifier::build_instcode_selectors($numtitles,
Line 328 sub instcode_course_selector {	Line 479 sub instcode_course_selector {
'<input type="hidden" name="numtitles" value="'.$numtitles.	'<input type="hidden" name="numtitles" value="'.$numtitles.
'" /></form><br /><br />');	'" /></form><br /><br />');
} else {	} else {
$js = '<script type"text/javascript">'."\n$catjs\n".'</script>';	$js = '<script type="text/javascript">'."\n".
&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);	'// <![CDATA['."\n".
	"$catjs\n".
	'// ]]>'."\n".
	'</script>';
	&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles,$cattype);
my $cat_maxdepth = $env{'form.catalog_maxdepth'};	my $cat_maxdepth = $env{'form.catalog_maxdepth'};
$r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.	$r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
'<input type="hidden" name="catalog_maxdepth" value="'.$cat_maxdepth.'" />'.	'<input type="hidden" name="catalog_maxdepth" value="'.$cat_maxdepth.'" />'.
Line 341 sub instcode_course_selector {	Line 496 sub instcode_course_selector {
}	}

sub cat_header {	sub cat_header {
my ($r,$codedom,$js,$add_entries,$catlinks,$numtitles) = @_;	my ($r,$codedom,$js,$add_entries,$catlinks,$numtitles,$cattype) = @_;
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Course/Community Catalog',$js,	&Apache::loncommon::start_page('Course/Community Catalog',$js,
{ 'add_entries' => $add_entries, });	{ 'add_entries' => $add_entries, });
Line 366 sub cat_header {	Line 521 sub cat_header {
text=>"Course/Community Catalog"});	text=>"Course/Community Catalog"});
}	}
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
my $onchange = 'this.form.submit()';	if ($cattype eq 'std') {
$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.	my $onchange = 'this.form.submit()';
'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.	$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));	'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
if (!$onchange) {	&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
	if (!$onchange) {
$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');	$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
	}
	$r->print('</td></tr></table></form>');
}	}
$r->print('</td></tr></table></form>'.	$r->print('<form name="coursecats" method="post" action="/adm/coursecatalog"'.
'<form name="coursecats" method="post" action="/adm/coursecatalog"'.
' onsubmit="return check_selected();">'.	' onsubmit="return check_selected();">'.
'<table border="0"><tr>'.$catlinks.'</tr></table></form>');	'<table border="0"><tr>'.$catlinks.'</tr></table></form>');
return;	return;
Line 529 sub get_depth_values {	Line 686 sub get_depth_values {
}	}

sub additional_filters {	sub additional_filters {
my ($codedom,$has_subcats) = @_;	my ($codedom,$has_subcats,$canviewall) = @_;
my $is_dc = &user_is_dc($codedom);	my $is_dc = &user_is_dc($codedom);
my $output = '<div class="LC_left_float">';	my $output = '<div class="LC_left_float">';
if ($is_dc) {	if ($is_dc \|\| $canviewall) {
$output .= '<fieldset><legend>'.&mt('Options').'</legend>';	$output .= '<fieldset><legend>'.&mt('Options').'</legend>';
}	}
$output .= '<table><tr><td valign="top">';	$output .= '<table><tr><td valign="top">';
Line 573 sub additional_filters {	Line 730 sub additional_filters {
'<label><input type="checkbox" name="showselfenroll" value="1" '.	'<label><input type="checkbox" name="showselfenroll" value="1" '.
$show_selfenroll_status.'/>'.$selfenroll_text.	$show_selfenroll_status.'/>'.$selfenroll_text.
'</label></span><br />';	'</label></span><br />';
if ($is_dc) {	if ($is_dc \|\| $canviewall) {
my ($titlesref,$orderref) = &get_statustitles('filters');	my ($titlesref,$orderref) = &get_statustitles('filters');
my $showdetails_status;	my $showdetails_status;
if ($env{'form.showdetails'}) {	if ($env{'form.showdetails'}) {
Line 604 sub additional_filters {	Line 761 sub additional_filters {
$details_text = &mt('Show full details for each course ([_1] only)',$dc_title);	$details_text = &mt('Show full details for each course ([_1] only)',$dc_title);
$hidden_text = &mt('Include courses set to be hidden from catalog ([_1] only)',$dc_title);	$hidden_text = &mt('Include courses set to be hidden from catalog ([_1] only)',$dc_title);
}	}
	if ($is_dc) {
	$output .= '<span class="LC_nobreak">'.
	'<label><input type="checkbox" name="showhidden" value="1" '.
	$showhidden_status.'/>'.$hidden_text.
	'</label></span><br />'."\n";
	}
$output .= '<span class="LC_nobreak">'.	$output .= '<span class="LC_nobreak">'.
'<label><input type="checkbox" name="showhidden" value="1" '.
$showhidden_status.'/>'.$hidden_text.
'</label></span><br />'."\n".
'<span class="LC_nobreak">'.
'<label><input type="checkbox" name="showdetails" value="1" '.	'<label><input type="checkbox" name="showdetails" value="1" '.
$showdetails_status.'onclick="toggleStatuses();" />'.	$showdetails_status.'onclick="toggleStatuses();" />'.
$details_text.'</label></span></td>'."\n".	$details_text.'</label></span></td>'."\n".
Line 643 sub additional_filters {	Line 802 sub additional_filters {
date => 'immediately prior to specific date:',	date => 'immediately prior to specific date:',
);	);
my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts');	my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts');
$output .= '<span id="choosewasacctext">';	$output .= '<span id="choosewasacctext" class="LC_nobreak">';
if ($checked) {	if ($checked) {
$output .= &get_wasactive_text();	$output .= &get_wasactive_text();
}	}
Line 714 sub user_is_dc {	Line 873 sub user_is_dc {
return;	return;
}	}

	sub canview_all {
	my $canviewall = 0;
	my $page = 'coursecatalog';
	if (&LONCAPA::lonauthcgi::can_view($page)) {
	$canviewall = 1;
	} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) {
	$canviewall= 1;
	}
	return $canviewall;
	}

sub get_statustitles {	sub get_statustitles {
my ($caller) = @_;	my ($caller) = @_;
my @status_order = ('Active','Future','Previous');	my @status_order = ('Active','Future','Previous');
Line 807 sub search_courselist {	Line 977 sub search_courselist {
}	}

sub print_course_listing {	sub print_course_listing {
my ($domain,$numtitles,$trails,$allitems,$subcats,$codetitles) = @_;	my ($domain,$numtitles,$trails,$allitems,$subcats,$codetitles,$canviewall) = @_;
my $output;	my $output;
my %courses;	my %courses;
my $knownuser = &user_is_known();	my $knownuser = &user_is_known();
	my $canviewall = &canview_all();
my $details = $env{'form.coursenum'};	my $details = $env{'form.coursenum'};
if (&user_is_dc($domain)) {	if (&user_is_dc($domain) \|\| $canviewall) {
if ($env{'form.showdetails'}) {	if ($env{'form.showdetails'}) {
$details = 1;	$details = 1;
}	}
Line 822 sub print_course_listing {	Line 993 sub print_course_listing {
$env{'form.coursenum'},	$env{'form.coursenum'},
undef,undef,'.',1);	undef,undef,'.',1);
if (keys(%courses) == 0) {	if (keys(%courses) == 0) {
	$output = '<p class="LC_error">';
if ($env{'form.currcat_0'} eq 'communities::0') {	if ($env{'form.currcat_0'} eq 'communities::0') {
$output .= &mt('The courseID provided does not match a community in this domain.');	$output .= &mt('The courseID provided does not match a community in this domain.');
} else {	} else {
$output .= &mt('The courseID provided does not match a course in this domain.');	$output .= &mt('The courseID provided does not match a course in this domain.');
}	}
	$output .= '</p>';
return $output;	return $output;
}	}
} else {	} else {
Line 836 sub print_course_listing {	Line 1009 sub print_course_listing {
%courses = &search_courselist($domain,$subcats);	%courses = &search_courselist($domain,$subcats);
}	}
if (keys(%courses) == 0) {	if (keys(%courses) == 0) {
	$output = '<p class="LC_info">';
if ($env{'form.currcat_0'} eq 'communities::0') {	if ($env{'form.currcat_0'} eq 'communities::0') {
$output =	$output .= &mt('No communities match the criteria you selected.');
'<p class="LC_info">'
.&mt('No communities match the criteria you selected.')
.'</p>';
} else {	} else {
$output =	$output .= &mt('No courses match the criteria you selected.');
'<p class="LC_info">'
.&mt('No courses match the criteria you selected.')
.'</p>';
}	}
	$output .= '</p>';
return $output;	return $output;
}	}
if (($knownuser) && (!$env{'form.showdetails'}) && (!&user_is_dc($domain))) {	if (($knownuser) && (!$env{'form.showdetails'}) && (!&user_is_dc($domain)) && (!$canviewall)) {
$output = '<b>'.&mt('Note for students:').'</b> '	$output = '<b>'.&mt('Note for students:').'</b> '
.&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.')	.&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.')
.'<br /><br />';	.'<br /><br />';
}	}
}	}
my $now = time;	my $now = time;
my %domconfig =
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
$output .= &construct_data_table($knownuser,$domain,\%courses,$details,undef,	$output .= &construct_data_table($knownuser,$domain,\%courses,$details,undef,
$now,\%domconfig,$trails,$allitems);	$now,$trails,$allitems,$canviewall);
$output .= "\n".'<form name="linklaunch" method="post" action="">'.	$output .= "\n".'<form name="linklaunch" method="post" action="">'.
'<input type="hidden" name="backto" value="coursecatalog" />'.	'<input type="hidden" name="backto" value="coursecatalog" />'.
'<input type="hidden" name="courseid" value="" />'.	'<input type="hidden" name="courseid" value="" />'.
Line 868 sub print_course_listing {	Line 1035 sub print_course_listing {
}	}

sub construct_data_table {	sub construct_data_table {
my ($knownuser,$domain,$courses,$details,$usersections,$now,$domconfig,	my ($knownuser,$domain,$courses,$details,$usersections,$now,$trails,$allitems,$canviewall) = @_;
$trails,$allitems) = @_;
my %sortname;	my %sortname;
if (($details eq '') \|\| ($env{'form.showdetails'})) {	if (($details eq '') \|\| ($env{'form.showdetails'})) {
$sortname{'Code'} = 'code';	$sortname{'Code'} = 'code';
Line 901 sub construct_data_table {	Line 1067 sub construct_data_table {
$output .= '</th>';	$output .= '</th>';
}	}
my (@fields,%fieldtitles,$wasactiveon);	my (@fields,%fieldtitles,$wasactiveon);
if ($knownuser) {	if ($knownuser \|\| ($canviewall && $details)) {
if ($details) {	if ($details) {
if ($env{'form.currcat_0'} eq 'communities::0') {	if ($env{'form.currcat_0'} eq 'communities::0') {
$output .= '<th>'.&mt('Default Access Dates for Members').'</th>'.	$output .= '<th>'.&mt('Default Access Dates for Members').'</th>'.
Line 914 sub construct_data_table {	Line 1080 sub construct_data_table {
}	}
my ($titlesref,$orderref) = &get_statustitles();	my ($titlesref,$orderref) = &get_statustitles();
my @statuses;	my @statuses;
if (&user_is_dc($domain)) {	if (&user_is_dc($domain) \|\| $canviewall) {
@statuses = &Apache::loncommon::get_env_multiple('form.showcounts');	@statuses = &Apache::loncommon::get_env_multiple('form.showcounts');
if (grep(/^Previous$/,@statuses)) {	if (grep(/^Previous$/,@statuses)) {
if ($env{'form.wasactive'} eq 'date') {	if ($env{'form.wasactive'} eq 'date') {
Line 951 sub construct_data_table {	Line 1117 sub construct_data_table {
$output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>';	$output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>';
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
my (%numbers,%creditsum);	my (%numbers,%creditsum);
my ($showcredits,$defofficial,$defunofficial);	my ($showcredits,$defofficial,$defunofficial,$deftextbook);
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);	my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
unless ($env{'form.currcat_0'} eq 'communities::0') {	unless ($env{'form.currcat_0'} eq 'communities::0') {
if ($domdefaults{'officialcredits'} \|\| $domdefaults{'unofficialcredits'}) {	if ($domdefaults{'officialcredits'} \|\| $domdefaults{'unofficialcredits'} \|\| $domdefaults{'textbookcredits'}) {
$showcredits = 1;	$showcredits = 1;
$defofficial = $domdefaults{'officialcredits'};	$defofficial = $domdefaults{'officialcredits'};
$defunofficial = $domdefaults{'unofficialcredits'};	$defunofficial = $domdefaults{'unofficialcredits'};
	$deftextbook = $domdefaults{'textbookcredits'};
}	}
}	}
my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$details,	my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$canviewall,$details,
$usersections,\@fields,\%fieldtitles,	$usersections,\@fields,\%fieldtitles,
$wasactiveon,\%numbers,\%creditsum,	$wasactiveon,\%numbers,\%creditsum,
$showcredits,$defofficial,$defunofficial);	$showcredits,$defofficial,$defunofficial,$deftextbook);
my %Sortby;	my %Sortby;
foreach my $course (sort(keys(%{$courses}))) {	foreach my $course (sort(keys(%{$courses}))) {
if ($env{'form.sortby'} eq 'code') {	if ($env{'form.sortby'} eq 'code') {
Line 994 sub construct_data_table {	Line 1161 sub construct_data_table {
foreach my $course (@{$Sortby{$item}}) {	foreach my $course (@{$Sortby{$item}}) {
$output.=&Apache::loncommon::start_data_table_row();	$output.=&Apache::loncommon::start_data_table_row();
$output.=&courseinfo_row($courseinfo{$course},$knownuser,$details,	$output.=&courseinfo_row($courseinfo{$course},$knownuser,$details,
\$count,$now,$course,$trails,$allitems,\%numbers);	\$count,$now,$course,$trails,$allitems,\%numbers,$canviewall);
$output.=&Apache::loncommon::end_data_table_row();	$output.=&Apache::loncommon::end_data_table_row();
}	}
}	}
if (($knownuser) && ($count > 1) && $env{'form.showdetails'}) {	if (($knownuser \|\| $canviewall) && ($count > 1) && $env{'form.showdetails'}) {
if (&user_is_dc($domain)) {	if (&user_is_dc($domain) \|\| $canviewall) {
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
'Active' => 'Total current students',	'Active' => 'Total current students',
'Future' => 'Total future students',	'Future' => 'Total future students',
Line 1058 sub construct_data_table {	Line 1225 sub construct_data_table {
}	}

sub build_courseinfo_hash {	sub build_courseinfo_hash {
my ($courses,$knownuser,$domain,$details,$usersections,$fields,$fieldtitles,	my ($courses,$knownuser,$domain,$canviewall,$details,$usersections,$fields,$fieldtitles,
$wasactiveon,$numbers,$creditsum,$showcredits,$defofficial,$defunofficial) = @_;	$wasactiveon,$numbers,$creditsum,$showcredits,$defofficial,$defunofficial) = @_;
my %courseinfo;	my %courseinfo;
my $now = time;	my $now = time;
my $gettotals;	my $gettotals;
if ((keys(%{$courses}) > 0) && (&user_is_dc($domain)) && ($details)) {	if ((keys(%{$courses}) > 0) && (&user_is_dc($domain) \|\| $canviewall) && ($details)) {
$gettotals = 1;	$gettotals = 1;
}	}
my (%uniquecodes,$nocodes,$defcreds);	my (%uniquecodes,$nocodes,$defcreds);
Line 1159 sub build_courseinfo_hash {	Line 1326 sub build_courseinfo_hash {
$defcreds = $courseinfo{$course}{'defaultcredits'};	$defcreds = $courseinfo{$course}{'defaultcredits'};
}	}
if (((defined($env{'form.coursenum'}) && ($cnum eq $env{'form.coursenum'}))) \|\|	if (((defined($env{'form.coursenum'}) && ($cnum eq $env{'form.coursenum'}))) \|\|
($knownuser && ($details == 1))) {	(($knownuser \|\| $canviewall) && ($details == 1))) {
my $milestone;	my $milestone;
if ($wasactiveon eq 'accessend') {	if ($wasactiveon eq 'accessend') {
if ($coursehash{'default_enrollment_end_date'}) {	if ($coursehash{'default_enrollment_end_date'}) {
Line 1312 sub count_students {	Line 1479 sub count_students {
}	}

sub courseinfo_row {	sub courseinfo_row {
my ($info,$knownuser,$details,$countref,$now,$course,$trails,$allitems,$numbers) = @_;	my ($info,$knownuser,$details,$countref,$now,$course,$trails,$allitems,$numbers,$canviewall) = @_;
my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$seclist,$xlist_items,	my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$seclist,$xlist_items,
$accessdates,$showsyllabus,$counts,$autoenrollment,$output,$categories);	$accessdates,$showsyllabus,$counts,$autoenrollment,$output,$categories);
if (ref($info) eq 'HASH') {	if (ref($info) eq 'HASH') {
Line 1361 sub courseinfo_row {	Line 1528 sub courseinfo_row {
}	}
$output .= '</font></td>'.	$output .= '</font></td>'.
'<td>'.$ownerlast.'</td>';	'<td>'.$ownerlast.'</td>';
if ($knownuser) {	if (($knownuser) \|\| ($canviewall && $details)) {
if ($details) {	if ($details) {
$output .=	$output .=
'<td>'.$accessdates.'</td>'.	'<td>'.$accessdates.'</td>'.
Line 1373 sub courseinfo_row {	Line 1540 sub courseinfo_row {
$output .= "<td><a href=\"javascript:setCourseId('$cnum')\">".&mt('Show more details').'</a></td>';	$output .= "<td><a href=\"javascript:setCourseId('$cnum')\">".&mt('Show more details').'</a></td>';
}	}
}	}
my $selfenroll;	my $selfenroll = &selfenroll_status($info,$course);
if ($info->{'selfenroll_types'}) {	if ($selfenroll) {
my $showstart = &Apache::lonlocal::locallocaltime($info->{'selfenroll_start'});	$output .= '<td>'.$selfenroll.'</td>';
my $showend = &Apache::lonlocal::locallocaltime($info->{'selfenroll_end'});	} else {
if (($info->{'selfenroll_end'} > 0) && ($info->{'selfenroll_end'} > $now)) {	$output .= '<td> </td>';
if (($info->{'selfenroll_start'} > 0) && ($info->{'selfenroll_start'} > $now)) {	}
$output .= '<td>'.&mt('Starts: [_1]','<span class="LC_cusr_emph">'.$showstart.'</span>').'<br />'.&mt('Ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>').'</td>';	$$countref ++;
} else {	return $output;
$output .= '<td><a href="javascript:ToSelfenroll('."'$course'".')">'.&mt('Enroll in course').'</a><br />';	}
if ($info->{'selfenroll_end'} == 0) {
$output .= &mt('Available permanently');	sub selfenroll_status {
} elsif ($info->{'selfenroll_end'} > $now) {	my ($info,$course) = @_;
$output .= &mt('Self-enrollment ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>');	my $now = time;
	my $output;
	if (ref($info) eq 'HASH') {
	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]','<span class="LC_cusr_emph">'.$showstart.'</span>').'<br />'.&mt('Ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>');
	} else {
	$output = '<a href="javascript:ToSelfenroll('."'$course'".')">'.
	&mt('Enroll in course').'</a><br />';
	if ($info->{'selfenroll_end'} == 0) {
	$output .= &mt('Available permanently');
	} elsif ($info->{'selfenroll_end'} > $now) {
	$output .= &mt('Self-enrollment ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>');
	}
}	}
$output .= '</td>';
}	}
$selfenroll = 1;
}	}
}	}
if (!$selfenroll) {
$output .= '<td> </td>';
}
$$countref ++;
return $output;	return $output;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.75
changed lines
	Added in v.1.87