[basex-talk] Problems with xquery update through PERL API

30 Mar 2011


      Hi again,
This is my (original) problem.
If I try to run a xquery update from GUI and then try to get the 
modified XML element everything is ok.
But if a run the same xquery from a perl script and then go to the GUI, 
to get the modified XML element I get this error:
------------------------------Error obtained, in GUI, after run the 
update query from a perl script---------------------------
Query: import module namespace m = "http://serprest.pt/invoice/xqm" at 
"http://localhost/xq/m.xqm";
         declare option output:omit-xml-declaration "no";
         declare option output:method "xml";
m:getInvoiceSumary(xs:string('279'))
Error: Possible bug? Your feedback is welcome:
Contact: basex-talk@mailman.uni-konstanz.de
Version: BaseX 6.6
Java: Sun Microsystems Inc., 1.6.0_20
OS: Linux, amd64
Stack Trace:
java.lang.IndexOutOfBoundsException
   java.io.RandomAccessFile.readBytes(Native Method)
   java.io.RandomAccessFile.read(RandomAccessFile.java:355)
   java.io.RandomAccessFile.readFully(RandomAccessFile.java:414)
   org.basex.io.DataAccess.cursor(DataAccess.java:225)
   org.basex.io.DataAccess.readToken(DataAccess.java:147)
   org.basex.data.DiskData.txt(DiskData.java:213)
   org.basex.data.DiskData.text(DiskData.java:181)
   org.basex.data.Data.atom(Data.java:241)
   org.basex.query.item.DBNode.atom(DBNode.java:84)
   org.basex.query.item.Str.eq(Str.java:77)
   org.basex.query.item.ANode.eq(ANode.java:73)
   org.basex.query.expr.CmpV$Op$5.e(CmpV.java:80)
   org.basex.query.expr.CmpG.eval(CmpG.java:232)
   org.basex.query.expr.CmpG.item(CmpG.java:181)
   org.basex.query.expr.CmpG.item(CmpG.java:1)
   org.basex.query.expr.ParseExpr.ebv(ParseExpr.java:85)
   org.basex.query.expr.ParseExpr.test(ParseExpr.java:98)
   org.basex.query.expr.Preds.preds(Preds.java:99)
   org.basex.query.path.IterStep$1.next(IterStep.java:49)
   org.basex.query.path.AxisPath.iter(AxisPath.java:438)
   org.basex.query.path.AxisPath.iter(AxisPath.java:408)
   org.basex.query.QueryContext.iter(QueryContext.java:330)
   org.basex.query.expr.ParseExpr.value(ParseExpr.java:76)
   org.basex.query.expr.Let$1.next(Let.java:94)
   org.basex.query.expr.FLWR$1.next(FLWR.java:62)
   org.basex.query.iter.Iter.finish(Iter.java:65)
   org.basex.query.expr.ParseExpr.value(ParseExpr.java:76)
   org.basex.query.expr.Func.iter(Func.java:99)
   org.basex.query.QueryContext.iter(QueryContext.java:330)
   org.basex.query.expr.FuncCall.iter(FuncCall.java:80)
   org.basex.query.QueryContext.iter(QueryContext.java:330)
   org.basex.query.QueryContext.iter(QueryContext.java:295)
   org.basex.query.QueryContext.eval(QueryContext.java:253)
   org.basex.query.QueryProcessor.execute(QueryProcessor.java:113)
   org.basex.core.cmd.AQuery.query(AQuery.java:83)
   org.basex.core.cmd.XQuery.run(XQuery.java:22)
   org.basex.core.Command.run(Command.java:292)
   org.basex.core.Command.exec(Command.java:274)
   org.basex.core.Command.execute(Command.java:67)
   org.basex.gui.GUI.exec(GUI.java:390)
   org.basex.gui.GUI$5.run(GUI.java:351)
------------This is the query which throws the above error message 
-------------------------
import module namespace m = "http://serprest.pt/invoice/xqm" at 
"http://localhost/xq/m.xqm";
         declare option output:omit-xml-declaration "no";
         declare option output:method "xml";
m:getInvoiceSumary(xs:string('279'))
-------------This is the update query, as invoked from 
GUI------------------------
import module namespace m = "http://serprest.pt/invoice/xqm" at 
"http://localhost/xq/m.xqm";
         declare option output:omit-xml-declaration "no";
         declare option output:method "xml";
