[open-ils-commits] r309 - in grpl/trunk/var: . cgi-bin (dkyle)

[svn at svn.open-ils.org]

Author: dkyle
Date: 2009-04-08 17:23:24 -0400 (Wed, 08 Apr 2009)
New Revision: 309

Added:
   grpl/trunk/var/cgi-bin/
   grpl/trunk/var/cgi-bin/patron_data.cgi
Log:
patron data cgi example

Added: grpl/trunk/var/cgi-bin/patron_data.cgi
===================================================================
--- grpl/trunk/var/cgi-bin/patron_data.cgi	                        (rev 0)
+++ grpl/trunk/var/cgi-bin/patron_data.cgi	2009-04-08 21:23:24 UTC (rev 309)
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+# deliver some patron data in xml
+
+use XML::Simple;
+use Date::Calc;
+use CGI qw(:standard);
+require '/openils/src/evergreen/Open-ILS/src/support-scripts/oils_header.pl';
+
+my $conf = '/openils/conf/opensrf_core.xml';
+my $bcode = param('barcode') || '0';
+print header;
+
+our %grpl_config;
+do '/openils/conf/grpl-egauth-setup.pl';
+
+osrf_connect($conf);
+my $authtok = oils_login($grpl_config{usr},$grpl_config{pw});
+$u = simplereq( ACTOR(), 'open-ils.actor.user.fleshed.retrieve_by_barcode', $authtok, $bcode);
+my $papi = wrap_perl($u);
+my $b = simplereq( STORAGE(), 'open-ils.storage.money.open_user_summary.search', $papi->{id});
+my $bills = wrap_perl($b);
+$papi->{money_owed} = $bills->{balance_owed};
+($dob,undef) = split('T', $papi->{dob});
+($by,$bm,$bd) = split('-', $dob);
+($dy,$dm,$dd) = Date::Calc::Delta_YMD($by,$bm,$bd,Date::Calc::Today());
+$dy-- unless sprintf("%02d%02d", $cm, $cd) >= sprintf("%02d%02d", $bm, $bd);
+if ($dy > 17) { 
+	$papi->{Juvenile} = 'no'
+} else {
+	$papi->{Juvenile} = 'yes'
+}
+if ( ($papi->{card}->{barcode} eq $bcode) && ($papi->{card}->{active} eq 't') ) { # Inactive card check
+	$papi->{name} = $papi->{first_given_name} . " " . $papi->{family_name};
+}
+$xs = XML::Simple->new();
+print $xs->XMLout($papi, noattr => 1);
+
+sub wrap_perl {
+   my $obj = shift;
+   my $ref = ref($obj);
+
+   if ($ref =~ /^Fieldmapper/o) {
+      $ref = $obj->json_hint;
+      $obj = $obj->to_bare_hash;
+   }
+
+   if( $ref eq 'HASH' ) {
+      $obj->{$_} = wrap_perl( $obj->{$_} ) for (keys %$obj);
+   } elsif( $ref eq 'ARRAY' ) {
+      $obj->[$_] = wrap_perl( $obj->[$_] ) for(0..scalar(@$obj) - 1 );
+   } elsif( $ref ) {
+      if(UNIVERSAL::isa($obj, 'HASH')) {
+         $obj->{$_} = wrap_perl( $obj->{$_} ) for (keys %$obj);
+         bless($obj, 'HASH'); # so our parser won't add the hints
+      } elsif(UNIVERSAL::isa($obj, 'ARRAY')) {
+         $obj->[$_] = wrap_perl( $obj->[$_] ) for(0..scalar(@$obj) - 1);
+         bless($obj, 'ARRAY'); # so our parser won't add the hints
+      }
+#      $obj = { $CLASS_KEY => $ref, $PAYLOAD_KEY => $obj };
+   }
+   return $obj;
+}
+


Property changes on: grpl/trunk/var/cgi-bin/patron_data.cgi
___________________________________________________________________
Name: svn:executable
   +