--- loncom/interface/lonpickcourse.pm 2003/03/26 16:39:40 1.3 +++ loncom/interface/lonpickcourse.pm 2006/05/09 15:09:27 1.45 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.3 2003/03/26 16:39:40 www Exp $ +# $Id: lonpickcourse.pm,v 1.45 2006/05/09 15:09:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,63 +33,320 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; 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 - +# Get parameters from query string &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', - 'sincefilter','form','cnumelement','cdomelement']); - my $domainfilter=$ENV{'form.domainfilter'}; + '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 $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")); + 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 = &Apache::loncommon::get_sections($cdom,$cnum); + my @sections = (sort {$a <=> $b} keys(%sections_count)); + $seclist = join('","',@sections); + + my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum); + $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) { - 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'}.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 +
+ + +$name_input + +$roleelement +$multelement +$lt{'cac'}: $sincefilterform +
+$lt{'cdo'}: $domainselectform +
+$lt{'cin'}: + +
+$lt{'cow'}: + +
+$courseidtag +$lt{'cde'}: + +

+
+
ENDSCRIPT - $r->rflush(); # ---------------------------------------------------------------- Get the data - my %courses= - &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter); - $r->print('
'); - foreach (keys %courses) { - my ($cdom,$cnum)=split(/\_/,$_); - $r->print(' '.$courses{$_}.' ('. - ($Apache::lonnet::domaindescription{$cdom}? - $Apache::lonnet::domaindescription{$cdom}:$cdom).')
'); + 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(''); + my %by_descrip; + my $numcourses = keys(%courses); + foreach my $course (keys(%courses)) { + my $descr; + if ($courses{$course} =~ m/^([^:]*):/i) { + $descr = &Apache::lonnet::unescape($1); + } else { + $descr = &Apache::lonnet::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,$owner) = 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(" - ".&Apache::lonnet::unescape($instcode)); + } + unless ($owner eq '') { + $r->print(", owner - ".&Apache::lonnet::unescape($owner)); + } + if ($multiple) { $r->print("\n"); } + $r->print("
\n"); + } + } + if (!%courses) { + $r->print(&mt('None found')); + } elsif ($multiple) { + $r->print(''); + } + $r->print(''."\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 = '