summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPeter von Kaehne <refdoc@gmx.net>2015-12-26 13:39:22 +0000
committerPeter von Kaehne <refdoc@gmx.net>2015-12-26 13:39:22 +0000
commitd54349178912a74f32121fbddaba80714ee3ba17 (patch)
tree7ccd0b6218d5ba65e4762c1cdeb66faa7b44e8de
parenta87013bf1abc2963bd2792233be2c1af56c1223a (diff)
downloadsword-tools-d54349178912a74f32121fbddaba80714ee3ba17.tar.gz
some old fixes remaining uncommitted to log output
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@508 07627401-56e2-0310-80f4-f8cd0041bdcd
-rwxr-xr-xmodules/crossreferences/xreffix.pl6
1 files changed, 2 insertions, 4 deletions
diff --git a/modules/crossreferences/xreffix.pl b/modules/crossreferences/xreffix.pl
index 6ffbe53..ce3313e 100755
--- a/modules/crossreferences/xreffix.pl
+++ b/modules/crossreferences/xreffix.pl
@@ -103,11 +103,9 @@ foreach (@data) {
if (/<div\ type\=\"book\"\ osisID=\"(.+?)\">/) {
$c_book=$1;
- print "\n"."Now working on ".$c_book."\n";
}
if (/<chapter\ sID\=\".*?\.([0-9]+)\"/) {
$c_chapter=$1;
- print "\n"."Now working on ".$c_book.$c_chapter."\n";
}
if (/<verse\ sID\=\".*?\.([0-9]+)\"/) {
@@ -132,8 +130,8 @@ close OUTF;
sub createReference() {
my $ref = @_[0];
- print "I got this here: ".$ref."\n";
- print "this is the current scope: ".@_[1].".".@_[2].".".@_[3]."\n";
+ print @_[1].".".@_[2].".".@_[3];
+ print "\t".$ref;
my $scope= new Sword::VerseKey;
$scope->setText(@_[1].".".@_[2].".".@_[3]);