From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 25 Mar 2005 15:51:46 +0000 (+0000)
Subject: script to build fieldmapper.js file for using fieldmapper objects in javascript
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0fe0cec6f59e1c70cd80bc841fe9e1c990042bfe;p=opensrf%2Fbjwebb.git

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
---

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
+
+}
+}
+