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

1.1       www         1: # The LearningOnline Network
                      2: # Pick a course
                      3: #
1.28    ! raeburn     4: # $Id: lonpickcourse.pm,v 1.27 2005/04/07 06:56:23 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.26      albertel   45:     my $html=&Apache::lonxml::xmlbegin();
1.1       www        46:     $r->print(<<ENDDOCUMENT);
1.26      albertel   47: $html
1.1       www        48: <head>
                     49: <title>The LearningOnline Network with CAPA</title>
                     50: </head>
                     51: ENDDOCUMENT
1.5       www        52: # Get parameters from query string
1.1       www        53:     &Apache::loncommon::get_unprocessed_cgi
                     54:         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
1.13      albertel   55: 			       'sincefilter','form','cnumelement',
1.19      raeburn    56: 			       'cdomelement','cnameelement','roleelement',
1.28    ! raeburn    57:                                'pickedcourse','instcodefilter',
        !            58:                                'ownerfilter','coursefilter']);
1.5       www        59: # domain filter and selection
1.27      albertel   60:     my $domainfilter=$env{'form.domainfilter'};
1.1       www        61:     $domainfilter=~s/\W//g;
1.4       www        62:     unless ($domainfilter) { $domainfilter=''; }
                     63:     my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter,
                     64:                                                           'domainfilter',1);
1.5       www        65: # description filter
1.27      albertel   66:     my $descriptfilter=$env{'form.descriptfilter'};
1.4       www        67:     unless ($descriptfilter) { $descriptfilter=''; }
1.16      albertel   68:     my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"');
1.20      raeburn    69: # institutional code filter
1.27      albertel   70:     my $instcodefilter=$env{'form.instcodefilter'};
1.20      raeburn    71:     unless ($instcodefilter) { $instcodefilter=''; }
                     72:     my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');
                     73: # course owner filter
1.27      albertel   74:     my $ownerfilter=$env{'form.ownerfilter'};
1.20      raeburn    75:     unless ($ownerfilter) { $ownerfilter=''; }
                     76:     my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
1.28    ! raeburn    77: # course ID filter for DCs only
        !            78:     my ($courseidtag,$coursefilter);
        !            79:     if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.
        !            80:                         $domainfilter.'/'})) {
        !            81:         $coursefilter=$env{'form.coursefilter'};
        !            82:         unless ($coursefilter) { $coursefilter=''; }
        !            83:         my $listcourseid=&HTML::Entities::encode($coursefilter,'<>&"');
        !            84:         $courseidtag = &mt('LON-CAPA course ID');
        !            85:         $courseidtag .= qq|<input type="text" name="coursefilter" size="25" value="$listcourseid" />
        !            86:         <br />
        !            87:         |;
        !            88:     }
1.5       www        89: # last course activity filter and selection
1.27      albertel   90:     my $sincefilter=$env{'form.sincefilter'};
1.5       www        91:     $sincefilter=~s/[^\d-]//g;
                     92:     unless ($sincefilter) { $sincefilter=-1; }
                     93:     my $sincefilterform=&Apache::loncommon::select_form($sincefilter,
                     94:        'sincefilter',('-1'=>'',
                     95:                       '86400' => 'today',
                     96:                       '604800' => 'last week',
                     97:                       '2592000' => 'last month',
                     98:                       '7776000' => 'last three months',
                     99:                       '15552000' => 'last six months',
1.9       albertel  100:                       '31104000' => 'last year',
                    101:                       'select_form_order' =>
                    102:                       ['-1','86400','604800','2592000','7776000',
                    103: 		      '15552000','31104000']));
1.19      raeburn   104: # if called from loncreateuser, report sections, then close
                    105:     my ($loaditem,$seclist);
                    106:     my $num_sections = 0;
1.27      albertel  107:     if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
1.19      raeburn   108:         $loaditem = 'onLoad="setSections()"';
1.27      albertel  109:         my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
1.19      raeburn   110:         my %sections_count = ();
                    111:         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
                    112:         my @sections = ();
                    113:         if ($num_sections > 0) {
                    114:             @sections = (sort {$a <=> $b} keys %sections_count);
                    115:             $seclist = join('","',@sections);
                    116:         }
                    117:     }
                    118:     $r->print(&Apache::loncommon::bodytag("Selecting a Course",undef,$loaditem));
