version 1.45, 2009/06/09 13:26:35
|
version 1.46, 2009/07/31 03:01:31
|
Line 120 sub print_course_search_page {
|
Line 120 sub print_course_search_page {
|
'instcodefilter','ownerfilter', |
'instcodefilter','ownerfilter', |
'coursefilter']; |
'coursefilter']; |
my $filter = {}; |
my $filter = {}; |
my $numtitles; |
my ($numtitles,$type,$cctitle,$dctitle); |
my $type = 'Course'; |
$type = $env{'form.type'}; |
|
if (!defined($env{'form.type'})) { |
|
$type = 'Course'; |
|
} |
my $action = '/adm/modifycourse'; |
my $action = '/adm/modifycourse'; |
my $cctitle = &Apache::lonnet::plaintext('cc',$type); |
$cctitle = &Apache::lonnet::plaintext('cc',$type); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
$dctitle = &Apache::lonnet::plaintext('dc'); |
$r->print( |
$r->print(&Apache::lonpickcourse::js_changer()); |
'<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'. |
if ($type eq 'Course') { |
&mt('Actions available after searching for a course:').'<ul>'. |
$r->print( |
'<li>'.&mt('Enter the course with the role of [_1]',$cctitle).'</li>'."\n". |
'<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'. |
'<li>'.&mt('View or modify course settings which only a [_1] may modify.' |
&mt('Actions available after searching for a course:').'<ul>'. |
,$dctitle).'</li>'."\n".'</ul>'); |
'<li>'.&mt('Enter the course with the role of [_1]',$cctitle).'</li>'."\n". |
|
'<li>'.&mt('View or modify course settings which only a [_1] may modify.' |
|
,$dctitle).'</li>'."\n".'</ul>'); |
|
} else { |
|
$r->print( |
|
'<h3>'.&mt('Search for a community in the [_1] domain',$domdesc).'</h3>'. |
|
&mt('Actions available after searching for a community:').'<ul>'. |
|
'<li>'.&mt('Enter the community with the role of [_1]',$cctitle).'</li>'."\n". |
|
'<li>'.&mt('View or modify community settings which only a [_1] may modify.' |
|
,$dctitle).'</li>'."\n".'</ul>'); |
|
} |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
undef,undef,$filter,$action,\$numtitles,'modifycourse')); |
undef,undef,$filter,$action,\$numtitles,'modifycourse')); |
} |
} |
Line 145 sub print_course_selection_page {
|
Line 158 sub print_course_selection_page {
|
'ownerdomfilter','coursefilter']; |
'ownerdomfilter','coursefilter']; |
my %filter; |
my %filter; |
my $type = $env{'form.type'}; |
my $type = $env{'form.type'}; |
if ($type eq '') { |
if (!defined($type)) { |
$type = 'Course'; |
$type = 'Course'; |
} |
} |
my $action = '/adm/modifycourse'; |
my $action = '/adm/modifycourse'; |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
|
my $numtitles; |
|
$r->print(&Apache::lonpickcourse::js_changer()); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />'); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />'); |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
undef,undef,\%filter,$action)); |
undef,undef,\%filter,$action,\$numtitles)); |
$filter{'domainfilter'} = $dom; |
$filter{'domainfilter'} = $dom; |
my %courses = &Apache::lonpickcourse::search_courses($r,$type,0, |
my %courses = &Apache::lonpickcourse::search_courses($r,$type,0, |
\%filter); |
\%filter,$numtitles); |
&Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef, |
&Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef, |
%courses); |
%courses); |
return; |
return; |
} |
} |
Line 1091 sub course_settings_descrip {
|
Line 1106 sub course_settings_descrip {
|
|
|
sub hidden_form_elements { |
sub hidden_form_elements { |
my $hidden_elements = |
my $hidden_elements = |
&Apache::lonhtmlcommon::echo_form_input(['gosearch','coursecode', |
&Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode', |
'prevphase','numlocalcc','courseowner','login','coursequota','intarg', |
'prevphase','numlocalcc','courseowner','login','coursequota','intarg', |
'locarg','krbarg','krbver','counter','hidefromcat','usecategory'])."\n". |
'locarg','krbarg','krbver','counter','hidefromcat','usecategory'])."\n". |
'<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'; |
'<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'; |
Line 1114 sub handler {
|
Line 1129 sub handler {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
|
my $phase = $env{'form.phase'}; |
my $phase = $env{'form.phase'}; |
|
if ($env{'form.updater'}) { |
|
$phase = ''; |
|
} |
if ($phase eq '') { |
if ($phase eq '') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/modifycourse", |
({href=>"/adm/modifycourse", |