Changeset 1383 for fmts/trunk/p/C0XGET1.m

Timestamp:

Mar 22, 2012, 3:41:24 PM (13 years ago)

Author:

George Lilly

Message:

fixed bug in non-xml inport

File:

• fmts/trunk/p/C0XGET1.m (modified) (1 diff)

fmts/trunk/p/C0XGET1.m

@@ -451 +451 @@
  ; associated with ztag
  n zs,zo
- s zs=$$subject("fmts:tag",ztag)
+ s zs=$$subject("fmts:fileTag",ztag)
  i zs="" d  q  ;
  . w !,"error, tag is either missing or there are more than one ",ztag
- s zo=$$object(zs,"fmts:rdfSource")
+ s zo=$$object(zs,"fmts:fileSource")
  i zo="" d  q  ;
  . w !,"error, tag source not found ",zs