version 1.36, 2008/07/07 15:20:18
|
version 1.39, 2008/07/14 10:24:27
|
Line 53 sub handler {
|
Line 53 sub handler {
|
} |
} |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonlocal::get_language_handle($r); |
&Apache::lonlocal::get_language_handle($r); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['sortby']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['sortby','showdom']); |
|
|
my $codedom = &Apache::lonnet::default_login_domain(); |
my $codedom = &Apache::lonnet::default_login_domain(); |
|
|
Line 101 function setCatDepth(depth) {
|
Line 102 function setCatDepth(depth) {
|
return; |
return; |
} |
} |
|
|
ENDSCRIPT |
|
if ($env{'form.state'} eq 'listing') { |
|
$catjs .= qq| |
|
function changeSort(caller) { |
function changeSort(caller) { |
document.$formname.sortby.value = caller; |
document.$formname.sortby.value = caller; |
document.$formname.submit(); |
document.$formname.submit(); |
Line 111 function changeSort(caller) {
|
Line 109 function changeSort(caller) {
|
function setCourseId(caller) { |
function setCourseId(caller) { |
document.$formname.coursenum.value = caller; |
document.$formname.coursenum.value = caller; |
document.$formname.submit(); |
document.$formname.submit(); |
}\n|; |
} |
} |
|
|
ENDSCRIPT |
my $numtitles; |
my $numtitles; |
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, |
Line 173 sub course_details {
|
Line 172 sub course_details {
|
{text=>"Course details"}); |
{text=>"Course details"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details')); |
$r->print('<br />'.&mt('Detailed course information:').'<br /><br />'. |
$r->print('<br />'.&mt('Detailed course information:').'<br /><br />'. |
'<form name="'.$formname.'" method="post">'. |
'<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'. |
&print_course_listing($codedom,undef,$trails,$allitems). |
&print_course_listing($codedom,undef,$trails,$allitems). |
'<br /><br />'); |
'<br /><br />'); |
$r->print('<a href = "javascript:document.coursecatalog.submit()">'. |
$r->print('<a href = "javascript:document.coursecatalog.submit()">'. |
Line 319 function setElements() {
|
Line 318 function setElements() {
|
'<input type="submit" name="catalogfilter" value="'. |
'<input type="submit" name="catalogfilter" value="'. |
&mt('Display courses').'" />'. |
&mt('Display courses').'" />'. |
'<input type="hidden" name="numtitles" value="'.$numtitles. |
'<input type="hidden" name="numtitles" value="'.$numtitles. |
'" /></form>'); |
'" /></form><br /><br />'); |
if (($numtitles > 0) && ($env{'form.state'} eq 'listing')) { |
|
$r->print('<br />'); |
|
} |
|
} else { |
} else { |
&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'}; |
Line 492 sub additional_filters {
|
Line 488 sub additional_filters {
|
$output .= '<tr><td><label>'. |
$output .= '<tr><td><label>'. |
'<input type="checkbox" name="withsubcats" value="1" '. |
'<input type="checkbox" name="withsubcats" value="1" '. |
$include_subcat_status.'/>'. |
$include_subcat_status.'/>'. |
&mt('Include subcategories within "[_1]"',$catname). |
&mt('Include subcategories within "[_1]"', |
'</label></td></tr>'; |
&unescape($catname)).'</label></td></tr>'; |
} |
} |
} |
} |
my $show_selfenroll_status; |
my $show_selfenroll_status; |
Line 841 sub build_courseinfo_hash {
|
Line 837 sub build_courseinfo_hash {
|
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
$cleandesc =~ s/^\s+//; |
$cleandesc =~ s/^\s+//; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types, |
my ($instcode,$singleowner,$ttype,$selfenroll_types, |
$selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories); |
$selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories); |
if (ref($courses->{$course}) eq 'HASH') { |
if (ref($courses->{$course}) eq 'HASH') { |
$descr = $courses->{$course}{'description'}; |
$descr = $courses->{$course}{'description'}; |
Line 1097 sub identify_sections {
|
Line 1093 sub identify_sections {
|
} |
} |
} |
} |
@secnums = sort {$a <=> $b} @secnums; |
@secnums = sort {$a <=> $b} @secnums; |
my $seclist = join(', ',@secnums); |
$seclist = join(', ',@secnums); |
my $numsec = @secnums; |
my $numsec = @secnums; |
return ($seclist,$numsec); |
return ($seclist,$numsec); |
} |
} |