From 27f617e8fc48118d5e84b549c3437358409ddf24 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 30 May 2002 19:58:24 +0000
Subject: [PATCH] Benchmark script for sergey's schema

---
 marc/benchmarks/getdata-sergey | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 marc/benchmarks/getdata-sergey

diff --git a/marc/benchmarks/getdata-sergey b/marc/benchmarks/getdata-sergey
new file mode 100644
index 0000000000..be4e15dfd5
--- /dev/null
+++ b/marc/benchmarks/getdata-sergey
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+#
+#
+# Benchmark script for Sergey's marc db schema
+
+
+use DBI;
+
+my $dbh=DBI->connect("dbi:mysql:kohabenchmark", 'youruserid', 'yourpassword');
+
+my $count=$ARGV[0];
+my $print=$ARGV[1];
+my $max=$ARGV[2];
+my $bibid=$ARGV[3];
+($max) || ($max=79998);
+
+
+for ($i=0; $i<$count; $i++) {
+    ($bibid) || ($bibid=int(rand($max))+1);
+    ($print) && (print "BIBID: $bibid\n");
+    my $sth=$dbh->prepare("select F.tag,S.subfieldcode,S.subfieldvalue from marc_field_table_sergey F,marc_subfield_table_sergey S where F.fieldid=S.fieldid and F.bibid=$bibid order by F.fieldid,S.subfieldorder");
+    $sth->execute;
+    my $lasttag='';
+    while (my ($tag,$subfieldcode,$subfieldvalue) = $sth->fetchrow) {
+	if ($tag ne $lasttag) {
+	    ($print) && (print "  Tag: $tag\n");
+	    $lasttag=$tag;
+	}
+	($print) && (print "    $subfieldcode $subfieldvalue\n");
+    }
+    $bibid=0;
+}
-- 
2.20.1