--- loncom/interface/lonprintout.pm 2001/08/21 15:59:08 1.2 +++ loncom/interface/lonprintout.pm 2001/09/18 14:30:55 1.3 @@ -11,55 +11,125 @@ # # 3/1 Gerd Kortemeyer # +# 9/17 Alex Sakharuk +# package Apache::lonprintout; use strict; use Apache::Constants qw(:common); use Apache::lonxml; use Apache::lonnet; +use Apache::File; -sub handler { + + +sub headerform { my $r = shift; - $r->content_type('text/html'); - $r->send_http_header; - return OK if $r->header_only; + $r->print(< + +LON-CAPA output for printing + + +
+

Printout:



+ENDHEADER +} + -#--- my developmental space begin (Alex) -#-- local menu - +sub menu_for_output { + my $r = shift; + $r->print(< + Standard LaTeX output for current document

+ Standard LaTeX output for the whole sequence

+ + + + +ENDMENUOUT +} +sub output_data { + my $r = shift; + $r->print(< + +LON-CAPA output for printing + + +
+ENDPART -#-- core + my $choice = $ENV{'form.choice'}; my $result = ''; my %mystyle; - my $file=&Apache::lonnet::filelocation("",$ENV{'form.postdata'}); + if ($choice eq 'Standard LaTeX output for current document') { - my $filecontents=&Apache::lonnet::getfile($file); + my $file=&Apache::lonnet::filelocation("",'/res/'.$ENV{'request.ambiguous'}); + my $filecontents=&Apache::lonnet::getfile($file); + $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); + + my $tempo_file; + my $file = 'temp.tex'; + unless ($tempo_file = Apache::File->new($file)) { + $r->log_error("Couldn't open $file for output"); + return SERVER_ERROR; + } + + $r->print($result); + + } elsif ($choice eq 'Standard LaTeX output for the whole sequence') { + my $current_file = '/res/'.$ENV{'request.ambiguous'}; + $current_file =~ s/(\/res\/physnet\/physnet)(\/m\d+)\/(.*)/$1$2$2\.sequence/; + my $file=&Apache::lonnet::filelocation("",$current_file); + my $filecontents=&Apache::lonnet::getfile($file); + $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); + + $result = &content_map($result); + $r->print($result); - $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); - - $r->print($result); - return OK; -#--- my developmental space end (Alex) + } +$r->print(< + +FINALEND +} + + +sub content_map { +#-- find a list of files to publish + my $map_string = shift; + + + + + return $map_string; +} + + +sub handler { + + my $r = shift; + $r->content_type('text/html'); + $r->send_http_header; + +#-- start form + &headerform($r); +#-- menu for output + unless ($ENV{'form.phase'}) { + &menu_for_output($r); + } +#-- core part + if ($ENV{'form.phase'} eq 'two') { + &output_data($r); + } + return OK; -# --------------------------------------------------- Print login screen header -# $r->print(< -# -#The LearningOnline Network with CAPA -# -# -#

Printout

-# - -# -# -#ENDDOCUMENT -# return OK; } 1;