--- a/Tools__StoreProjectBrowser.st Mon Sep 21 23:07:33 2009 +0200
+++ b/Tools__StoreProjectBrowser.st Mon Sep 21 23:29:29 2009 +0200
@@ -640,20 +640,31 @@
!StoreProjectBrowser methodsFor:'db access'!
getBlob:id
- |item cursor row blobType blobData|
+ ^ self getBlob:id withPrefix:nil
+!
+
+getBlob:id withPrefix:prefixOrNil
+ |item cursor row blobType blobData rawData|
item := Set new.
cursor := connection
- execute:'SELECT blobtype,blobdata FROM tw_blob where primarykey = ',id printString,';'
+ execute:('SELECT blobtype,blobdata FROM tw_blob where primarykey = %1;' bindWith:id)
release:false.
cursor next notNil ifTrue:[
row := cursor rowAsArray.
blobType := (row at:1).
- blobData := Base64Coder decode:(row at:2).
+ rawData := (row at:2).
+ blobData := Base64Coder decode:rawData.
].
cursor release.
+ blobType < 0 ifTrue:[
+ "/ this data is a prefix...
+self halt.
+ ^ self getBlob:(blobType negated) withPrefix:blobData
+ ].
+
blobType == 1 ifTrue:[
"binary"
^ blobData
@@ -668,7 +679,7 @@
^ nil
].
self halt.
- ^ blobData asString
+ ^ nil
!
getBundles
@@ -1285,5 +1296,5 @@
!StoreProjectBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.12 2009-09-21 13:57:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.13 2009-09-21 21:29:29 cg Exp $'
! !