From 5ad3391be259b6d37678115ab119f3c06e810e43 Mon Sep 17 00:00:00 2001
From: Ronaldo Mercado <ronaldo.mercado@diamond.ac.uk>
Date: Thu, 27 May 2010 14:03:17 +0100
Subject: [PATCH 1/2] create test cases from I02 beamline

---
 src/cap5/test-cases.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/cap5/test-cases.pl

diff --git a/src/cap5/test-cases.pl b/src/cap5/test-cases.pl
new file mode 100644
index 000000000..118f5d808
--- /dev/null
+++ b/src/cap5/test-cases.pl
@@ -0,0 +1,11 @@
+grep record BL02I-MO-IOC-02.db |\
+grep -v '^#' |\
+perl -e '
+%h = (); 
+while(<>){ 
+   @a = split /,/; 
+   $a[0] =~ s/record\(//; 
+   $h{$a[0]}=$a[1]; 
+} 
+print %h;'
+

From a24f6371ac463db8faa8709cffa309dbdb50ee99 Mon Sep 17 00:00:00 2001
From: Ronaldo Mercado <ronaldo.mercado@diamond.ac.uk>
Date: Thu, 27 May 2010 16:24:09 +0100
Subject: [PATCH 2/2] Removes complaints when the string to print has dollars.

---
 src/cap5/capr.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cap5/capr.pl b/src/cap5/capr.pl
index 692d89c1b..84a843322 100644
--- a/src/cap5/capr.pl
+++ b/src/cap5/capr.pl
@@ -286,7 +286,7 @@ sub printField {
         $col = 0;
     }
 
-    print sprintf("$outStr%*s",$pad," ");
+    print $outStr . sprintf("%*s",$pad," ");
     $col = $col + $wide;
 
     return($col);