# The LearningOnline Network
# Pick a course
#
# $Id: lonpickcourse.pm,v 1.50.2.2 2006/08/11 22:14:10 albertel 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;
use Apache::longroup;
use lib '/home/httpd/lib/perl/';
use LONCAPA;
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',
'type','ownerdomfilter']);
# 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'};
$ownerfilter=~s/\W//g;
my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
# course ownerdomain filter
my $ownerdomfilter=$env{'form.ownerdomfilter'};
$ownerdomfilter=~s/\W//g;
my $ownerdomselectform=
&Apache::loncommon::select_dom_form($ownerdomfilter,'ownerdomfilter',1);
# 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,$roleslist,$rolesnameslist,
$accesslist,$accessnameslist);
my $sec_element = 'currsec';
my $grplist_element = 'groups';
my $num_sections = 0;
my $num_groups = 0;
my $num_roles = 0;
my $num_access = 0;
my ($cdom,$cnum);
if ($env{'form.pickedcourse'}) {
($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
}
my $type = $env{'form.type'};
if (!defined($env{'form.type'})) {
$type = 'Course';
}
if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
$loaditem{'onload'} ="setSections()";
($seclist,$num_sections,$groupslist,$num_groups) =
&build_selection_lists($cdom,$cnum,$type,undef,undef,
$env{'form.form'});
}
# if called from portfolio, report roles, sections, groups and close
my ($roles_element,$groups_element,$status_element,$setitems_function);
if ($env{'form.form'} eq 'portform' && $env{'form.pickedcourse'}) {
my ($row_id) = ($env{'form.cnumelement'} =~ /^crsnum_(\d+)$/);
$roles_element = 'role_'.$row_id.'_1';
$groups_element = 'group_'.$row_id.'_1';
$sec_element = 'section_'.$row_id.'_1';
$status_element = 'access_'.$row_id.'_1';
$grplist_element = 'grplist_'.$row_id.'_1';
$loaditem{'onload'} ="setItems()";
($seclist,$num_sections,$groupslist,$num_groups,$roleslist,$num_roles,
$rolesnameslist,$accesslist,$num_access,$accessnameslist) =
&build_selection_lists($cdom,$cnum,$type,1,1,$env{'form.form'});
$setitems_function = qq|
function setItems() {
opener.document.$env{"form.form"}.activate.checked = true;
setRoles();
setGroups();
setStatus();
setSections();
}
function setRoles() {
var numRoles = $num_roles
var rolesArray = new Array("$roleslist");
var roleNamesArray = new Array("$rolesnameslist");
opener.document.$env{"form.form"}.$roles_element.length = 0;
if (numRoles == 0) {
opener.document.$env{"form.form"}.$roles_element.multiple=false;
opener.document.$env{"form.form"}.$roles_element.size=1;
opener.document.$env{"form.form"}.$roles_element.options[0] = new Option('No existing roles','',false,false);
} else {
if (numRoles == 1) {
opener.document.$env{"form.form"}.$roles_element.multiple=false;
opener.document.$env{"form.form"}.$roles_element.size=1;
opener.document.$env{"form.form"}.$roles_element.options[0] = new Option('Select','',true,true);
opener.document.$env{"form.form"}.$roles_element.options[1] = new Option(roleNamesArray[0],rolesArray[0],false,false);
} else {
for (var i=0; i$posstype\n";
}
$typeselectform.="";
my $title = &mt('Selecting a [_1]',$type);
# Setup for multiple course selections, if flag for multiples set.
my $multiple = $env{'form.multiple'};
my $multelement;
if ($multiple) {
$title = &mt('Selecting [_1](s)',lc($type));
$jscript = &Apache::loncommon::check_uncheck_jscript();
$multelement = '';
}
$r->print(&Apache::loncommon::start_page($title,undef,
{'add_entries' => \%loaditem,
'no_nav_bar' => 1, }));
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 or Group')
);
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();';
}
if ($env{'form.form'} eq 'portform') {
$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.'")';
}
my $instcodeform;
if ($type eq 'Course') {
$instcodeform = $lt{'cin'}.': ';
}
my %elements = (
Course => {
name => 'coursepick',
total => 'coursetotal',
list => 'courselist',
},
Group => {
name => 'grouppick',
total => 'grouptotal',
list => 'grouplist',
},
);
$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'}.$elements{$type}{'list'}.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='.'; }
my $combownerfilter;
if (($ownerfilter ne '') || ($ownerdomfilter ne '')) {
$combownerfilter = $ownerfilter.':'.$ownerdomfilter;
}
if ($combownerfilter eq '') { $combownerfilter='.'; }
if ($coursefilter eq '') { $coursefilter='.'; }
if ($type eq '') { $type = '.'; }
my $timefilter=($sincefilter==-1?1:time-$sincefilter);
my %courses = &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,
$timefilter,$instcodefilter,$combownerfilter,
$coursefilter,undef,undef,$type);
$r->print('\n");
}
$r->print(&Apache::loncommon::end_page());
return OK;
}
sub course_chooser {
my ($multiple,$cdom,$cnum,$cleandesc) = @_;
my $output;
if ($multiple) {
$output = '