version 1.111, 2014/03/13 14:46:46
|
version 1.115, 2014/05/30 01:50:05
|
Line 36 use Apache::loncoursedata;
|
Line 36 use Apache::loncoursedata;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
use Apache::courseclassifier; |
|
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub handler { |
sub handler { |
Line 106 sub handler {
|
Line 105 sub handler {
|
|
|
if ((($env{'form.form'} eq 'cu') || ($env{'form.form'} eq 'studentform')) && |
if ((($env{'form.form'} eq 'cu') || ($env{'form.form'} eq 'studentform')) && |
($env{'form.pickedcourse'})) { |
($env{'form.pickedcourse'})) { |
$loaditem{'onload'} .= 'setDefaultCredits();setRoles();setSections();'; |
if ($type ne 'Community') { |
|
my %coursedescription = |
|
&Apache::lonnet::coursedescription($env{'form.pickedcourse'}, |
|
{'one_time' => '1'}); |
|
my $cdom = $coursedescription{'domain'}; |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
|
if (($domdefs{'officialcredits'} || $domdefs{'unofficialcredits'} || $domdefs{'textbookcredits'})) { |
|
$loaditem{'onload'} .= 'setDefaultCredits();'; |
|
} |
|
} |
|
$loaditem{'onload'} .= 'setRoles();setSections();'; |
|
} |
|
if ((($env{'form.gosearch'}) && ($env{'form.updater'} eq '')) && (!$onlyown)) { |
|
$loaditem{'onload'} .= 'hideSearching(); '; |
} |
} |
my $js = &js_changer(); |
my $js = &Apache::loncommon::js_changer(); |
$r->print(&Apache::loncommon::start_page($title,$js, |
$r->print(&Apache::loncommon::start_page($title,$js, |
{'add_entries' => \%loaditem, |
{'add_entries' => \%loaditem, |
'no_nav_bar' => 1, })); |
'no_nav_bar' => 1, })); |
Line 141 sub handler {
|
Line 153 sub handler {
|
my $filter = {}; |
my $filter = {}; |
my $action = '/adm/pickcourse'; |
my $action = '/adm/pickcourse'; |
my ($numtitles,$showroles,$nohost,@codetitles); |
my ($numtitles,$showroles,$nohost,@codetitles); |
if (!$onlyown) { |
unless ($onlyown) { |
my $filterlist = ['domainfilter','sincefilter']; |
my $filterlist = ['domainfilter','sincefilter']; |
# created filter for DCs only |
# created filter for DCs only |
if ($env{'user.adv'} && $env{'form.domainfilter'} && |
if ($env{'user.adv'} && $env{'form.domainfilter'} && |
Line 228 sub handler {
|
Line 240 sub handler {
|
$domcloner = 1; |
$domcloner = 1; |
} |
} |
} |
} |
my %courses = &search_courses($r,$type,$onlyown,$filter,$numtitles, |
my %courses; |
$cloneruname,$clonerudom,$domcloner,\@codetitles); |
if (!$onlyown) { |
|
$r->print('<div id="searching">'.&mt('Searching ...').'</div>'); |
|
$r->rflush(); |
|
my $srchdom = $filter->{'domainfilter'}; |
|
%courses = &Apache::loncommon::search_courses($srchdom,$type,$filter,$numtitles, |
|
$cloneruname,$clonerudom,$domcloner, |
|
\@codetitles,$env{'form.cc_clone'}); |
|
} else { |
|
$r->print('<br />'); |
|
my %coursehash = &Apache::loncommon::findallcourses(); |
|
foreach my $cid (sort(keys(%coursehash))) { |
|
$courses{$cid}{'description'} = $env{'course.'.$cid.'.description'}; |
|
} |
|
} |
if ($nohost) { |
if ($nohost) { |
$r->print ('<span class="LC_warning">'. |
$r->print ('<span class="LC_warning">'. |
&mt('User does not exist - username: [_1], domain: [_2].', |
&mt('User does not exist - username: [_1], domain: [_2].', |
Line 244 sub handler {
|
Line 269 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
sub js_changer { |
|
return <<ENDJS; |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
function updateFilters(caller) { |
|
if (typeof(caller) != "undefined") { |
|
document.filterpicker.updater.value = caller.name; |
|
} |
|
document.filterpicker.submit(); |
|
} |
|
// ]]> |
|
</script> |
|
|
|
ENDJS |
|
} |
|
|
|
sub processpick { |
sub processpick { |
my $openerform = 'rolechoice'; |
my $openerform = 'rolechoice'; |
if ($env{'form.form'} eq 'studentform') { |
if ($env{'form.form'} eq 'studentform') { |
Line 624 sub get_coordinator_cloneable {
|
Line 633 sub get_coordinator_cloneable {
|
} |
} |
} |
} |
|
|
sub search_courses { |
|
my ($r,$type,$onlyown,$filter,$numtitles,$cloneruname,$clonerudom,$domcloner,$codetitles) = @_; |
|
my (%courses,%showcourses,$cloner,$ccrole); |
|
if ($type eq 'Community') { |
|
$ccrole = 'co'; |
|
} else { |
|
$ccrole = 'cc'; |
|
} |
|
if (!$onlyown) { |
|
$r->print('<div id="searching">'.&mt('Searching ...').'</div>'); |
|
$r->rflush(); |
|
if (($filter->{'ownerfilter'} ne '') || |
|
($filter->{'ownerdomfilter'} ne '')) { |
|
$filter->{'combownerfilter'} = $filter->{'ownerfilter'}.':'. |
|
$filter->{'ownerdomfilter'}; |
|
} |
|
foreach my $item ('descriptfilter','coursefilter','combownerfilter') { |
|
if (!$filter->{$item}) { |
|
$filter->{$item}='.'; |
|
} |
|
} |
|
my $now = time; |
|
my $timefilter = |
|
($filter->{'sincefilter'}==-1?1:$now-$filter->{'sincefilter'}); |
|
my ($createdbefore,$createdafter); |
|
if (($filter->{'createdfilter'} ne '') && ($filter->{'createdfilter'} !=-1)) { |
|
$createdbefore = $now; |
|
$createdafter = $now-$filter->{'createdfilter'}; |
|
} |
|
my ($instcodefilter,$regexpok); |
|
if ($numtitles) { |
|
if ($env{'form.official'} eq 'on') { |
|
$instcodefilter = |
|
&Apache::courseclassifier::instcode_search_str($filter->{'domainfilter'},$numtitles,$codetitles); |
|
$regexpok = 1; |
|
} elsif ($env{'form.official'} eq 'off') { |
|
$instcodefilter = &Apache::courseclassifier::instcode_search_str($filter->{'domainfilter'},$numtitles,$codetitles); |
|
unless ($instcodefilter eq '') { |
|
$regexpok = -1; |
|
} |
|
} |
|
} else { |
|
$instcodefilter = $filter->{'instcodefilter'}; |
|
} |
|
if ($instcodefilter eq '') { $instcodefilter = '.'; } |
|
if ($type eq '') { $type = '.'; } |
|
|
|
if (($clonerudom ne '') && ($cloneruname ne '')) { |
|
$cloner = $cloneruname.':'.$clonerudom; |
|
} |
|
%courses = |
|
&Apache::lonnet::courseiddump($filter->{'domainfilter'}, |
|
$filter->{'descriptfilter'}, |
|
$timefilter, |
|
$instcodefilter, |
|
$filter->{'combownerfilter'}, |
|
$filter->{'coursefilter'}, |
|
undef,undef,$type,$regexpok,undef,undef, |
|
undef,undef,$cloner,$env{'form.cc_clone'}, |
|
$filter->{'cloneableonly'}, |
|
$createdbefore,$createdafter,undef, |
|
$domcloner); |
|
if (($filter->{'personfilter'} ne '') && ($filter->{'persondomfilter'} ne '')) { |
|
my %rolehash = &Apache::lonnet::get_my_roles($filter->{'personfilter'}, |
|
$filter->{'persondomfilter'}, |
|
'userroles',undef, |
|
[$ccrole,'in','ad','ep','ta','cr'], |
|
$filter->{'domainfilter'}); |
|
foreach my $role (keys(%rolehash)) { |
|
my ($cnum,$cdom,$courserole) = split(':',$role); |
|
my $cid = $cdom.'_'.$cnum; |
|
if (exists($courses{$cid})) { |
|
if (ref($courses{$cid}) eq 'HASH') { |
|
if (ref($courses{$cid}{roles}) eq 'ARRAY') { |
|
if (!grep(/^\Q$courserole\E$/,@{$courses{$cid}{roles}})) { |
|
push (@{$courses{$cid}{roles}},$courserole); |
|
} |
|
} else { |
|
$courses{$cid}{roles} = [$courserole]; |
|
} |
|
$showcourses{$cid} = $courses{$cid}; |
|
} |
|
} |
|
} |
|
%courses = %showcourses; |
|
} |
|
} else { |
|
$r->print('<br />'); |
|
my %coursehash = &Apache::loncommon::findallcourses(); |
|
foreach my $cid (sort(keys(%coursehash))) { |
|
$courses{$cid}{'description'} = $env{'course.'.$cid.'.description'}; |
|
} |
|
} |
|
return %courses; |
|
} |
|
|
|
sub course_chooser { |
sub course_chooser { |
my ($multiple,$cdom,$cnum,$cleandesc,$canclone) = @_; |
my ($multiple,$cdom,$cnum,$cleandesc,$canclone) = @_; |
my $output; |
my $output; |
Line 727 sub course_chooser {
|
Line 640 sub course_chooser {
|
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
} elsif ((($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) && (!$canclone)) { |
} elsif ((($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) && (!$canclone)) { |
if ($env{'form.form'} eq 'ccrs') { |
if ($env{'form.form'} eq 'ccrs') { |
$output = &mt('No cloning for ').$env{'form.cloner'}."\n"; |
$output = &mt('No cloning for [_1]',$env{'form.cloner'})."\n"; |
} else { |
} else { |
$output = &mt('No rights to clone')."\n"; |
$output = &mt('No rights to clone')."\n"; |
} |
} |
Line 955 Output: 2 - $jscript - javascript for ch
|
Line 868 Output: 2 - $jscript - javascript for ch
|
|
|
Side Effects: None |
Side Effects: None |
|
|
=item * |
|
X<search_courses()> |
|
B<search_courses($r,$type,$onlyown,$filter,$numtitles,$cloneruname,$clonerudom, |
|
$domcloner,$codetitles)>: |
|
|
|
|
|
Input: 9 - request object, course type, search scope: only courses in which user has active role (1), or any course (0); anonymous hash of criteria and their values; for institutional codes - number of categories; optional username of new course owner, optional domain of new course owner). Seventh and eighth needed when search is for courses to clone from course request form, or course creation form (DC). Optional "domcloner" flag (has value=1 if user has ccc priv in |
|
domain being filtered by (used when DC is using course creation form). Ninth is reference to array of titles of components in institutional codes (official courses). |
|
|
|
Output: 1 - %courses - hash of courses satisfying search criteria, keys = course IDs, values are corresponding colon-separated escaped description, institutional code, owner and type. |
|
|
|
Side Effects: None |
|
|
|
|
|
=item * |
=item * |
X<course_chooser()> |
X<course_chooser()> |