[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Fri Oct 24 09:33:08 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Can print simplest simple pages (without photo & links) as a single document.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.257 loncom/interface/lonprintout.pm:1.258
--- loncom/interface/lonprintout.pm:1.257	Mon Oct 20 14:35:22 2003
+++ loncom/interface/lonprintout.pm	Fri Oct 24 09:33:08 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.257 2003/10/20 18:35:22 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.258 2003/10/24 13:33:08 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -815,6 +815,13 @@
 	    }
 	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
 	    $result .= '\end{document}';   
+	} elsif ($currentURL=~/\/smppg$/) { 
+		my %form;
+		$form{'grade_target'}='tex';
+		$form{'textwidth'}=$LaTeXwidth;	
+		$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+		my $texversion=&Apache::lonnet::ssi($currentURL,%form);
+		$result .= $texversion;
 	} else {
 	  $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
 	  if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {