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

[albertel]

albertel		Wed Dec 11 16:33:16 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - looks good now,
  - Fixes BUG#948
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.96 loncom/interface/lonprintout.pm:1.97
--- loncom/interface/lonprintout.pm:1.96	Wed Dec 11 15:07:34 2002
+++ loncom/interface/lonprintout.pm	Wed Dec 11 16:33:16 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.96 2002/12/11 20:07:34 www Exp $
+# $Id: lonprintout.pm,v 1.97 2002/12/11 21:33:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -465,8 +465,14 @@
         if ($ENV{'form.url'}=~m/\.page\s*$/) {
 	  ($result,$number_of_columns) = &page_cleanup($result);
         }
-      } elsif ($ENV{'form.url'}!~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
-        $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: '.$ENV{'form.url'}.' \end{document}'
+      } else {
+	  $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
+	  if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
+	      $result.=$1;
+	  } else {
+	      $result.=$ENV{'form.url'};
+	  }
+	  $result.=' \end{document}'
       }
     } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or 
              $choice eq 'Standard LaTeX output for whole primary sequence') {