Annotation of loncom/interface/lonpickcourse.pm, revision 1.41

1.1       www         1: # The LearningOnline Network
                      2: # Pick a course
                      3: #
1.41    ! albertel    4: # $Id: lonpickcourse.pm,v 1.40 2006/03/15 22:11:04 albertel Exp $
1.1       www         5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
                     28: 
                     29: package Apache::lonpickcourse;
                     30: 
                     31: use strict;
                     32: use Apache::Constants qw(:common);
                     33: use Apache::loncommon;
                     34: use Apache::loncoursedata;
                     35: use Apache::lonnet;
1.8       www        36: use Apache::lonlocal;
1.1       www        37: 
                     38: sub handler {
                     39:     my $r = shift;
1.8       www        40:     &Apache::loncommon::content_type($r,'text/html');
1.1       www        41:     $r->send_http_header;
                     42:     return OK if $r->header_only;
                     43: 
                     44: # ------------------------------------------------------------ Print the screen
1.40      albertel   45: 
1.5       www        46: # Get parameters from query string
1.1       www        47:     &Apache::loncommon::get_unprocessed_cgi
                     48:         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
1.13      albertel   49: 			       'sincefilter','form','cnumelement',
1.19      raeburn    50: 			       'cdomelement','cnameelement','roleelement',
1.28      raeburn    51:                                'pickedcourse','instcodefilter',
1.35      raeburn    52:                                'ownerfilter','coursefilter','multiple']);
1.5       www        53: # domain filter and selection
1.27      albertel   54:     my $domainfilter=$env{'form.domainfilter'};
1.1       www        55:     $domainfilter=~s/\W//g;
1.4       www        56:     unless ($domainfilter) { $domainfilter=''; }
                     57:     my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter,
                     58:                                                           'domainfilter',1);
1.5       www        59: # description filter
1.27      albertel   60:     my $descriptfilter=$env{'form.descriptfilter'};
1.4       www        61:     unless ($descriptfilter) { $descriptfilter=''; }
1.16      albertel   62:     my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"');
1.20      raeburn    63: # institutional code filter
1.27      albertel   64:     my $instcodefilter=$env{'form.instcodefilter'};
1.20      raeburn    65:     unless ($instcodefilter) { $instcodefilter=''; }
                     66:     my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');
                     67: # course owner filter
1.27      albertel   68:     my $ownerfilter=$env{'form.ownerfilter'};
1.20      raeburn    69:     unless ($ownerfilter) { $ownerfilter=''; }
                     70:     my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
1.28      raeburn    71: # course ID filter for DCs only
                     72:     my ($courseidtag,$coursefilter);
                     73:     if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.
                     74:                         $domainfilter.'/'})) {
                     75:         $coursefilter=$env{'form.coursefilter'};
                     76:         unless ($coursefilter) { $coursefilter=''; }
                     77:         my $listcourseid=&HTML::Entities::encode($coursefilter,'<>&"');
                     78:         $courseidtag = &mt('LON-CAPA course ID');
1.37      albertel   79:         $courseidtag .= qq|: <input type="text" name="coursefilter" size="25" value="$listcourseid" />
1.28      raeburn    80:         <br />
                     81:         |;
                     82:     }
1.5       www        83: # last course activity filter and selection
1.27      albertel   84:     my $sincefilter=$env{'form.sincefilter'};
1.5       www        85:     $sincefilter=~s/[^\d-]//g;
                     86:     unless ($sincefilter) { $sincefilter=-1; }
                     87:     my $sincefilterform=&Apache::loncommon::select_form($sincefilter,
                     88:        'sincefilter',('-1'=>'',
                     89:                       '86400' => 'today',
                     90:                       '604800' => 'last week',
                     91:                       '2592000' => 'last month',
                     92:                       '7776000' => 'last three months',
                     93:                       '15552000' => 'last six months',
1.9       albertel   94:                       '31104000' => 'last year',
                     95:                       'select_form_order' =>
                     96:                       ['-1','86400','604800','2592000','7776000',
                     97: 		      '15552000','31104000']));
1.19      raeburn    98: # if called from loncreateuser, report sections, then close
                     99:     my ($loaditem,$seclist);
                    100:     my $num_sections = 0;
1.27      albertel  101:     if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
1.19      raeburn   102:         $loaditem = 'onLoad="setSections()"';
1.27      albertel  103:         my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
1.19      raeburn   104:         my %sections_count = ();
                    105:         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
                    106:         my @sections = ();
                    107:         if ($num_sections > 0) {
1.31      albertel  108:             @sections = (sort {$a <=> $b} keys(%sections_count));
1.19      raeburn   109:             $seclist = join('","',@sections);
                    110:         }
                    111:     }
