From f653282a1fdd82b186ffd3bdda00074fa433c1b6 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 6 Jun 2006 02:51:18 +0000
Subject: [PATCH] adding sequence support to fieldmapper IDL

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4512 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/extras/fieldmapper_IDL.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/extras/fieldmapper_IDL.pl b/Open-ILS/src/extras/fieldmapper_IDL.pl
index ede167f8e7..9c0b2c6f0c 100755
--- a/Open-ILS/src/extras/fieldmapper_IDL.pl
+++ b/Open-ILS/src/extras/fieldmapper_IDL.pl
@@ -30,11 +30,12 @@ for my $object (keys %$map) {
 	my $fm = $$map{$object}{cdbi};
 	my $short_name= $map->{$object}->{hint};
 	my ($primary) = $map->{$object}->{cdbi}->columns('Primary');
+	my ($seq) = $map->{$object}->{cdbi}->sequence;
 	my $table = $map->{$object}->{cdbi}->table;
 
 	print <<"	XML";
 	<class id="$short_name" oils_obj:fieldmapper="$fm" oils_persist:tablename="$table">
-		<fields oils_persist:primary="$primary">
+		<fields oils_persist:primary="$primary" oils_persist:sequence="$seq">
 	XML
 
 	for my $field (sort { $$map{$object}{fields}{$a}{position} <=> $$map{$object}{fields}{$b}{position}} keys %{$map->{$object}->{fields}}) {
-- 
2.43.2