X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=pctb%2Fyppsc-ocr-resolver;h=529fa4d453890fc03a525ccb59f50c358b8c4f47;hp=2ba7c01655246745e45679d8d4f59e883318eddb;hb=9c4bd3b7b5dde4ec8f37ffde2793437a299b3f2b;hpb=554e97659330463f4dc7e26c8a63537fc53fed1e

diff --git a/pctb/yppsc-ocr-resolver b/pctb/yppsc-ocr-resolver
index 2ba7c01..529fa4d 100755
--- a/pctb/yppsc-ocr-resolver
+++ b/pctb/yppsc-ocr-resolver
@@ -437,7 +437,7 @@ proc write_database {} {
 
     set ol {}
     foreach bm [array names database] {
-	append ol [format_database_entry/$reqkind $bm $database($bm)]
+	lappend ol [format_database_entry/$reqkind $bm $database($bm)]
     }
     foreach o [lsort $ol] {
 	puts $f $o
@@ -468,9 +468,9 @@ proc read_database_entry/pixmap {f def} {
     }
     set database($im) $def
 }
-proc write_database_header/pixmap {f} { }
+proc write_database_header/pixmap {f} { puts $f "" }
 proc format_database_entry/pixmap {im def} {
-    return "$im\n$def"
+    return "$def\n$im"
 }
 
 #---------- character database read and write ----------
@@ -633,7 +633,9 @@ proc pixmap_ok {} {
 	colname coldesc rows
     manyset [lrange $rows [expr {$pixmap_selrow*2}] end] \
 	rowname rowdesc
-    set database($ppm) "$colname - $coldesc"
+    set result "$colname - $rowname"
+    debug "UPDATE PIXMAP AS >$result<"
+    set database($ppm) $result
     write_database
     done/$mainkind
 }