# The LearningOnline Network with CAPA
# Publication Handler
#
# (TeX Content Handler
#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
# 11/28 Gerd Kortemeyer
package Apache::lonpublisher;
use strict;
use Apache::File;
use Apache::Constants qw(:common);
# ================================================================ Main Handler
sub handler {
my $r=shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
$r->print('LON-CAPA Publishing');
$r->print('');
$r->print(''.$ENV{'form.filename'}.'
');
$r->print('');
return OK;
}
1;
__END__