loncom/interface/lonpickcourse.pm - view

File: [LON-CAPA] / loncom / interface / lonpickcourse.pm
Revision 1.17: download - view: text, annotated - select for diffs
Tue Jun 29 14:56:32 2004 UTC (19 years, 10 months ago) by raeburn
Branches: MAIN
CVS tags: version_1_2_X, version_1_2_1, version_1_2_0, version_1_1_99_5, version_1_1_99_4, version_1_1_99_3, version_1_1_99_2, version_1_1_99_1, HEAD

Include institutional course code in nohist_courseids.db.
Format of entries in nohist_courseids.db now -
course_id = description:institutional code:last activity
both (keys and values are escaped).
lonnet::courseiddump now returns escaped values in hash (keys are unescaped),
to preserve the : separator between description and institutional code.

1: # The LearningOnline Network 2: # Pick a course 3: # 4: # $Id: lonpickcourse.pm,v 1.17 2004/06/29 14:56:32 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: $r->print(<<ENDDOCUMENT); 46: <html> 47: <head> 48: <title>The LearningOnline Network with CAPA</title> 49: </head> 50: ENDDOCUMENT 51: # Get parameters from query string 52: &Apache::loncommon::get_unprocessed_cgi 53: ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', 54: 'sincefilter','form','cnumelement', 55: 'cdomelement','cnameelement']); 56: # domain filter and selection 57: my $domainfilter=$ENV{'form.domainfilter'}; 58: $domainfilter=~s/\W//g; 59: unless ($domainfilter) { $domainfilter=''; } 60: my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter, 61: 'domainfilter',1); 62: # description filter 63: my $descriptfilter=$ENV{'form.descriptfilter'}; 64: unless ($descriptfilter) { $descriptfilter=''; } 65: my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"'); 66: # last course activity filter and selection 67: my $sincefilter=$ENV{'form.sincefilter'}; 68: $sincefilter=~s/[^\d-]//g; 69: unless ($sincefilter) { $sincefilter=-1; } 70: my $sincefilterform=&Apache::loncommon::select_form($sincefilter, 71: 'sincefilter',('-1'=>'', 72: '86400' => 'today', 73: '604800' => 'last week', 74: '2592000' => 'last month', 75: '7776000' => 'last three months', 76: '15552000' => 'last six months', 77: '31104000' => 'last year', 78: 'select_form_order' => 79: ['-1','86400','604800','2592000','7776000', 80: '15552000','31104000'])); 81: 82: $r->print(&Apache::loncommon::bodytag("Selecting a Course")); 83: my %lt=&Apache::lonlocal::texthash( 84: 'cac' => 'Course Activity', 85: 'cde' => 'Course Description', 86: 'cdo' => 'Course Domain'); 87: my ($name_code,$name_input); 88: if (defined($ENV{'form.cnameelement'}) && $ENV{'form.cnameelement'} ne '') { 89: $name_code = "opener.document.$ENV{'form.form'}.$ENV{'form.cnameelement'}.value=cdesc;"; 90: $name_input ='<input type="hidden" name="cnameelement" value="'. 91: $ENV{'form.cnameelement'}.'" />'; 92: } 93: $r->print(<<ENDSCRIPT); 94: <script> 95: function gochoose(cname,cdom,cdesc) { 96: $name_code 97: opener.document.$ENV{"form.form"}.$ENV{'form.cnumelement'}.value=cname; 98: var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}; 99: var i; 100: for (i=0;i<slct.length;i++) { 101: if (slct.options[i].value==cdom) { slct.selectedIndex=i; } 102: } 103: self.close(); 104: } 105: </script> 106: <form method="post"> 107: <input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" /> 108: <input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> 109: $name_input 110: <input type="hidden" name="form" value="$ENV{'form.form'}" /> 111: 112: $lt{'cac'}: $sincefilterform 113: <br /> 114: $lt{'cdo'}: $domainselectform 115: <br /> 116: $lt{'cde'}: 117: <input type="text" name="descriptfilter" size="40" value="$listdescript" /> 118: <p><input type="submit" name="gosearch" value="Search" /></p> 119: </form> 120: <hr /> 121: ENDSCRIPT 122: # ---------------------------------------------------------------- Get the data 123: if ($ENV{'form.gosearch'}) { 124: $r->print(&mt('Searching').' ...<br /> <br />'); 125: $r->rflush(); 126: unless ($descriptfilter) { $descriptfilter='.'; } 127: my $timefilter=($sincefilter==-1?1:time-$sincefilter); 128: my %courses= 129: &Apache::lonnet::courseiddump 130: ($domainfilter,$descriptfilter,$timefilter); 131: $r->print('<form>'); 132: my %by_descrip; 133: foreach my $course (keys %courses) { 134: my $descr; 135: if ($courses{$course} =~ m/^([^:]*):/) { 136: $descr = &Apache::lonnet::unescape($1); 137: } else { 138: $descr = &Apache::lonnet::unescape($courses{$course}); 139: } 140: $by_descrip{lc($descr)}=$course; 141: } 142: foreach my $description (sort(keys(%by_descrip))) { 143: my $course=$by_descrip{$description}; 144: my $cleandesc=&HTML::Entities::encode($description,'<>&"'); 145: $cleandesc=~s/'/\\'/g; 146: my ($cdom,$cnum)=split(/\_/,$course); 147: $r->print('<input type="button" value="Select" onClick="gochoose('. 148: "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('. 149: ($Apache::lonnet::domaindescription{$cdom}? 150: $Apache::lonnet::domaindescription{$cdom}:$cdom). 151: ")<br />\n"); 152: } 153: if (!%courses) { $r->print(&mt('None found')); } 154: $r->print('</form>'); 155: } 156: $r->print('</body></html>'); 157: return OK; 158: } 159: 160: 1; 161: __END__