--- loncom/interface/lonprintout.pm 2001/08/21 15:59:08 1.2 +++ loncom/interface/lonprintout.pm 2001/11/29 18:18:38 1.8 @@ -11,56 +11,213 @@ # # 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 primary sequence

+ Standard LaTeX output for the top level 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 $file=&Apache::lonnet::filelocation("",'/res/'.$ENV{'request.ambiguous'}); + my $filecontents=&Apache::lonnet::getfile($file); + $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); + } elsif ($choice eq 'Standard LaTeX output for the primary sequence') { + my @master_seq = (); + my $keyword = 0; + my $output_seq = ''; + my $current_file = '/res/'.$ENV{'request.ambiguous'}; + $current_file =~ s/(\/res\/physnet\/physnet)(\/m\d+)\/(.*)/$1$2$2\.sequence/; + while ($current_file ne '') { + my $file=&Apache::lonnet::filelocation("",$current_file); + my $filecontents=&Apache::lonnet::getfile($file); + my @file_seq = &content_map($filecontents); + if (defined @file_seq) { +#-- adding an additional array to the master one + if (defined @master_seq) { + my $old_value = $#master_seq; + my $total_value = $#master_seq + $#file_seq +2; + for (my $j=0; $j<=$old_value-$keyword+1; $j++) { + $master_seq[$total_value-$j] = $master_seq[$old_value-$j]; + } + for (my $j=0; $j<=$#file_seq; $j++){ + $master_seq[$keyword+$j] = $file_seq[$j]; + } + @file_seq = (); + $keyword = 0; + } else { + @master_seq = @file_seq; + @file_seq = (); + } + } +#-- checking wether .sequence file is among the set of files + $current_file = ''; + for (my $i=0; $i<=$#file_seq; $i++) { + $_ = $file_seq[$i]; + if (m/(.*)\.sequence/) { + $current_file = $_; + $keyword = $i; + last; + } + } + } +#-- produce an output string + for (my $i=0;$i<=$#master_seq;$i++) { + $_ = $master_seq[$i]; + m/\"(.*)\"/; + if (index($1,'-tc.xml',0)==-1) { + my $file=&Apache::lonnet::filelocation("",$1); + my $filecontents=&Apache::lonnet::getfile($file); + $output_seq .= $filecontents; + } + } +#-- cleanup of output string (temporary cbi-specific) + $output_seq =~ s///g; + $output_seq =~ s/<\/physnet>//g; + $output_seq = ''.$output_seq.' '; +#-- final accord + $result = &Apache::lonxml::xmlparse('tex',$output_seq,'',%mystyle); + } +#-- writing .tex file in prtspool + { + 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; + } +$r->print(< + + +FINALEND +} + + + + +sub content_map { +#-- find a list of files to print + my $map_string = shift; + my @number_seq = (); + my @file_seq = (); + my $startlink = index($map_string,'',$startlink); + my $chunk = substr($map_string,$startlink,$endlink-$startlink+7); + $_ = $chunk; + m/from=\"(\d+)\"/; + push @number_seq,$1; + while ($startlink != -1) { + $endlink = index($map_string,'',$startlink); + $chunk = substr($map_string,$startlink,$endlink-$startlink+7); + substr($map_string,$startlink,$endlink-$startlink+7) = ''; + $_ = $chunk; + m/to=\"(\d+)\"/; + push @number_seq,$1; + $startlink = index($map_string,'',$startlink); + $chunk = substr($map_string,$startlink,$endlink-$startlink+7); + substr($map_string,$startlink,$endlink-$startlink+7) = ''; + $_ = $chunk; + m/from=\"(\d+)\"/; + unshift @number_seq,$1; + $stalink = index($map_string,' to="'.$number_seq[0].'"',0); + } + for (my $i=0;$i<=$#number_seq;$i++) { + $stalink = index($map_string,' id="'.$number_seq[$i].'"',0); + $startlink = index($map_string,'src="',$stalink); + $startlink = index($map_string,'"',$startlink); + $endlink = index($map_string,'"',$startlink+1); + $chunk = substr($map_string,$startlink,$endlink-$startlink+1); + push @file_seq,$chunk; + } + return @file_seq; +} - my $filecontents=&Apache::lonnet::getfile($file); - $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); - - $r->print($result); - return OK; +sub handler { + + my $r = shift; + $r->content_type('text/html'); + $r->send_http_header; -#--- my developmental space end (Alex) +#-- 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; __END__ + + +# my $ere; +# foreach $ere (%ENV) { +# $r->print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"); +# }