diff options
author | Peter von Kaehne <refdoc@gmx.net> | 2015-12-26 13:39:22 +0000 |
---|---|---|
committer | Peter von Kaehne <refdoc@gmx.net> | 2015-12-26 13:39:22 +0000 |
commit | d54349178912a74f32121fbddaba80714ee3ba17 (patch) | |
tree | 7ccd0b6218d5ba65e4762c1cdeb66faa7b44e8de /modules/crossreferences | |
parent | a87013bf1abc2963bd2792233be2c1af56c1223a (diff) | |
download | sword-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
Diffstat (limited to 'modules/crossreferences')
-rwxr-xr-x | modules/crossreferences/xreffix.pl | 6 |
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]); |