1.30      raeburn   112:     my $jscript;
                    113:     my $title = 'Selecting a course';
1.35      raeburn   114: # Setup for multiple course selections, if flag for multiples set.
                    115:     my $multiple = $env{'form.multiple'};
                    116:     my $multelement;
                    117:     if ($multiple) {
1.30      raeburn   118:         $title = 'Selecting course(s)';
                    119:         $jscript = &Apache::loncommon::check_uncheck_jscript();
1.35      raeburn   120:         $multelement = '<input type="hidden" name="multiple" value="'.$multiple.'" />';
1.30      raeburn   121:     }
1.41    ! albertel  122:     $r->print(&Apache::loncommon::start_page($title,undef,
        !           123: 					     {'add_entries' => $loaditem,
        !           124: 					      'no_nav_bar'  => 1, }));
1.8       www       125:     my %lt=&Apache::lonlocal::texthash(
                    126: 				       'cac' => 'Course Activity',
                    127: 				       'cde' => 'Course Description',
1.20      raeburn   128: 				       'cdo' => 'Course Domain',
                    129:                                        'cin' => 'Course Institutional Code',
1.38      www       130:                                        'cow' => "Course Owner's Username");
1.13      albertel  131:     my ($name_code,$name_input);
1.27      albertel  132:     if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {
                    133: 	$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";
1.13      albertel  134: 	$name_input ='<input type="hidden" name="cnameelement" value="'.
1.27      albertel  135: 	    $env{'form.cnameelement'}.'" />';
1.13      albertel  136:     }
1.18      raeburn   137:     my $submitopener = '';
                    138:     my $autosubmit = '';
                    139:     my $roleelement = '';
1.19      raeburn   140:     my $lastaction = 'self.close()';
1.27      albertel  141:     if ($env{'form.form'} eq 'cu') {
1.19      raeburn   142:         $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".
                    143:                       'document.courselist.submit();';
                    144:     }
1.27      albertel  145:     my $roledom = $env{'form.roleelement'};
1.18      raeburn   146:     if ($roledom) {
                    147:         $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />';
1.36      raeburn   148:         $submitopener = &Apache::lonroles::processpick();
1.18      raeburn   149:         $autosubmit = 'process_pick("'.$roledom.'")';
                    150:     }
1.1       www       151:     $r->print(<<ENDSCRIPT);
                    152: <script>
