changeset 654:4fc281dbe97b

Truncate reagent names with prsubstr() in reagent pouch mangler.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 25 Jul 2007 20:21:44 +0000
parents 643e93f4b941
children 4fe5988b7da2
files ggrtf-misc.tf
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf-misc.tf	Wed Jul 25 20:21:18 2007 +0000
+++ b/ggrtf-misc.tf	Wed Jul 25 20:21:44 2007 +0000
@@ -260,7 +260,7 @@
 ;; Helper for reagent pouch
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 /def -i grpouch_report =\
-	/substitute -p @{BCyellow}$[pad({1},5)]@{n} | @{BCgreen}$[pad({6},-25)]@{n} (@{BCred}$[pad({2},4)]@{n},@{Cgreen}$[pad({3},4)]@{n},@{Cyellow}$[pad({4},4)]@{n}) @{BCgray}(%{5})@{n}
+	/substitute -p @{BCyellow}$[pad({1},5)]@{n} | @{BCgreen}$[pad({6},-25)]@{n} (@{BCred}$[pad({2},4)]@{n},@{Cgreen}$[pad({3},4)]@{n},@{Cyellow}$[pad({4},4)]@{n}) @{BCgray}($[prsubstr({5},25)])@{n}
 
 /def -i gdefrpouch =\
 	/let _tmps=$[replace(" ","_", tolower({2}))]%;\