--- loncom/interface/lonpickcourse.pm 2003/03/26 00:26:16 1.1 +++ loncom/interface/lonpickcourse.pm 2008/01/02 10:37:58 1.69 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.1 2003/03/26 00:26:16 www Exp $ +# $Id: lonpickcourse.pm,v 1.69 2008/01/02 10:37:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,54 +33,791 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; +use Apache::longroup; +use LONCAPA; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - $r->print(< - -The LearningOnline Network with CAPA - -ENDDOCUMENT - -# Is this even in a course? + # Get parameters from query string &Apache::loncommon::get_unprocessed_cgi - ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', - 'sincefilter','form','cnumelement','cdomelement']); - my $domainfilter=$ENV{'form.domainfilter'}; - $domainfilter=~s/\W//g; - unless ($domainfilter) { $domainfilter='.'; } - my $descriptfilter=$ENV{'form.descriptfilter'}; - $descriptfilter=~s/\W//g; - unless ($descriptfilter) { $descriptfilter='.'; } - my $sincefilter=$ENV{'form.sincefilter'}; - $sincefilter=~s/\D//g; - unless ($sincefilter) { $sincefilter=0; } - - $r->print(&Apache::loncommon::bodytag("Selecting a Course")); - $r->print(< -function gochoose(cname,cdom) { - opener.document.$ENV{'form.form'}.$ENV{'form.cnumelement'}.value=cname; - var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}; - var i; - for (i=0;i'; + $submitopener = &processpick(); + $autosubmit = 'process_pick("'.$roledom.'")'; + } + + my $onlyown = 0; + # if called to assign course-based portfolio access control + if ((($env{'form.form'} eq 'portform') && (!$env{'user.adv'}))) { + $onlyown = 1; + } + + my %loaditem; + if ((($env{'form.form'} eq 'cu') || ($env{'form.form'} eq 'studentform')) && + ($env{'form.pickedcourse'})) { + $loaditem{'onload'} ="setSections()"; + } + $r->print(&Apache::loncommon::start_page($title,undef, + {'add_entries' => \%loaditem, + 'no_nav_bar' => 1, })); + + if ($env{'form.form'} eq 'portform') { + $lastaction = 'document.courselist.submit()'; + } elsif ($env{'form.form'} eq 'cu' || ($env{'form.form'} eq 'studentform' && + !$multiple)) { + $lastaction = + 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n". + 'document.courselist.submit();'; + } else { + $lastaction = 'self.close()'; + } + + # if called to assign a role in a course to a user via CUSR + if ($env{'form.form'} eq 'cu' || $env{'form.form'} eq 'studentform') { + $r->print(&create_user_javascript($type)); + } + + # print javascript functions for choosing a course + if ($env{'form.gosearch'} || $onlyown) { + $r->print(&gochoose_javascript($type,$multiple,$autosubmit,$lastaction)); + } + $r->print(''); + $r->print($submitopener); + +# ------------------------------------------ Display of filters to limit search + my $filter = {}; + my $action = '/adm/pickcourse'; + if (!$onlyown) { + my $filterlist = ['domainfilter','descriptfilter', + 'instcodefilter','ownerfilter', + 'ownerdomfilter']; + # course ID filter for DCs only + if ($env{'user.adv'} && $env{'form.domainfilter'} && + exists($env{'user.role.dc./'.$env{'form.domainfilter'}.'/'})) { + push(@{$filterlist},'coursefilter'); + } + $r->print(&build_filters($filterlist,$type,$roleelement,$multelement, + $filter,$action)); + } + +# ---------------------------------------------------------------- Get the data + if ($env{'form.gosearch'} || $onlyown) { + my %courses = &search_courses($r,$type,$onlyown,$filter); + &display_matched_courses($r,$type,$multiple,$action,%courses); } - self.close(); + $r->print(&Apache::loncommon::end_page()); + return OK; } + +sub processpick { + my $openerform = 'rolechoice'; + if ($env{'form.form'} eq 'studentform') { + $openerform = $env{'form.form'}; + } + my $process_pick = <<"ENDONE"; + -ENDSCRIPT +"; + return $process_pick; +} - $r->print(''); - return OK; -} +sub create_user_javascript { + my ($type) = @_; + my $output; + #javascript for reporting sections and groups then closing + if ($env{'form.pickedcourse'}) { + my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'}; + my $sec_element = 'currsec'; + my $grplist_element = 'groups'; + my ($sections,$groups) = + &Apache::loncommon::get_secgrprole_info($cdom,$cnum,'',$type); + my $num_sections = scalar(@{$sections}); + my $seclist = join(',',@{$sections}); + my $num_groups = scalar(@{$groups}); + my $groupslist = join(',',@{$groups}); + $output = qq| + +|; +; + } + return $output; +} + +sub display_matched_courses { + my ($r,$type,$multiple,$action,%courses) = @_; + if ($env{'form.form'} eq 'portform') { + $action = '/adm/portfolio'; + } + my $numcourses = keys(%courses); + $r->print('
'); + if ($env{'form.form'} eq 'modifycourse') { + if ($numcourses > 0) { + my $cctitle = &Apache::lonnet::plaintext('cc',$type); + my $dctitle = &Apache::lonnet::plaintext('dc'); + my $ccrolechk = ' checked="checked" '; + my $menuchk = ' '; + if ($env{'form.prevphase'} ne '') { + $ccrolechk = ' '; + $menuchk = ' checked="checked" '; + } + $r->print( + ''.(' 'x3).'
'. + '

