--- loncom/interface/lonpickcourse.pm 2006/02/01 22:46:09 1.38 +++ loncom/interface/lonpickcourse.pm 2006/05/30 20:12:15 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.38 2006/02/01 22:46:09 www Exp $ +# $Id: lonpickcourse.pm,v 1.48 2006/05/30 20:12:15 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,20 +45,15 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - my $html=&Apache::lonxml::xmlbegin(); - $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','roleelement', 'pickedcourse','instcodefilter', - 'ownerfilter','coursefilter','multiple']); + 'ownerfilter','coursefilter','multiple', + 'type']); # domain filter and selection my $domainfilter=$env{'form.domainfilter'}; $domainfilter=~s/\W//g; @@ -102,36 +100,55 @@ ENDDOCUMENT ['-1','86400','604800','2592000','7776000', '15552000','31104000'])); # if called from loncreateuser, report sections, then close - my ($loaditem,$seclist); + my (%loaditem,$seclist,$groupslist); my $num_sections = 0; if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) { - $loaditem = 'onLoad="setSections()"'; + $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 %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); + my @sections = (sort {$a <=> $b} keys(%sections_count)); + $seclist = join('","',@sections); + $num_sections = scalar(@sections); + my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); + $groupslist = join(',',sort(keys(%curr_groups))); } my $jscript; - my $title = 'Selecting a course'; + my $type = $env{'form.type'}; + if (!defined($env{'form.type'})) { + $type = 'Course'; + } + my $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 = 'Selecting course(s)'; + $title = &mt('Selecting [_1](s)',lc($type)); $jscript = &Apache::loncommon::check_uncheck_jscript(); $multelement = ''; } - $r->print(&Apache::loncommon::bodytag($title,undef,$loaditem,undef,undef,undef,undef,1)); - my %lt=&Apache::lonlocal::texthash( - 'cac' => 'Course Activity', - 'cde' => 'Course Description', - 'cdo' => 'Course Domain', - 'cin' => 'Course Institutional Code', - 'cow' => "Course Owner's Username"); + $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), + '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;"; @@ -152,6 +169,25 @@ ENDDOCUMENT $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) { @@ -173,26 +209,26 @@ function gochoose(cname,cdom,cdesc,multi } } } - opener.document.$env{'form.form'}.coursetotal.value = courseCount; - if (typeof(opener.document.$env{'form.form'}.coursepick.length) == + opener.document.$env{'form.form'}.$elements{$type}{'total'}.value = courseCount; + if (typeof(opener.document.$env{'form.form'}.$elements{$type}{'name'}.length) == 'undefined') { - if (opener.document.$env{'form.form'}.coursepick.value == 'specific') { - opener.document.$env{'form.form'}.coursepick.checked = true; + if (opener.document.$env{'form.form'}.$elements{$type}{'name'}.value == 'specific') { + opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = true; } else { - opener.document.$env{'form.form'}.coursepick.checked = false; + opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = false; } } else { - for (var j=0; j 0) { courses = courses.substr(0,courses.length-2); - opener.document.$env{'form.form'}.courselist.value = courses; + opener.document.$env{'form.form'}.$elements{$type}{'list'}.value = courses; } } else { $name_code @@ -240,13 +276,14 @@ function setSections() { opener.document.$env{"form.form"}.currsec.options[0].selected = false } } + opener.document.$env{"form.form"}.groups.value='$groupslist'; self.close() } $jscript $submitopener -
+ $name_input @@ -257,9 +294,9 @@ $lt{'cac'}: $sincefilterform
$lt{'cdo'}: $domainselectform
-$lt{'cin'}: - +$lt{'cog'}: $typeselectform
+$instcodeform $lt{'cow'}:
@@ -278,19 +315,20 @@ ENDSCRIPT unless ($instcodefilter) { $instcodefilter='.'; } unless ($ownerfilter) { $ownerfilter='.'; } unless ($coursefilter) { $coursefilter='.'; } + unless ($type) { $type = '.'; } my $timefilter=($sincefilter==-1?1:time-$sincefilter); my %courses= &Apache::lonnet::courseiddump - ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter); - $r->print(''); + ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter,undef,undef,$type); + $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); + $descr = &unescape($1); } else { - $descr = &Apache::lonnet::unescape($courses{$course}); + $descr = &unescape($courses{$course}); } my $description = $descr; push (@{$by_descrip{$description}}, $course); @@ -301,21 +339,25 @@ ENDSCRIPT onclick="javascript:uncheckAll(document.courselist.course_id)" />

'); } - foreach my $description (sort(keys(%by_descrip))) { + 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}; + 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(" - ".&Apache::lonnet::unescape($instcode)); + $r->print(" - ".&unescape($instcode)); } unless ($owner eq '') { - $r->print(", owner - ".&Apache::lonnet::unescape($owner)); + $r->print(", owner - ".&unescape($owner)); + } + unless ($ttype eq '') { + $r->print('('.&Apache::lonnet::unescape($ttype).')'); } if ($multiple) { $r->print("\n"); } $r->print("
\n"); @@ -329,13 +371,14 @@ ENDSCRIPT $r->print(''."\n". ''."\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; }