# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1185394904 0
# Node ID 4fc281dbe97b6bdffe91e3e94070a7c9c7a3eb00
# Parent  643e93f4b941035488d384abd8166b4208e376dc
Truncate reagent names with prsubstr() in reagent pouch mangler.

diff -r 643e93f4b941 -r 4fc281dbe97b ggrtf-misc.tf
--- 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}))]%;\