'); + } + } + my %by_descrip; + foreach my $course (keys(%courses)) { + my $descr; + if (ref($courses{$course}) eq 'HASH') { + $descr = $courses{$course}{'description'}; + } elsif ($courses{$course} =~ m/^([^:]*):/i) { + $descr = &unescape($1); + } else { + $descr = &unescape($courses{$course}); + } + my $description = $descr; + push (@{$by_descrip{$description}}, $course); + } + if ($numcourses > 1 && $multiple) { + $r->print(' +    +

'); + } + foreach my $description (sort { lc($a) cmp lc($b) } (keys(%by_descrip))) { + foreach my $course (@{$by_descrip{$description}}) { + my $cleandesc=&HTML::Entities::encode($description,'<>&"'); + $cleandesc=~s/'/\\'/g; + my ($cdom,$cnum)=split(/\_/,$course); + my ($descr,$instcode,$ttype,@owners); + if (ref($courses{$course}) eq 'HASH') { + $descr = $courses{$course}{'description'}; + $instcode = $courses{$course}{'inst_code'}; + $ttype = $courses{$course}{'type'}; + push(@owners,&unescape($courses{$course}{'owner'})); + if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { + foreach my $item (@{$courses{$course}{'co-owners'}}) { + push(@owners,&unescape($item)); + } + } + } else { + my $singleowner; + ($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course}); + push(@owners,&unescape($singleowner)); + } + my $owner = join(', ',@owners); + $r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc)); + $r->print($description.' ('. + (&Apache::lonnet::domain($cdom,'description')? + &Apache::lonnet::domain($cdom,'description'):$cdom).")"); + if ($instcode ne '') { + $r->print(" - ".&unescape($instcode)); + } + if (@owners > 1) { + $r->print(', '.&mt('owners').' - ',join(', ',@owners)); + } elsif (@owners == 1) { + $r->print(', '.&mt('owner').' - '.$owner); + } + if ($ttype ne '') { + $r->print(' ('.&unescape($ttype).')'); + } + if ($multiple) { $r->print("\n"); } + $r->print("
\n"); + } + } + if (!%courses) { + $r->print(&mt('None found')); + } elsif ($multiple) { + $r->print(''); + } + $r->print(''. + "\n".''."\n". + ''."\n"); + if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) { + $r->print(''."\n"); + } + if ($env{'form.form'} eq 'portform') { + $r->print(''); + $r->print(''); + $r->print(''); + $r->print(''); + } elsif ($env{'form.form'} eq 'modifycourse') { + $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','pickedcourse','type','form'])); + } else { + $r->print(''."\n". + ''."\n"); + } + $r->print("
\n"); + return; +} + + +sub multiples_tag { + my $jscript = &Apache::loncommon::check_uncheck_jscript(); + my $multelement = ''; + return ($jscript,$multelement); +} + +sub build_filters { + my ($filterlist,$type,$roleelement,$multelement,$filter,$action, + $caller) = @_; + my $list; + my $formname; + if (defined($env{'form.form'})) { + $formname = $env{'form.form'}; + } else { + $formname = $caller; + } + my ($domainselectform,$sincefilterform,$ownerdomselectform, + $instcodeform,$typeselectform); + foreach my $item (@{$filterlist}) { + $filter->{$item} = $env{'form.'.$item}; + if ($item ne 'descriptfilter' && $item ne 'instcodefilter') { + if ($item eq 'domainfilter' || $item eq 'ownerdomfilter') { + $filter->{$item} = &LONCAPA::clean_domain($filter->{$item}); + } elsif ($item eq 'coursefilter') { + $filter->{$item} = &LONCAPA::clean_courseid($filter->{$item}); + } elsif ($item eq 'ownerfilter') { + $filter->{$item} = &LONCAPA::clean_username($filter->{$item}); + } else { + $filter->{$item} =~ s/\W//g; + } + if (!$filter->{$item}) { + $filter->{$item} = ''; + } + } + if ($item eq 'domainfilter') { + my $allow_blank = 1; + if ($formname eq 'portform') { + $filter->{$item} ||= $env{'user.domain'}; + $allow_blank=0; + } elsif ($formname eq 'studentform') { + $filter->{$item} ||= $env{'request.role.domain'}; + $allow_blank=0; + } + $domainselectform = + &Apache::loncommon::select_dom_form($filter->{$item}, + 'domainfilter', + $allow_blank); + } elsif ($item eq 'ownerdomfilter') { + $ownerdomselectform = + &Apache::loncommon::select_dom_form($filter->{$item},'ownerdomfilter',1); + } else { + $list->{$item} = &HTML::Entities::encode($filter->{$item},'<>&"'); + } + } + + # last course activity filter and selection + $filter->{'sincefilter'} = $env{'form.sincefilter'}; + $filter->{'sincefilter'} =~ s/[^\d-]//g; + if (!$filter->{'sincefilter'}) { $filter->{'sincefilter'}=-1; } + $sincefilterform=&Apache::loncommon::select_form($filter->{'sincefilter'}, + 'sincefilter',('-1'=>'', + '86400' => 'today', + '604800' => 'last week', + '2592000' => 'last month', + '7776000' => 'last three months', + '15552000' => 'last six months', + '31104000' => 'last year', + 'select_form_order' => + ['-1','86400','604800','2592000','7776000', + '15552000','31104000'])); + + my %lt = ( + 'cac' => &mt('[_1] Activity',$type), + 'cde' => &mt('[_1] Description',$type), + 'cdo' => &mt('[_1] Domain',$type), + 'cin' => &mt('Course Institutional Code'), + 'cow' => &mt("[_1] Owner's Username",$type), + 'cod' => &mt("[_1] Owner's Domain", $type), + 'cog' => &mt('Course Type') + ); + + $typeselectform = ''; + } + foreach my $posstype ('Course','Non-standard Course') { + $typeselectform.='\n"; + } + $typeselectform.=""; + my $output = qq| +
+ +|; + if ($formname eq 'modifycourse') { + $output .= ''."\n". + ''."\n"; + } else { + my $name_input; + if ($env{'form.cnameelement'} ne '') { + $name_input = ''; + } + $output .= qq| + + +$name_input +$roleelement +$multelement +|; + if ($formname eq 'portform') { + $output .= ''; + } + } + if ($sincefilterform) { + $output .= $lt{'cac'}.': '.$sincefilterform.'
'."\n"; + } + if ($domainselectform) { + $output .= $lt{'cdo'}.': '.$domainselectform.'
'."\n"; + } + if ($typeselectform) { + $output .= $lt{'cog'}.': '.$typeselectform.'
'."\n"; + } + if ($instcodeform) { + $output .= $lt{'cin'}.': '.$instcodeform.'
'."\n"; + } + if (exists($filter->{'ownerfilter'})) { + $output .= $lt{'cow'}.': '. + '
'."\n". + $lt{'cod'}.': '.$ownerdomselectform.'
'."\n"; + } + if (exists($filter->{'coursefilter'})) { + $output .= &mt('LON-CAPA course ID').': '. + '
'; + } + if (exists($filter->{'descriptfilter'})) { + $output .=$lt{'cde'}.': '. + ''."\n"; + } + $output .= qq| +

+
+
+|; + return $output; +} + +sub search_courses { + my ($r,$type,$onlyown,$filter) = @_; + my %courses; + if (!$onlyown) { + $r->print(&mt('Searching').' ...
 
'); + $r->rflush(); + if (($filter->{'ownerfilter'} ne '') || + ($filter->{'ownerdomfilter'} ne '')) { + $filter->{'combownerfilter'} = $filter->{'ownerfilter'}.':'. + $filter->{'ownerdomfilter'}; + } + foreach my $item ('descriptfilter','instcodefilter','coursefilter', + 'combownerfilter') { + if (!$filter->{$item}) { + $filter->{$item}='.'; + } + } + if ($type eq '') { $type = '.'; } + my $timefilter = + ($filter->{'sincefilter'}==-1?1:time-$filter->{'sincefilter'}); + %courses = + &Apache::lonnet::courseiddump($filter->{'domainfilter'}, + $filter->{'descriptfilter'}, + $timefilter, + $filter->{'instcodefilter'}, + $filter->{'combownerfilter'}, + $filter->{'coursefilter'}, + undef,undef,$type); + } else { + $r->print('
'); + my %coursehash = &Apache::loncommon::findallcourses(); + foreach my $cid (sort(keys(%coursehash))) { + $courses{$cid}{'description'} = $env{'course.'.$cid.'.description'}; + } + } + return %courses; +} + +sub course_chooser { + my ($multiple,$cdom,$cnum,$cleandesc) = @_; + my $output; + if ($multiple) { + $output = '