1.8       www       119:     my %lt=&Apache::lonlocal::texthash(
                    120: 				       'cac' => 'Course Activity',
                    121: 				       'cde' => 'Course Description',
1.20      raeburn   122: 				       'cdo' => 'Course Domain',
                    123:                                        'cin' => 'Course Institutional Code',
                    124:                                        'cow' => "Course Owner's usename");
1.13      albertel  125:     my ($name_code,$name_input);
1.27      albertel  126:     if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {
                    127: 	$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";
1.13      albertel  128: 	$name_input ='<input type="hidden" name="cnameelement" value="'.
1.27      albertel  129: 	    $env{'form.cnameelement'}.'" />';
1.13      albertel  130:     }
1.18      raeburn   131:     my $submitopener = '';
                    132:     my $autosubmit = '';
                    133:     my $roleelement = '';
1.19      raeburn   134:     my $lastaction = 'self.close()';
1.27      albertel  135:     if ($env{'form.form'} eq 'cu') {
1.19      raeburn   136:         $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".
                    137:                       'document.courselist.submit();';
                    138:     }
1.27      albertel  139:     my $roledom = $env{'form.roleelement'};
1.18      raeburn   140:     if ($roledom) {
                    141:         $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />';
                    142:         $submitopener = &Apache::lonroles::processpick($roledom);
                    143:         $autosubmit = 'process_pick("'.$roledom.'")';
                    144:     }
1.1       www       145:     $r->print(<<ENDSCRIPT);
                    146: <script>
1.13      albertel  147: function gochoose(cname,cdom,cdesc) {
                    148:     $name_code
1.27      albertel  149:     var openerForm = "$env{'form.form'}";
                    150:     opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
1.19      raeburn   151:     if (openerForm == 'cu' || openerForm == 'rolechoice') {
1.27      albertel  152:          opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom;
1.19      raeburn   153:     }
                    154:     else {
1.27      albertel  155:         var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
1.19      raeburn   156:         var i;
                    157:         for (i=0;i<slct.length;i++) {
                    158:             if (slct.options[i].value==cdom) { slct.selectedIndex=i; }
                    159:         }
1.1       www       160:     }
1.18      raeburn   161:     $autosubmit
1.19      raeburn   162:     $lastaction
                    163: }
                    164: 
                    165: function setSections() {
                    166:     var numSections = $num_sections
                    167:     var sectionsArray = new Array("$seclist")
1.27      albertel  168:     opener.document.$env{"form.form"}.currsec.length = 0
1.19      raeburn   169:     if (numSections == 0) {
1.27      albertel  170:         opener.document.$env{"form.form"}.currsec.multiple=false
                    171:         opener.document.$env{"form.form"}.currsec.size=1;
                    172:         opener.document.$env{"form.form"}.currsec.options[0] = new Option('No existing sections','',false,false)
1.19      raeburn   173:     }
                    174:     else {
1.23      raeburn   175:         if (numSections == 1) {
1.27      albertel  176:             opener.document.$env{"form.form"}.currsec.multiple=false;
                    177:             opener.document.$env{"form.form"}.currsec.size=1;
                    178:             opener.document.$env{"form.form"}.currsec.options[0] = new Option('Select','',true,true);
                    179:             opener.document.$env{"form.form"}.currsec.options[1] = new Option('No section','',false,false) 
                    180:             opener.document.$env{"form.form"}.currsec.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);
1.19      raeburn   181:         }
                    182:         else {
1.23      raeburn   183:             for (var i=0; i<numSections; i++) {
1.27      albertel  184:                 opener.document.$env{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
1.23      raeburn   185:             }
1.27      albertel  186:             opener.document.$env{"form.form"}.currsec.multiple=true
1.23      raeburn   187:             if (numSections < 3) {
1.27      albertel  188:                 opener.document.$env{"form.form"}.currsec.size=numSections;
1.23      raeburn   189:             }
                    190:             else {
1.27      albertel  191:                 opener.document.$env{"form.form"}.currsec.size=3;
1.23      raeburn   192:             }
1.27      albertel  193:             opener.document.$env{"form.form"}.currsec.options[0].selected = false
1.19      raeburn   194:         }
                    195:     }
                    196:     self.close()
1.1       www       197: }
                    198: </script>
1.18      raeburn   199: $submitopener
1.4       www       200: <form method="post">
1.27      albertel  201: <input type="hidden" name="cnumelement" value="$env{'form.cnumelement'}" />
                    202: <input type="hidden" name="cdomelement" value="$env{'form.cdomelement'}" />
