Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.102, 2001/10/17 03:31:34 | version 1.103, 2001/11/01 15:59:11 |
---|---|
Line 202 my $domain = ""; | Line 202 my $domain = ""; |
# ----------------------------- Handling routine called via Apache and mod_perl | # ----------------------------- Handling routine called via Apache and mod_perl |
sub handler { | sub handler { |
my $r = shift; | my $r = shift; |
untie %hash; | |
&get_unprocessed_cgi(); | &get_unprocessed_cgi(); |
$r->content_type('text/html'); | $r->content_type('text/html'); |