version 1.73, 2013/03/01 18:09:16
|
version 1.81, 2014/03/18 02:03:16
|
Line 66 sub handler {
|
Line 66 sub handler {
|
} |
} |
my $formname = 'coursecatalog'; |
my $formname = 'coursecatalog'; |
if ($env{'form.showdom'} ne '') { |
if ($env{'form.showdom'} ne '') { |
|
$env{'form.showdom'} = &LONCAPA::clean_domain($env{'form.showdom'}); |
if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') { |
if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') { |
$codedom = $env{'form.showdom'}; |
$codedom = $env{'form.showdom'}; |
|
} else { |
|
$env{'form.showdom'} = ''; |
} |
} |
} |
} |
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 (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash); |
Line 229 sub course_details {
|
Line 236 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; |
} |
} |
|
|
Line 292 sub instcode_course_selector {
|
Line 298 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();'; |
Line 321 sub instcode_course_selector {
|
Line 330 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". |
|
'// <![CDATA['."\n". |
|
"$catjs\n". |
|
'// ]]>'."\n". |
|
'</script>'; |
&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles); |
&cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles); |
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">'. |
Line 631 sub additional_filters {
|
Line 644 sub additional_filters {
|
' />'.$title.'</label></span>'; |
' />'.$title.'</label></span>'; |
if ($type eq 'Previous') { |
if ($type eq 'Previous') { |
my %milestonetext = &Apache::lonlocal::texthash ( |
my %milestonetext = &Apache::lonlocal::texthash ( |
accessend => 'prior to default end access date', |
accessend => 'immediately prior to default end access date', |
enrollend => 'prior to end date for auto-enrollment', |
enrollend => 'immediately prior to end date for auto-enrollment', |
date => '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 734 sub get_statustitles {
|
Line 747 sub get_statustitles {
|
sub get_wasactive_text { |
sub get_wasactive_text { |
my $wasacctext = ' -- '; |
my $wasacctext = ' -- '; |
if ($env{'form.currcat_0'} eq 'communities::0') { |
if ($env{'form.currcat_0'} eq 'communities::0') { |
$wasacctext .= &mt('where members had access ...'); |
$wasacctext .= &mt('where member access status was current ...'); |
} else { |
} else { |
$wasacctext .= &mt('where students had access ...'); |
$wasacctext .= &mt('where student access status was current ...'); |
} |
} |
return $wasacctext; |
return $wasacctext; |
} |
} |
Line 815 sub print_course_listing {
|
Line 828 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 829 sub print_course_listing {
|
Line 844 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))) { |
Line 944 sub construct_data_table {
|
Line 955 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,$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') { |