version 1.5, 2003/03/27 02:05:43
|
version 1.12, 2003/11/04 16:33:10
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
Line 73 ENDDOCUMENT
|
Line 74 ENDDOCUMENT
|
'2592000' => 'last month', |
'2592000' => 'last month', |
'7776000' => 'last three months', |
'7776000' => 'last three months', |
'15552000' => 'last six months', |
'15552000' => 'last six months', |
'31104000' => 'last year')); |
'31104000' => 'last year', |
|
'select_form_order' => |
|
['-1','86400','604800','2592000','7776000', |
|
'15552000','31104000'])); |
|
|
$r->print(&Apache::loncommon::bodytag("Selecting a Course")); |
$r->print(&Apache::loncommon::bodytag("Selecting a Course")); |
|
my %lt=&Apache::lonlocal::texthash( |
|
'cac' => 'Course Activity', |
|
'cde' => 'Course Description', |
|
'cdo' => 'Course Domain'); |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script> |
function gochoose(cname,cdom) { |
function gochoose(cname,cdom) { |
Line 83 function gochoose(cname,cdom) {
|
Line 91 function gochoose(cname,cdom) {
|
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}; |
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}; |
var i; |
var i; |
for (i=0;i<slct.length;i++) { |
for (i=0;i<slct.length;i++) { |
if (slct[i]==cdom) { slct.selectedIndex=i; } |
if (slct.options[i].value==cdom) { slct.selectedIndex=i; } |
} |
} |
self.close(); |
self.close(); |
} |
} |
Line 93 function gochoose(cname,cdom) {
|
Line 101 function gochoose(cname,cdom) {
|
<input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> |
<input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> |
<input type="hidden" name="form" value="$ENV{'form.form'}" /> |
<input type="hidden" name="form" value="$ENV{'form.form'}" /> |
|
|
Course Activity: $sincefilterform |
$lt{'cac'}: $sincefilterform |
<br /> |
<br /> |
Course Domain: $domainselectform |
$lt{'cdo'}: $domainselectform |
<br /> |
<br /> |
Course Description: |
$lt{'cde'}: |
<input type="text" name="descriptfilter" size="40" value="$descriptfilter" /> |
<input type="text" name="descriptfilter" size="40" value="$descriptfilter" /> |
<p><input type="submit" name="gosearch" value="Search" /></p> |
<p><input type="submit" name="gosearch" value="Search" /></p> |
</form> |
</form> |
<hr /> |
<hr /> |
ENDSCRIPT |
ENDSCRIPT |
$r->rflush(); |
|
# ---------------------------------------------------------------- Get the data |
# ---------------------------------------------------------------- Get the data |
if ($ENV{'form.gosearch'}) { |
if ($ENV{'form.gosearch'}) { |
|
$r->print(&mt('Searching').' ...<br /> <br />'); |
|
$r->rflush(); |
unless ($descriptfilter) { $descriptfilter='.'; } |
unless ($descriptfilter) { $descriptfilter='.'; } |
my $timefilter=($sincefilter==-1?1:time-$sincefilter); |
my $timefilter=($sincefilter==-1?1:time-$sincefilter); |
my %courses= |
my %courses= |
&Apache::lonnet::courseiddump |
&Apache::lonnet::courseiddump |
($domainfilter,$descriptfilter,$timefilter); |
($domainfilter,$descriptfilter,$timefilter); |
$r->print('<form>'); |
$r->print('<form>'); |
foreach (keys %courses) { |
my %by_descrip; |
my ($cdom,$cnum)=split(/\_/,$_); |
foreach my $course (keys %courses) { |
|
$by_descrip{lc($courses{$course})}=$course; |
|
} |
|
foreach my $description (sort(keys(%by_descrip))) { |
|
my $course=$by_descrip{$description}; |
|
my ($cdom,$cnum)=split(/\_/,$course); |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('. |
"'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('. |
($Apache::lonnet::domaindescription{$cdom}? |
($Apache::lonnet::domaindescription{$cdom}? |
$Apache::lonnet::domaindescription{$cdom}:$cdom). |
$Apache::lonnet::domaindescription{$cdom}:$cdom). |
")<br />\n"); |
")<br />\n"); |
} |
} |
|
if (!%courses) { $r->print(&mt('None found')); } |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |