diff options
Diffstat (limited to 'modules/crossreferences/xreffix.pl')
| -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]); |