added random fetching option

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4824 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/support-scripts/test-scripts/checkout.pl b/Open-ILS/src/support-scripts/test-scripts/checkout.pl
index 2a8016b..bb5ca2f 100755 (executable)
--- a/Open-ILS/src/support-scripts/test-scripts/checkout.pl
+++ b/Open-ILS/src/support-scripts/test-scripts/checkout.pl
@@ -29,10 +29,29 @@ my $nc_type         = shift;
 
 my $start;
 
+
+
+
 sub go {
        osrf_connect($config);
        oils_login($username, $password);
 
+       if( $patronid eq 'random' ) {
+               my $p;
+               while( !($p = $apputils->storagereq(
+                       'open-ils.storage.direct.actor.user.random'))) {}
+               $patronid = $p->id;
+               print "Fetched random user : $patronid\n";
+       }
+       
+       if( $barcode eq 'random' ) {
+               my $p;
+               while( !($p = $apputils->storagereq(
+                       'open-ils.storage.direct.asset.copy.random'))) {}
+               $barcode = $p->barcode;
+               print "Fetched random barcode: $barcode\n";
+       }
+
        if($type eq 'renew') {
                do_renew($patronid, $barcode);