version 1.3, 2003/03/26 16:39:40
|
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>'); |
$r->print('<form>'); |