version 1.2, 2003/03/26 04:57:04
|
version 1.4, 2003/03/26 19:34:42
|
Line 54 ENDDOCUMENT
|
Line 54 ENDDOCUMENT
|
'sincefilter','form','cnumelement','cdomelement']); |
'sincefilter','form','cnumelement','cdomelement']); |
my $domainfilter=$ENV{'form.domainfilter'}; |
my $domainfilter=$ENV{'form.domainfilter'}; |
$domainfilter=~s/\W//g; |
$domainfilter=~s/\W//g; |
unless ($domainfilter) { $domainfilter='.'; } |
unless ($domainfilter) { $domainfilter=''; } |
|
my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter, |
|
'domainfilter',1); |
my $descriptfilter=$ENV{'form.descriptfilter'}; |
my $descriptfilter=$ENV{'form.descriptfilter'}; |
$descriptfilter=~s/\W//g; |
$descriptfilter=~s/[^\w\s]//g; |
unless ($descriptfilter) { $descriptfilter='.'; } |
unless ($descriptfilter) { $descriptfilter=''; } |
my $sincefilter=$ENV{'form.sincefilter'}; |
my $sincefilter=$ENV{'form.sincefilter'}; |
$sincefilter=~s/\D//g; |
$sincefilter=~s/\D//g; |
unless ($sincefilter) { $sincefilter=0; } |
unless ($sincefilter) { $sincefilter=0; } |
Line 75 function gochoose(cname,cdom) {
|
Line 77 function gochoose(cname,cdom) {
|
self.close(); |
self.close(); |
} |
} |
</script> |
</script> |
|
<form method="post"> |
|
<br /> |
|
Course Domain: $domainselectform |
|
<br /> |
|
Course Description: |
|
<input type="text" name="descriptfilter" size="40" value="$descriptfilter" /> |
|
<input type="submit" name="gosearch" value="Search" /> |
|
</form> |
|
|
ENDSCRIPT |
ENDSCRIPT |
$r->rflush(); |
$r->rflush(); |
# ---------------------------------------------------------------- Get the data |
# ---------------------------------------------------------------- Get the data |
|
unless ($descriptfilter) { $descriptfilter='.'; } |
my %courses= |
my %courses= |
&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter); |
&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter); |
|
$r->print('<form>'); |
foreach (keys %courses) { |
foreach (keys %courses) { |
$r->print($_.': '.$courses{$_}.'<br />'); |
my ($cdom,$cnum)=split(/\_/,$_); |
|
$r->print('<input type="button" value="Select" onClick="gochoose('. |
|
"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('. |
|
($Apache::lonnet::domaindescription{$cdom}? |
|
$Apache::lonnet::domaindescription{$cdom}:$cdom).')<br />'); |
} |
} |
$r->print('</body></html>'); |
$r->print('</form></body></html>'); |
return OK; |
return OK; |
} |
} |
|
|