--- loncom/interface/lonprintout.pm 2001/01/03 16:20:59 1.1 +++ loncom/interface/lonprintout.pm 2001/12/07 23:35:54 1.10 @@ -11,31 +11,219 @@ # # 3/1 Gerd Kortemeyer # +# 9/17 Alex Sakharuk +# package Apache::lonprintout; use strict; -use Apache::Constants qw(:common); +use Apache::Constants qw(:common :http); +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 +} -# --------------------------------------------------- Print login screen header - $r->print(<print(< + + Standard LaTeX output for current document
+ Standard LaTeX output for the primary sequence
+ Standard LaTeX output for the top level sequence
+ + + + +ENDMENUOUT +} + + +sub output_data { + my $r = shift; + $r->print(< -The LearningOnline Network with CAPA +LON-CAPA output for printing - -

Printout

- + +
+ENDPART + + my $choice = $ENV{'form.choice'}; + my $result = ''; + my %mystyle; + my $filename; + + if ($choice eq 'Standard LaTeX output for current document') { + my $access=&Apache::lonnet::allowed('bre',$ENV{'form.url'}); + if (($access ne '2') && ($access ne 'F')) { + $ENV{'user.error.msg'}="$ENV{'form.url'}:bre:1:1:Access Denied"; + return HTTP_NOT_ACCEPTABLE; + } + my $file=&Apache::lonnet::filelocation("",$ENV{'form.url'}); + 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(< -ENDDOCUMENT +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; +} + + + +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; + } 1; __END__ + + +# my $ere; +# foreach $ere (%ENV) { +# $r->print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"); +# }