X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fcsvtobib1.tcl;fp=src%2Fcsvtobib1.tcl;h=017dbd7ff3848c70a35112f8b00d9ffbad86e5cb;hp=04a1b2b8e4c93bf72820ff8a345289a6d8e28154;hb=aecf826f8ee83290a18c2c1415b55a46093c1a45;hpb=a1adc770bc8b74097e1d4388d16b1246063da7e7

diff --git a/src/csvtobib1.tcl b/src/csvtobib1.tcl
index 04a1b2b..017dbd7 100755
--- a/src/csvtobib1.tcl
+++ b/src/csvtobib1.tcl
@@ -3,16 +3,16 @@
 exec tclsh "$0" "$@"
 #
 # This file is part of the YAZ toolkit
-# Copyright (c) Index Data 1996-2005
+# Copyright (c) Index Data 1996-2006
 # See the file LICENSE for details.
 #
-# $Id: csvtobib1.tcl,v 1.1 2005-04-22 08:27:58 adam Exp $
+# $Id: csvtobib1.tcl,v 1.2 2006-05-23 13:43:40 adam Exp $
 #
 # Converts a CSV file with Bib-1 diagnostics to C+H file for easy
 # maintenance
 #
-# $Id: csvtobib1.tcl,v 1.1 2005-04-22 08:27:58 adam Exp $
+# $Id: csvtobib1.tcl,v 1.2 2006-05-23 13:43:40 adam Exp $
 
-source csvtodiag.tcl
+source [lindex $argv 0]/csvtodiag.tcl
 
-csvtodiag {bib1.csv diagbib1.c ../include/yaz/diagbib1.h} bib1 diagbib1_str
\ No newline at end of file
+csvtodiag [list [lindex $argv 0]/bib1.csv diagbib1.c ../include/yaz/diagbib1.h] bib1 diagbib1_str