m:invoiceUpdate(<saf:Invoice
             xmlns:spi="http://serprest.pt/invoice1"
             xmlns:xsi = "http://www.w3.org/2001/XMLSchema-instance"
             xmlns:saf="urn:OECD:StandardAuditFile-Tax:PT_1.00_01">
saf:InvoiceNo279</saf:InvoiceNo>
saf:InvoiceDate2011-01-27</saf:InvoiceDate>
saf:InvoiceTypeFactura</saf:InvoiceType>
<!--saf:SystemEntryDate>2011-01-27T20:31:32.212Z</saf:SystemEntryDate-->
saf:CustomerID555561</saf:CustomerID>
spi:PayDateExpected2011-02-27</spi:PayDateExpected>
spi:PayDate</spi:PayDate>
spi:ReceiptID</spi:ReceiptID>
spi:StatusIniciada</spi:Status>
</saf:Invoice>)
-------------This is the PERL script with the same update query. Run 
this script is the the source of problem------------------------
#!/usr/bin/perl
use strict;
use lib qw|/var/www/serprest/perl/3rd-party|;
use BaseXClient;
use warnings;
eval {
     my $session = Session->new("localhost", 1984, "serprest", 
".prest,ser");
my $q = q|
         import module namespace m = "http://serprest.pt/invoice/xqm" at 
"http://localhost/xq/m.xqm";
         declare option output:omit-xml-declaration "no";
         declare option output:method "xml";
m:invoiceUpdate(<saf:Invoice
             xmlns:spi="http://serprest.pt/invoice1"
             xmlns:xsi = "http://www.w3.org/2001/XMLSchema-instance"
             xmlns:saf="urn:OECD:StandardAuditFile-Tax:PT_1.00_01">
saf:InvoiceNo279</saf:InvoiceNo>
saf:InvoiceDate2011-01-27</saf:InvoiceDate>
saf:InvoiceTypeFactura</saf:InvoiceType>
<!--saf:SystemEntryDate>2011-01-27T20:31:32.212Z</saf:SystemEntryDate-->
saf:CustomerID555561</saf:CustomerID>
spi:PayDateExpected2011-02-27</spi:PayDateExpected>
spi:PayDate</spi:PayDate>
spi:ReceiptID</spi:ReceiptID>
spi:StatusIniciada</spi:Status>
</saf:Invoice>)
|;
     my $query = $session->query($q);
     $query->init();
     print $query->execute();
     print $query->info();
     $query->close();
     $session->close();
};
# print exception
print qq|<error>$@</error>| if $@;
-----------------This is module which implement the two functions used 
in the above queries-------------------
module namespace x = "http://serprest.pt/invoice/xqm";
declare namespace saf="urn:OECD:StandardAuditFile-Tax:PT_1.00_01";
declare namespace spi="http://serprest.pt/invoice1";
declare namespace fx="http://www.basex.org/file";
declare variable $x:col := collection('invoiceDB');
[... some stuff deleted here ...]
declare function x:getInvoiceSumary($invoiceNo as xs:string) as node()? {
     let $invoice := $x:col/saf:Invoice[saf:InvoiceNo/text()=$invoiceNo]
     return
         if ($invoice/saf:Line) then
             copy $c := $invoice
             modify delete node $c/saf:Line
             return $c
         else
             $invoice
};
[... some stuff deleted here ...]
declare updating function x:invoiceUpdate($newInvoice as node()){
     let $invoice := $x:col/saf:Invoice[saf:InvoiceNo/text() = 
$newInvoice/saf:InvoiceNo/text()]
     for $p in $newInvoice/*
     let $target := $invoice/*[name() = name($p)][last()]
     return
         if ($target) then
             replace node $target with $p
         else
             insert node $p as last into $invoice
};
-------------This is the log-----------------------
08:34:22.513    [127.0.0.1:48542]    QUERY(0)             import module 
namespace m = "http://serprest.pt/invoice/xqm" at 
"http://localhost/xq/m.xqm";         declare option 
output:omit-xml-declaration "no";         declare option output:method 
"xml";         m:invoiceUpdate(<saf:Invoice     
xmlns:spi="http://serprest.pt/invoice1"             xmlns:xsi = 
"http://www.w3.org/2001/XMLSchema-instance"             
xmlns:saf="urn:OECD:StandardAuditFile-Tax:PT_1.00_01"> 
saf:InvoiceNo279</saf:InvoiceNo> 
saf:InvoiceDate2011-01-27</saf:InvoiceDate> 
saf:InvoiceTypeFactura</saf:InvoiceType> 
<!--saf:SystemEntryDate>2011-01-27T20:31:32.212Z</saf:SystemEntryDate--> 
saf:CustomerID555561</saf:CustomerID> 
spi:PayDateExpected2011-02-27</spi:PayDateExpected> 
spi:PayDate</spi:PayDate> spi:ReceiptID</spi:ReceiptID> 
spi:StatusIniciada</spi:Status> </saf:Invoice>)         OK
08:34:22.523    [127.0.0.1:48542]    QUERY(0)    OK
08:34:22.611    [127.0.0.1:48542]    INIT(0)    OK
08:34:22.612    [127.0.0.1:48542]    EXEC(0)    OK
08:34:22.613    [127.0.0.1:48542]    INFO(0)    OK
08:34:22.613    [127.0.0.1:48542]    CLOSE(0)    OK
08:34:22.615    [127.0.0.1:48542]    LOGOUT serprest    OK
------------------------------------------------------
If I run the m:getInvoiceSumary(xs:string('279')) again it runs without 
any error message but it returns a empty result.
If I close and open the GUI again the result still be a empty result and 
if I try to open the DB I get a popup message saying:
"Could not execute OPEN invoiceDB:
java.lang.IndexOutOfBoundsException"
Any help/glue is welcome.
Thanks
Isidro
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 110330-0, 30-03-2011
Tested on: 30-03-2011 17:11:11
avast! - copyright (c) 1988-2011 AVAST Software.
http://www.avast.com

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

[basex-talk] Problems with xquery update through PERL API