1.35      raeburn   153: function gochoose(cname,cdom,cdesc,multiple,caller) {
1.27      albertel  154:     var openerForm = "$env{'form.form'}";
1.30      raeburn   155:     courseCount = 0;
                    156:     var courses = '';
1.35      raeburn   157:     if (multiple) {
1.33      albertel  158: 	if (typeof(document.courselist.course_id.length) == 'undefined') {
                    159: 	    // only 1 course checkbox was created
                    160: 	    if (document.courselist.course_id.checked) {
                    161: 		courses = courses + document.courselist.course_id.value + "&&";
                    162: 		courseCount ++;
                    163: 	    }
                    164: 	} else {
                    165: 	    for (var j=0; j<document.courselist.course_id.length; j++) {
                    166: 		if (document.courselist.course_id[j].checked) {
                    167: 		    courses = courses + document.courselist.course_id[j].value + "&&";
                    168: 		    courseCount ++;
                    169: 		}
                    170: 	    }
                    171: 	} 
1.30      raeburn   172:         opener.document.$env{'form.form'}.coursetotal.value = courseCount;
1.33      albertel  173: 	if (typeof(opener.document.$env{'form.form'}.coursepick.length) ==
                    174: 	    'undefined') {
                    175: 	    if (opener.document.$env{'form.form'}.coursepick.value == 'specific') {  
                    176: 		opener.document.$env{'form.form'}.coursepick.checked = true;
                    177: 	    } else {
                    178: 		opener.document.$env{'form.form'}.coursepick.checked = false;
                    179: 	    }
                    180: 	} else {
                    181: 	    for (var j=0; j<opener.document.$env{'form.form'}.coursepick.length; j++) { 
                    182: 		if (opener.document.$env{'form.form'}.coursepick[j].value == 'specific') {  
                    183: 		    opener.document.$env{'form.form'}.coursepick[j].checked = true;
1.34      albertel  184: 		} else {
1.33      albertel  185: 		    opener.document.$env{'form.form'}.coursepick[j].checked = false;
                    186: 		}
                    187: 	    }
                    188: 	}
                    189: 	if (courseCount > 0) {
                    190: 	    courses = courses.substr(0,courses.length-2);
                    191: 	    opener.document.$env{'form.form'}.courselist.value = courses;
                    192: 	}
1.34      albertel  193:     } else {
1.30      raeburn   194:         $name_code
                    195:         opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
1.35      raeburn   196:         var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
                    197:         if (slct.options == undefined) {
1.30      raeburn   198:             opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom;
1.35      raeburn   199:         }
                    200:         else {
1.30      raeburn   201:             var i;
                    202:             for (i=0;i<slct.length;i++) {
                    203:                 if (slct.options[i].value==cdom) { slct.selectedIndex=i; }
                    204:             }
1.19      raeburn   205:         }
1.1       www       206:     }
1.18      raeburn   207:     $autosubmit
1.19      raeburn   208:     $lastaction
                    209: }
                    210: 
                    211: function setSections() {
                    212:     var numSections = $num_sections
                    213:     var sectionsArray = new Array("$seclist")
1.27      albertel  214:     opener.document.$env{"form.form"}.currsec.length = 0
1.19      raeburn   215:     if (numSections == 0) {
1.27      albertel  216:         opener.document.$env{"form.form"}.currsec.multiple=false
                    217:         opener.document.$env{"form.form"}.currsec.size=1;
                    218:         opener.document.$env{"form.form"}.currsec.options[0] = new Option('No existing sections','',false,false)
1.34      albertel  219:     } else {
1.23      raeburn   220:         if (numSections == 1) {
1.27      albertel  221:             opener.document.$env{"form.form"}.currsec.multiple=false;
                    222:             opener.document.$env{"form.form"}.currsec.size=1;
                    223:             opener.document.$env{"form.form"}.currsec.options[0] = new Option('Select','',true,true);
                    224:             opener.document.$env{"form.form"}.currsec.options[1] = new Option('No section','',false,false) 
                    225:             opener.document.$env{"form.form"}.currsec.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);
1.34      albertel  226:         } else {
1.23      raeburn   227:             for (var i=0; i<numSections; i++) {
1.27      albertel  228:                 opener.document.$env{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
1.23      raeburn   229:             }
1.27      albertel  230:             opener.document.$env{"form.form"}.currsec.multiple=true
1.23      raeburn   231:             if (numSections < 3) {
1.27      albertel  232:                 opener.document.$env{"form.form"}.currsec.size=numSections;
1.34      albertel  233:             } else {
1.27      albertel  234:                 opener.document.$env{"form.form"}.currsec.size=3;
1.23      raeburn   235:             }
1.27      albertel  236:             opener.document.$env{"form.form"}.currsec.options[0].selected = false
1.19      raeburn   237:         }
                    238:     }
                    239:     self.close()
1.1       www       240: }
1.30      raeburn   241: 
                    242: $jscript
1.1       www       243: </script>
1.18      raeburn   244: $submitopener
1.30      raeburn   245: <form method="post" name="filterpicker">
1.27      albertel  246: <input type="hidden" name="cnumelement" value="$env{'form.cnumelement'}" />
                    247: <input type="hidden" name="cdomelement" value="$env{'form.cdomelement'}" />
1.13      albertel  248: $name_input
1.27      albertel  249: <input type="hidden" name="form" value="$env{'form.form'}" />
1.18      raeburn   250: $roleelement
1.35      raeburn   251: $multelement
1.8       www       252: $lt{'cac'}: $sincefilterform
1.4       www       253: <br />
1.8       www       254: $lt{'cdo'}: $domainselectform
1.4       www       255: <br />
1.20      raeburn   256: $lt{'cin'}:
                    257: <input type="text" name="instcodefilter" size="10" value="$listinstcode" />
                    258: <br />
                    259: $lt{'cow'}:
                    260: <input type="text" name="ownerfilter" size="10" value="$listowner" />
                    261: <br />
