--- loncom/interface/lonpickcourse.pm 2004/05/07 21:51:30 1.16 +++ loncom/interface/lonpickcourse.pm 2006/07/11 02:28:22 1.52 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.16 2004/05/07 21:51:30 albertel Exp $ +# $Id: lonpickcourse.pm,v 1.52 2006/07/11 02:28:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,9 @@ 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; @@ -42,29 +45,52 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - $r->print(< - -The LearningOnline Network with CAPA - -ENDDOCUMENT + # Get parameters from query string &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', 'sincefilter','form','cnumelement', - 'cdomelement','cnameelement']); + 'cdomelement','cnameelement','roleelement', + 'pickedcourse','instcodefilter', + 'ownerfilter','coursefilter','multiple', + 'type','ownerdomfilter']); # domain filter and selection - my $domainfilter=$ENV{'form.domainfilter'}; + 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'}; + 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'}; + my $sincefilter=$env{'form.sincefilter'}; $sincefilter=~s/[^\d-]//g; unless ($sincefilter) { $sincefilter=-1; } my $sincefilterform=&Apache::loncommon::select_form($sincefilter, @@ -78,41 +104,313 @@ ENDDOCUMENT 'select_form_order' => ['-1','86400','604800','2592000','7776000', '15552000','31104000'])); - - $r->print(&Apache::loncommon::bodytag("Selecting a Course")); - my %lt=&Apache::lonlocal::texthash( - 'cac' => 'Course Activity', - 'cde' => 'Course Description', - 'cdo' => 'Course Domain'); +# 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;"; + if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') { + $name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;"; $name_input =''; + $env{'form.cnameelement'}.'" />'; + } + 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) { - $name_code - 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 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 + + + $name_input - - + +$roleelement +$multelement $lt{'cac'}: $sincefilterform
$lt{'cdo'}: $domainselectform
+$lt{'cog'}: $typeselectform +
+$instcodeform +$lt{'cow'}: + +
+$lt{'cod'}: $ownerdomselectform +
+$courseidtag $lt{'cde'}:

@@ -120,36 +418,141 @@ $lt{'cde'}:
ENDSCRIPT # ---------------------------------------------------------------- Get the data - if ($ENV{'form.gosearch'}) { + 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); - $r->print(''); + my %courses = &Apache::lonnet::courseiddump($domainfilter,$descriptfilter, + $timefilter,$instcodefilter,$combownerfilter, + $coursefilter,undef,undef,$type); + $r->print(''); my %by_descrip; - foreach my $course (keys %courses) { - $by_descrip{lc($courses{$course})}=$course; + my $numcourses = keys(%courses); + foreach my $course (keys(%courses)) { + my $descr; + if ($courses{$course} =~ m/^([^:]*):/i) { + $descr = &unescape($1); + } else { + $descr = &unescape($courses{$course}); + } + my $description = $descr; + push (@{$by_descrip{$description}}, $course); } - foreach my $description (sort(keys(%by_descrip))) { - my $course=$by_descrip{$description}; - my $cleandesc=&HTML::Entities::encode($courses{$course},'<>&"'); - $cleandesc=~s/'/\\'/g; - my ($cdom,$cnum)=split(/\_/,$course); - $r->print(' '.$courses{$course}.' ('. - ($Apache::lonnet::domaindescription{$cdom}? - $Apache::lonnet::domaindescription{$cdom}:$cdom). - ")
\n"); + 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,$owner,$ttype) = split/:/,$courses{$course}; + $r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc)); + $r->print($description.'('. + ($Apache::lonnet::domaindescription{$cdom}? + $Apache::lonnet::domaindescription{$cdom}:$cdom).")"); + unless ($instcode eq '') { + $r->print(" - ".&unescape($instcode)); + } + unless ($owner eq '') { + $r->print(", owner - ".&unescape($owner)); + } + unless ($ttype eq '') { + $r->print('('.&Apache::lonnet::unescape($ttype).')'); + } + if ($multiple) { $r->print("\n"); } + $r->print("
\n"); + } } - if (!%courses) { $r->print(&mt('None found')); } - $r->print('
'); + if (!%courses) { + $r->print(&mt('None found')); + } elsif ($multiple) { + $r->print(''); + } + $r->print(''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n"); + if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) { + $r->print(''."\n"); + } + $r->print("\n"); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; -} +} + +sub course_chooser { + my ($multiple,$cdom,$cnum,$cleandesc) = @_; + my $output; + if ($multiple) { + $output = '