[sword-svn] r329 - trunk/modules/perlconverters

[refdoc at crosswire.org]

Author: refdoc
Date: 2011-06-14 14:50:08 -0700 (Tue, 14 Jun 2011)
New Revision: 329

Removed:
   trunk/modules/perlconverters/title_cleanup.pl
Log:
removed, doubled up


Deleted: trunk/modules/perlconverters/title_cleanup.pl
===================================================================
--- trunk/modules/perlconverters/title_cleanup.pl	2011-06-14 21:49:30 UTC (rev 328)
+++ trunk/modules/perlconverters/title_cleanup.pl	2011-06-14 21:50:08 UTC (rev 329)
@@ -1,83 +0,0 @@
-#!/usr/bin/perl
-# title_cleanup.pl
-
-## Licensed under the standard BSD license:
-
-# Copyright (c) 2011 CrossWire Bible Society <http://www.crosswire.org/>
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-#
-#     * Redistributions of source code must retain the above copyright
-#        notice, this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright
-#       notice, this list of conditions and the following disclaimer in
-#       the documentation and/or other materials provided with the
-#       distribution.
-#     * Neither the name of the CrossWire Bible Society nor the names of
-#       its contributors may be used to endorse or promote products
-#       derived from this software without specific prior written
-#       permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-## For general inquiries, comments, suggestions, bug reports, etc. email:
-## sword-support at crosswire.org
-
-#########################################################################
-
-use XML::LibXML;
-use utf8;
-use strict;
-
-## Obtain arguments
-if (scalar(@ARGV) < 1) {
-    print "\ntitle_cleanup.pl <osisWork> [-o outputfile]  -- - fix output of usfm2osis.pl \n";
-    print "- Arguments in braces < > are required. Arguments in brackets [ ] are optional.\n";
-    print "- If no -o option is specified for the output filename, the default output file is: \n\t<osisWork>.new\n";
-    exit (-1);
-}
-
-my $file = @ARGV[0];
-my $nextarg = 1;
-my $outputFilename;
-
-if (@ARGV[$nextarg] eq "-o") {
-    $outputFilename = "@ARGV[$nextarg+1]";
-    $nextarg += 2;
-}
-else {
-    $outputFilename = "$file.new";
-}
-open (OUTF, , ">", "$outputFilename") or die "Could not open file @ARGV[2] for writing.";
-
-## Initialise OSIS file
-
-my $parser = XML::LibXML->new();
-my $doc = $parser->parse_file($file);
-
-## Search for section titles and add 'subType=x-preverse'
-
-my @titles = $doc->getElementsByTagName('title');
-
-foreach (@titles) {
-    
-    if (($_->parentNode->hasAttribute('type')) && ($_->parentNode->getAttribute('type') eq 'section')) {
-        $_->setAttribute('subType','x-preverse');
-    }
-}
-
-print OUTF $doc->toString('utf8');
-