--- loncom/interface/lonprintout.pm 2001/08/21 15:59:08 1.2 +++ loncom/interface/lonprintout.pm 2001/10/02 14:09:25 1.6 @@ -11,56 +11,178 @@ # # 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 +} -#-- core +sub output_data { + my $r = shift; + $r->print(< + +LON-CAPA output for printing + + +
+ENDPART + + my $choice = $ENV{'form.choice'}; my $result = ''; my %mystyle; + my $filename; + - 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 $temp_file; + $filename = "/home/httpd/prtspool/$ENV{'environment.firstname'}$ENV{'environment.lastname'}temp$ENV{'user.login.time'}.tex"; + unless ($temp_file = Apache::File->new('>'.$filename)) { + $r->log_error("Couldn't open $filename for output $!"); + return SERVER_ERROR; + } + print $temp_file $result; + } - $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); + - $r->print($result); - return OK; + } 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); + + my @number_seq = &content_map($result); + $r->print(@number_seq); -#--- my developmental space end (Alex) -# --------------------------------------------------- Print login screen header -# $r->print(< -# -#The LearningOnline Network with CAPA -# -# -#

Printout

-# - -# -# -#ENDDOCUMENT -# return OK; + + + } + + +$r->print(< + + +FINALEND +} + + + + +sub content_map { +#-- find a list of files to publish + my $map_string = shift; + + my @number_seq = (); + my $startlink = index($map_string,'',$startlink); + my $chunk = substr($map_string,$startlink,$endlink-$startlink+7); + substr($map_string,$startlink,$endlink-$startlink+7) = ''; + $_ = $chunk; + m/from=\"(\d+)\"/; + push @number_seq,$1; + m/to=\"(\d+)\"/; + push @number_seq,$1; + $startlink = index($map_string,'',$start); +# my $chunk = substr($map_string,$start,$finish-$start+7); +# substr($map_string,$start,$finish-$start+7) = ''; +# $_ = $chunk; +# m/from=\"(\d+)\"/; +# push @one,$1; +# m/to=\"(\d+)\"/; +# push @two,$1; +# $start = index($map_string,'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; + } 1; __END__ + + +# my $ere; +# foreach $ere (%ENV) { +# $r->print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"); +# }