1.13      albertel  203: $name_input
1.27      albertel  204: <input type="hidden" name="form" value="$env{'form.form'}" />
1.18      raeburn   205: $roleelement
1.8       www       206: $lt{'cac'}: $sincefilterform
1.4       www       207: <br />
1.8       www       208: $lt{'cdo'}: $domainselectform
1.4       www       209: <br />
1.20      raeburn   210: $lt{'cin'}:
                    211: <input type="text" name="instcodefilter" size="10" value="$listinstcode" />
                    212: <br />
                    213: $lt{'cow'}:
                    214: <input type="text" name="ownerfilter" size="10" value="$listowner" />
                    215: <br />
1.28    ! raeburn   216: $courseidtag
1.8       www       217: $lt{'cde'}:
1.15      www       218: <input type="text" name="descriptfilter" size="40" value="$listdescript" />
1.5       www       219: <p><input type="submit" name="gosearch" value="Search" /></p>
1.4       www       220: </form>
1.5       www       221: <hr />
1.1       www       222: ENDSCRIPT
1.2       www       223: # ---------------------------------------------------------------- Get the data
1.27      albertel  224:     if ($env{'form.gosearch'}) {
1.8       www       225:         $r->print(&mt('Searching').' ...<br />&nbsp;<br />');
1.6       www       226:         $r->rflush();
1.5       www       227: 	unless ($descriptfilter) { $descriptfilter='.'; }
1.20      raeburn   228:         unless ($instcodefilter) { $instcodefilter='.'; }
                    229:         unless ($ownerfilter) { $ownerfilter='.'; }
1.28    ! raeburn   230:         unless ($coursefilter) { $coursefilter='.'; }
1.5       www       231:         my $timefilter=($sincefilter==-1?1:time-$sincefilter);
                    232: 	my %courses=
                    233: 	    &Apache::lonnet::courseiddump
1.28    ! raeburn   234: 	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
1.19      raeburn   235: 	$r->print('<form name="courselist">');
1.10      albertel  236: 	my %by_descrip;
                    237: 	foreach my $course (keys %courses) {
1.17      raeburn   238:             my $descr;
                    239:             if ($courses{$course} =~ m/^([^:]*):/) {
                    240:                 $descr = &Apache::lonnet::unescape($1);
                    241:             } else {
                    242:                 $descr = &Apache::lonnet::unescape($courses{$course});
                    243:             }
1.24      raeburn   244:             my $description = lc($descr);
1.25      raeburn   245:             push (@{$by_descrip{$description}}, $course);
1.10      albertel  246: 	}
                    247: 	foreach my $description (sort(keys(%by_descrip))) {
1.24      raeburn   248:             foreach my $course (@{$by_descrip{$description}}) {
                    249: 	        my $cleandesc=&HTML::Entities::encode($description,'<>&"');
                    250: 	        $cleandesc=~s/'/\\'/g;
                    251: 	        my ($cdom,$cnum)=split(/\_/,$course);
                    252:                 my ($descr,$instcode,$owner) = split/:/,$courses{$course};
                    253: 	        $r->print('<input type="button" value="Select" onClick="gochoose('.
                    254: 		      "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.
                    255: 		      ($Apache::lonnet::domaindescription{$cdom}?
                    256:                        $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
                    257:                 unless ($instcode eq '') {
                    258:                     $r->print(" - ".&Apache::lonnet::unescape($instcode));
                    259:                 }
                    260:                 unless ($owner eq '') {
                    261:                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                    262:                 }
                    263:                 $r->print("<br />\n");
                    264:             }
1.5       www       265: 	}
1.12      albertel  266: 	if (!%courses) { $r->print(&mt('None found')); }
1.27      albertel  267:         $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n".
1.19      raeburn   268:                    '<input type="hidden" name="pickedcourse" value="" />'."\n".
1.27      albertel  269:                    '<input type="hidden" name="cnumelement" value="'.$env{'form.cnumelement'}.'" />'."\n".
                    270:                    '<input type="hidden" name="cdomelement" value="'.$env{'form.cdomelement'}.'" />'."\n".
1.19      raeburn   271:                    '</form>');
1.2       www       272:     }
1.5       www       273:     $r->print('</body></html>');
1.1       www       274:     return OK;
1.18      raeburn   275: }
1.1       www       276: 
                    277: 1;
                    278: __END__

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