loncom/interface/lonpickcourse.pm - view

File: [LON-CAPA] / loncom / interface / lonpickcourse.pm
Revision 1.12: download - view: text, annotated - select for diffs
Tue Nov 4 16:33:10 2003 UTC (20 years, 7 months ago) by albertel
Branches: MAIN
CVS tags: version_1_1_X, version_1_1_3, version_1_1_2, version_1_1_1, version_1_1_0, version_1_0_99_3, version_1_0_99_2, version_1_0_99_1, version_1_0_99, HEAD

- localize last commit

1: # The LearningOnline Network 2: # Pick a course 3: # 4: # $Id: lonpickcourse.pm,v 1.12 2003/11/04 16:33:10 albertel 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','cdomelement']); 55: # domain filter and selection 56: my $domainfilter=$ENV{'form.domainfilter'}; 57: $domainfilter=~s/\W//g; 58: unless ($domainfilter) { $domainfilter=''; } 59: my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter, 60: 'domainfilter',1); 61: # description filter 62: my $descriptfilter=$ENV{'form.descriptfilter'}; 63: $descriptfilter=~s/[^\w\s]//g; 64: unless ($descriptfilter) { $descriptfilter=''; } 65: 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: $r->print(<<ENDSCRIPT); 88: <script> 89: function gochoose(cname,cdom) { 90: opener.document.$ENV{'form.form'}.$ENV{'form.cnumelement'}.value=cname; 91: var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}; 92: var i; 93: for (i=0;i<slct.length;i++) { 94: if (slct.options[i].value==cdom) { slct.selectedIndex=i; } 95: } 96: self.close(); 97: } 98: </script> 99: <form method="post"> 100: <input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" /> 101: <input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> 102: <input type="hidden" name="form" value="$ENV{'form.form'}" /> 103: 104: $lt{'cac'}: $sincefilterform 105: <br /> 106: $lt{'cdo'}: $domainselectform 107: <br /> 108: $lt{'cde'}: 109: <input type="text" name="descriptfilter" size="40" value="$descriptfilter" /> 110: <p><input type="submit" name="gosearch" value="Search" /></p> 111: </form> 112: <hr /> 113: ENDSCRIPT 114: # ---------------------------------------------------------------- Get the data 115: if ($ENV{'form.gosearch'}) { 116: $r->print(&mt('Searching').' ...<br /> <br />'); 117: $r->rflush(); 118: unless ($descriptfilter) { $descriptfilter='.'; } 119: my $timefilter=($sincefilter==-1?1:time-$sincefilter); 120: my %courses= 121: &Apache::lonnet::courseiddump 122: ($domainfilter,$descriptfilter,$timefilter); 123: $r->print('<form>'); 124: my %by_descrip; 125: foreach my $course (keys %courses) { 126: $by_descrip{lc($courses{$course})}=$course; 127: } 128: foreach my $description (sort(keys(%by_descrip))) { 129: my $course=$by_descrip{$description}; 130: my ($cdom,$cnum)=split(/\_/,$course); 131: $r->print('<input type="button" value="Select" onClick="gochoose('. 132: "'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('. 133: ($Apache::lonnet::domaindescription{$cdom}? 134: $Apache::lonnet::domaindescription{$cdom}:$cdom). 135: ")<br />\n"); 136: } 137: if (!%courses) { $r->print(&mt('None found')); } 138: $r->print('</form>'); 139: } 140: $r->print('</body></html>'); 141: return OK; 142: } 143: 144: 1; 145: __END__