loncom/interface/lonpickcourse.pm - view

File: [LON-CAPA] / loncom / interface / lonpickcourse.pm
Revision 1.28: download - view: text, annotated - select for diffs
Tue Apr 12 00:20:01 2005 UTC (19 years, 2 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, version_1_99_1_tmcc, version_1_99_1, version_1_99_0_tmcc, version_1_99_0, HEAD

Bug 3912.  DCs can use courseID (e.g., 257472759ae4061msul1) as a filter when using pickcourse.

1: # The LearningOnline Network 2: # Pick a course 3: # 4: # $Id: lonpickcourse.pm,v 1.28 2005/04/12 00:20:01 raeburn Exp $ 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; 36: use Apache::lonlocal; 37: 38: sub handler { 39: my $r = shift; 40: &Apache::loncommon::content_type($r,'text/html'); 41: $r->send_http_header; 42: return OK if $r->header_only; 43: 44: # ------------------------------------------------------------ Print the screen 45: my $html=&Apache::lonxml::xmlbegin(); 46: $r->print(<<ENDDOCUMENT); 47: $html 48: <head> 49: <title>The LearningOnline Network with CAPA</title> 50: </head> 51: ENDDOCUMENT 52: # Get parameters from query string 53: &Apache::loncommon::get_unprocessed_cgi 54: ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', 55: 'sincefilter','form','cnumelement', 56: 'cdomelement','cnameelement','roleelement', 57: 'pickedcourse','instcodefilter', 58: 'ownerfilter','coursefilter']); 59: # domain filter and selection 60: my $domainfilter=$env{'form.domainfilter'}; 61: $domainfilter=~s/\W//g; 62: unless ($domainfilter) { $domainfilter=''; } 63: my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter, 64: 'domainfilter',1); 65: # description filter 66: my $descriptfilter=$env{'form.descriptfilter'}; 67: unless ($descriptfilter) { $descriptfilter=''; } 68: my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"'); 69: # institutional code filter 70: my $instcodefilter=$env{'form.instcodefilter'}; 71: unless ($instcodefilter) { $instcodefilter=''; } 72: my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"'); 73: # course owner filter 74: my $ownerfilter=$env{'form.ownerfilter'}; 75: unless ($ownerfilter) { $ownerfilter=''; } 76: my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"'); 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: } 89: # last course activity filter and selection 90: my $sincefilter=$env{'form.sincefilter'}; 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', 100: '31104000' => 'last year', 101: 'select_form_order' => 102: ['-1','86400','604800','2592000','7776000', 103: '15552000','31104000'])); 104: # if called from loncreateuser, report sections, then close 105: my ($loaditem,$seclist); 106: my $num_sections = 0; 107: if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) { 108: $loaditem = 'onLoad="setSections()"'; 109: my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'}; 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)); 119: my %lt=&Apache::lonlocal::texthash( 120: 'cac' => 'Course Activity', 121: 'cde' => 'Course Description', 122: 'cdo' => 'Course Domain', 123: 'cin' => 'Course Institutional Code', 124: 'cow' => "Course Owner's usename"); 125: my ($name_code,$name_input); 126: if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') { 127: $name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;"; 128: $name_input ='<input type="hidden" name="cnameelement" value="'. 129: $env{'form.cnameelement'}.'" />'; 130: } 131: my $submitopener = ''; 132: my $autosubmit = ''; 133: my $roleelement = ''; 134: my $lastaction = 'self.close()'; 135: if ($env{'form.form'} eq 'cu') { 136: $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n". 137: 'document.courselist.submit();'; 138: } 139: my $roledom = $env{'form.roleelement'}; 140: if ($roledom) { 141: $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />'; 142: $submitopener = &Apache::lonroles::processpick($roledom); 143: $autosubmit = 'process_pick("'.$roledom.'")'; 144: } 145: $r->print(<<ENDSCRIPT); 146: <script> 147: function gochoose(cname,cdom,cdesc) { 148: $name_code 149: var openerForm = "$env{'form.form'}"; 150: opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; 151: if (openerForm == 'cu' || openerForm == 'rolechoice') { 152: opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom; 153: } 154: else { 155: var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; 156: var i; 157: for (i=0;i<slct.length;i++) { 158: if (slct.options[i].value==cdom) { slct.selectedIndex=i; } 159: } 160: } 161: $autosubmit 162: $lastaction 163: } 164: 165: function setSections() { 166: var numSections = $num_sections 167: var sectionsArray = new Array("$seclist") 168: opener.document.$env{"form.form"}.currsec.length = 0 169: if (numSections == 0) { 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) 173: } 174: else { 175: if (numSections == 1) { 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); 181: } 182: else { 183: for (var i=0; i<numSections; i++) { 184: opener.document.$env{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false) 185: } 186: opener.document.$env{"form.form"}.currsec.multiple=true 187: if (numSections < 3) { 188: opener.document.$env{"form.form"}.currsec.size=numSections; 189: } 190: else { 191: opener.document.$env{"form.form"}.currsec.size=3; 192: } 193: opener.document.$env{"form.form"}.currsec.options[0].selected = false 194: } 195: } 196: self.close() 197: } 198: </script> 199: $submitopener 200: <form method="post"> 201: <input type="hidden" name="cnumelement" value="$env{'form.cnumelement'}" /> 202: <input type="hidden" name="cdomelement" value="$env{'form.cdomelement'}" /> 203: $name_input 204: <input type="hidden" name="form" value="$env{'form.form'}" /> 205: $roleelement 206: $lt{'cac'}: $sincefilterform 207: <br /> 208: $lt{'cdo'}: $domainselectform 209: <br /> 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 /> 216: $courseidtag 217: $lt{'cde'}: 218: <input type="text" name="descriptfilter" size="40" value="$listdescript" /> 219: <p><input type="submit" name="gosearch" value="Search" /></p> 220: </form> 221: <hr /> 222: ENDSCRIPT 223: # ---------------------------------------------------------------- Get the data 224: if ($env{'form.gosearch'}) { 225: $r->print(&mt('Searching').' ...<br /> <br />'); 226: $r->rflush(); 227: unless ($descriptfilter) { $descriptfilter='.'; } 228: unless ($instcodefilter) { $instcodefilter='.'; } 229: unless ($ownerfilter) { $ownerfilter='.'; } 230: unless ($coursefilter) { $coursefilter='.'; } 231: my $timefilter=($sincefilter==-1?1:time-$sincefilter); 232: my %courses= 233: &Apache::lonnet::courseiddump 234: ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter); 235: $r->print('<form name="courselist">'); 236: my %by_descrip; 237: foreach my $course (keys %courses) { 238: my $descr; 239: if ($courses{$course} =~ m/^([^:]*):/) { 240: $descr = &Apache::lonnet::unescape($1); 241: } else { 242: $descr = &Apache::lonnet::unescape($courses{$course}); 243: } 244: my $description = lc($descr); 245: push (@{$by_descrip{$description}}, $course); 246: } 247: foreach my $description (sort(keys(%by_descrip))) { 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: } 265: } 266: if (!%courses) { $r->print(&mt('None found')); } 267: $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n". 268: '<input type="hidden" name="pickedcourse" value="" />'."\n". 269: '<input type="hidden" name="cnumelement" value="'.$env{'form.cnumelement'}.'" />'."\n". 270: '<input type="hidden" name="cdomelement" value="'.$env{'form.cdomelement'}.'" />'."\n". 271: '</form>'); 272: } 273: $r->print('</body></html>'); 274: return OK; 275: } 276: 277: 1; 278: __END__