version 1.13, 2004/03/19 03:47:09
|
version 1.15, 2004/05/07 17:53:01
|
Line 61 ENDDOCUMENT
|
Line 61 ENDDOCUMENT
|
'domainfilter',1); |
'domainfilter',1); |
# description filter |
# description filter |
my $descriptfilter=$ENV{'form.descriptfilter'}; |
my $descriptfilter=$ENV{'form.descriptfilter'}; |
$descriptfilter=~s/[^\w\s]//g; |
|
unless ($descriptfilter) { $descriptfilter=''; } |
unless ($descriptfilter) { $descriptfilter=''; } |
|
my $listdescript=$descriptfilter; |
|
$listdescript=~s/\"/\"\;/g; |
# last course activity filter and selection |
# last course activity filter and selection |
my $sincefilter=$ENV{'form.sincefilter'}; |
my $sincefilter=$ENV{'form.sincefilter'}; |
$sincefilter=~s/[^\d-]//g; |
$sincefilter=~s/[^\d-]//g; |
Line 115 $lt{'cac'}: $sincefilterform
|
Line 115 $lt{'cac'}: $sincefilterform
|
$lt{'cdo'}: $domainselectform |
$lt{'cdo'}: $domainselectform |
<br /> |
<br /> |
$lt{'cde'}: |
$lt{'cde'}: |
<input type="text" name="descriptfilter" size="40" value="$descriptfilter" /> |
<input type="text" name="descriptfilter" size="40" value="$listdescript" /> |
<p><input type="submit" name="gosearch" value="Search" /></p> |
<p><input type="submit" name="gosearch" value="Search" /></p> |
</form> |
</form> |
<hr /> |
<hr /> |
Line 136 ENDSCRIPT
|
Line 136 ENDSCRIPT
|
} |
} |
foreach my $description (sort(keys(%by_descrip))) { |
foreach my $description (sort(keys(%by_descrip))) { |
my $course=$by_descrip{$description}; |
my $course=$by_descrip{$description}; |
my $cleandesc=&HTML::Entities::encode($courses{$course}); |
my $cleandesc=&HTML::Entities::encode($courses{$course},'<>&"'); |
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
$r->print('<input type="button" value="Select" onClick="gochoose('. |