1.28      raeburn   262: $courseidtag
1.8       www       263: $lt{'cde'}:
1.15      www       264: <input type="text" name="descriptfilter" size="40" value="$listdescript" />
1.5       www       265: <p><input type="submit" name="gosearch" value="Search" /></p>
1.4       www       266: </form>
1.5       www       267: <hr />
1.1       www       268: ENDSCRIPT
1.2       www       269: # ---------------------------------------------------------------- Get the data
1.27      albertel  270:     if ($env{'form.gosearch'}) {
1.8       www       271:         $r->print(&mt('Searching').' ...<br />&nbsp;<br />');
1.6       www       272:         $r->rflush();
1.5       www       273: 	unless ($descriptfilter) { $descriptfilter='.'; }
1.20      raeburn   274:         unless ($instcodefilter) { $instcodefilter='.'; }
                    275:         unless ($ownerfilter) { $ownerfilter='.'; }
1.28      raeburn   276:         unless ($coursefilter) { $coursefilter='.'; }
1.5       www       277:         my $timefilter=($sincefilter==-1?1:time-$sincefilter);
                    278: 	my %courses=
                    279: 	    &Apache::lonnet::courseiddump
1.28      raeburn   280: 	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
1.19      raeburn   281: 	$r->print('<form name="courselist">');
1.10      albertel  282: 	my %by_descrip;
1.31      albertel  283:         my $numcourses = keys(%courses);
                    284: 	foreach my $course (keys(%courses)) {
1.17      raeburn   285:             my $descr;
1.38      www       286:             if ($courses{$course} =~ m/^([^:]*):/i) {
1.17      raeburn   287:                 $descr = &Apache::lonnet::unescape($1);
                    288:             } else {
                    289:                 $descr = &Apache::lonnet::unescape($courses{$course});
                    290:             }
1.38      www       291:             my $description = $descr;
1.25      raeburn   292:             push (@{$by_descrip{$description}}, $course);
1.10      albertel  293: 	}
1.35      raeburn   294:         if ($numcourses > 1 && $multiple) {
1.30      raeburn   295:             $r->print('<input type="button" value="check all"
                    296:                     onclick="javascript:checkAll(document.courselist.course_id)" />                    &nbsp;&nbsp;<input type="button" value="uncheck all"
                    297:                     onclick="javascript:uncheckAll(document.courselist.course_id)" />
                    298:                     <br /><br />');
                    299:         }
1.39      albertel  300: 	foreach my $description (sort 
                    301: 				 { lc($a) cmp lc($b) } (keys(%by_descrip))) {
1.24      raeburn   302:             foreach my $course (@{$by_descrip{$description}}) {
                    303: 	        my $cleandesc=&HTML::Entities::encode($description,'<>&"');
                    304: 	        $cleandesc=~s/'/\\'/g;
                    305: 	        my ($cdom,$cnum)=split(/\_/,$course);
                    306:                 my ($descr,$instcode,$owner) = split/:/,$courses{$course};
1.35      raeburn   307:                 $r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc));
1.30      raeburn   308: 	        $r->print($description.'('.
1.24      raeburn   309: 		      ($Apache::lonnet::domaindescription{$cdom}?
                    310:                        $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
                    311:                 unless ($instcode eq '') {
                    312:                     $r->print(" - ".&Apache::lonnet::unescape($instcode));
                    313:                 }
                    314:                 unless ($owner eq '') {
                    315:                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                    316:                 }
1.35      raeburn   317: 		if ($multiple) { $r->print("</label>\n"); }
1.24      raeburn   318:                 $r->print("<br />\n");
                    319:             }
1.5       www       320: 	}
1.30      raeburn   321: 	if (!%courses) { 
                    322:             $r->print(&mt('None found'));
1.35      raeburn   323:         } elsif ($multiple) {
1.30      raeburn   324:             $r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />');
                    325:         }
1.27      albertel  326:         $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n".
1.19      raeburn   327:                    '<input type="hidden" name="pickedcourse" value="" />'."\n".
1.27      albertel  328:                    '<input type="hidden" name="cnumelement" value="'.$env{'form.cnumelement'}.'" />'."\n".
1.36      raeburn   329:                    '<input type="hidden" name="cdomelement" value="'.$env{'form.cdomelement'}.'" />'."\n");
                    330:         if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) {
                    331:            $r->print('<input type="hidden" name="roleelement" value="'.$env{'form.roleelement'}.'" />'."\n");
                    332:         }
                    333:         $r->print("</form>\n");
1.2       www       334:     }
1.40      albertel  335:     $r->print(&Apache::loncommon::end_page());
1.1       www       336:     return OK;
1.18      raeburn   337: }
1.1       www       338: 
1.30      raeburn   339: sub course_chooser {
1.35      raeburn   340:     my ($multiple,$cdom,$cnum,$cleandesc) = @_;
1.30      raeburn   341:     my $output; 
1.35      raeburn   342:     if ($multiple) {
1.32      albertel  343:         $output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
1.30      raeburn   344:     } else {
                    345:         $output = '<input type="button" value="Select" onClick="gochoose('.
                    346:                   "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";
                    347:     }
                    348:     return $output;
                    349: } 
                    350: 
1.1       www       351: 1;
                    352: __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>