# The LearningOnline Network
# Pick a course
#
# $Id: lonpickcourse.pm,v 1.43 2006/05/08 21:40:20 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
package Apache::lonpickcourse;
use strict;
use Apache::Constants qw(:common);
use Apache::loncommon;
use Apache::loncoursedata;
use Apache::lonnet;
use Apache::lonlocal;
sub handler {
my $r = shift;
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
# ------------------------------------------------------------ Print the screen
# Get parameters from query string
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
'sincefilter','form','cnumelement',
'cdomelement','cnameelement','roleelement',
'pickedcourse','instcodefilter',
'ownerfilter','coursefilter','multiple']);
# domain filter and selection
my $domainfilter=$env{'form.domainfilter'};
$domainfilter=~s/\W//g;
unless ($domainfilter) { $domainfilter=''; }
my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter,
'domainfilter',1);
# description filter
my $descriptfilter=$env{'form.descriptfilter'};
unless ($descriptfilter) { $descriptfilter=''; }
my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"');
# institutional code filter
my $instcodefilter=$env{'form.instcodefilter'};
unless ($instcodefilter) { $instcodefilter=''; }
my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');
# course owner filter
my $ownerfilter=$env{'form.ownerfilter'};
unless ($ownerfilter) { $ownerfilter=''; }
my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
# course ID filter for DCs only
my ($courseidtag,$coursefilter);
if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.
$domainfilter.'/'})) {
$coursefilter=$env{'form.coursefilter'};
unless ($coursefilter) { $coursefilter=''; }
my $listcourseid=&HTML::Entities::encode($coursefilter,'<>&"');
$courseidtag = &mt('LON-CAPA course ID');
$courseidtag .= qq|:
|;
}
# last course activity filter and selection
my $sincefilter=$env{'form.sincefilter'};
$sincefilter=~s/[^\d-]//g;
unless ($sincefilter) { $sincefilter=-1; }
my $sincefilterform=&Apache::loncommon::select_form($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']));
# if called from loncreateuser, report sections, then close
my (%loaditem,$seclist,$groupslist);
my $num_sections = 0;
if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
$loaditem{'onload'} ="setSections()";
my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
my %sections_count = ();
$num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
my @sections = ();
if ($num_sections > 0) {
@sections = (sort {$a <=> $b} keys(%sections_count));
$seclist = join('","',@sections);
}
my (%curr_groups,$numgroups);
$numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
$cnum);
if ($numgroups > 0) {
$groupslist = join(',',sort(keys(%curr_groups)));
}
}
my $jscript;
my $title = 'Selecting a course';
# Setup for multiple course selections, if flag for multiples set.
my $multiple = $env{'form.multiple'};
my $multelement;
if ($multiple) {
$title = 'Selecting course(s)';
$jscript = &Apache::loncommon::check_uncheck_jscript();
$multelement = '';
}
$r->print(&Apache::loncommon::start_page($title,undef,
{'add_entries' => \%loaditem,
'no_nav_bar' => 1, }));
my %lt=&Apache::lonlocal::texthash(
'cac' => 'Course Activity',
'cde' => 'Course Description',
'cdo' => 'Course Domain',
'cin' => 'Course Institutional Code',
'cow' => "Course Owner's Username");
my ($name_code,$name_input);
if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {
$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";
$name_input ='';
}
my $submitopener = '';
my $autosubmit = '';
my $roleelement = '';
my $lastaction = 'self.close()';
if ($env{'form.form'} eq 'cu') {
$lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".
'document.courselist.submit();';
}
my $roledom = $env{'form.roleelement'};
if ($roledom) {
$roleelement = '';
$submitopener = &Apache::lonroles::processpick();
$autosubmit = 'process_pick("'.$roledom.'")';
}
$r->print(<
function gochoose(cname,cdom,cdesc,multiple,caller) {
var openerForm = "$env{'form.form'}";
courseCount = 0;
var courses = '';
if (multiple) {
if (typeof(document.courselist.course_id.length) == 'undefined') {
// only 1 course checkbox was created
if (document.courselist.course_id.checked) {
courses = courses + document.courselist.course_id.value + "&&";
courseCount ++;
}
} else {
for (var j=0; j 0) {
courses = courses.substr(0,courses.length-2);
opener.document.$env{'form.form'}.courselist.value = courses;
}
} else {
$name_code
opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
if (slct.options == undefined) {
opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom;
}
else {
var i;
for (i=0;i
$submitopener
ENDSCRIPT
# ---------------------------------------------------------------- Get the data
if ($env{'form.gosearch'}) {
$r->print(&mt('Searching').' ...
');
$r->rflush();
unless ($descriptfilter) { $descriptfilter='.'; }
unless ($instcodefilter) { $instcodefilter='.'; }
unless ($ownerfilter) { $ownerfilter='.'; }
unless ($coursefilter) { $coursefilter='.'; }
my $timefilter=($sincefilter==-1?1:time-$sincefilter);
my %courses=
&Apache::lonnet::courseiddump
($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
$r->print('\n");
}
$r->print(&Apache::loncommon::end_page());
return OK;
}
sub course_chooser {
my ($multiple,$cdom,$cnum,$cleandesc) = @_;
my $output;
if ($multiple) {
$output = '