[LON-CAPA-cvs] cvs: doc /help/course_manual buildTexxml.pl

felicia lon-capa-cvs@mail.lon-capa.org
Fri, 01 Dec 2006 23:41:36 -0000


felicia		Fri Dec  1 18:41:36 2006 EDT

  Added files:                 
    /doc/help/course_manual	buildTexxml.pl 
  Log:
  new perl script to build the course.manual.texxml file.  Also can create a section.manual.texxml file from section of the manual.  It is still up to the developer to move either of these files to /loncapa/doc/help as course.manual.texxml and run /loncapa/loncom/build/buildHelp.sh.  Hopefully I can combine the functionality from buildHelp.sh into this script as the next step.
  
  

Index: doc/help/course_manual/buildTexxml.pl
+++ doc/help/course_manual/buildTexxml.pl
#!/usr/bin/perl

if ($#ARGV != 0) {
  print "Correct command usage: \n";
  print "   perl buildTexxml.pl all\n";
  print "Or \n";
  print "   perl buildTexxml.pl section\n";
}

$option = $ARGV[0]; 

@section = `cat section_order.txt`;
chomp @section;

if($option eq 'all') {
  foreach $section (@section) {
    $section='sections/'.$section;
    $section_list=$section_list.$section.' ';
  }
  `cat sections/start.texxml $section_list sections/end.texxml > course.manual.texxml`;
}

if($option eq 'section') {
  print "Choose from the following manual sections:\n";
  $num=0;
  foreach $section (@section) {
    print "$num - $section\n";
    $num++;
  }
  print "Enter a number 0 - $num for the section you want to print: ";
  $selection=<STDIN>;
  print "builing section...\n";
  `cat sections/start.texxml sections/$section[$selection] sections/end.texxml > section.manual.texxml`; 
}