From 0fe0cec6f59e1c70cd80bc841fe9e1c990042bfe Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 25 Mar 2005 15:51:46 +0000
Subject: [PATCH] script to build fieldmapper.js file for using fieldmapper
 objects in javascript

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@249 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/extras/fieldmapper.pl | 53 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 src/extras/fieldmapper.pl

diff --git a/src/extras/fieldmapper.pl b/src/extras/fieldmapper.pl
new file mode 100644
index 0000000..0c0aa1f
--- /dev/null
+++ b/src/extras/fieldmapper.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+use strict; use warnings;
+
+use Data::Dumper; 
+use OpenILS::Utils::Fieldmapper;  
+
+my $map = $Fieldmapper::fieldmap;
+
+print <<JS;
+
+//  ----------------------------------------------------------------
+// Autogenerated by fieldmapper.pl
+//  ----------------------------------------------------------------
+
+JS
+
+for my $object (keys %$map) {
+
+my $short_name = $map->{$object}->{hint};
+
+print <<JS;
+
+//  ----------------------------------------------------------------
+// Class: $short_name
+//  ----------------------------------------------------------------
+
+JS
+
+print	<<JS;
+function $short_name(array) {
+	if(array) { this.array = array; } 
+	else { this.array = []; }
+}
+
+$short_name.prototype._is_array = function() {
+	return true;
+}
+JS
+
+for my $field (keys %{$map->{$object}->{fields}}) {
+
+my $position = $map->{$object}->{fields}->{$field}->{position};
+
+print <<JS;
+$short_name.prototype.$field = function(new_value) {
+	if(new_value) { this.array[$position] = new_value; }
+	return this.array[$position];
+}
+JS
+
+}
+}
+
-- 
2.43.2