From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 6 Dec 2008 04:08:21 +0000 (+0000)
Subject: adding script to set juvenile flag to false
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7f9d41c189381e964648c9e1fb08ee06eb26a0df;p=Evergreen.git

adding script to set juvenile flag to false

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11435 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/Makefile.am b/Open-ILS/src/Makefile.am
index d9e263fe4b..71479b8e80 100644
--- a/Open-ILS/src/Makefile.am
+++ b/Open-ILS/src/Makefile.am
@@ -76,6 +76,7 @@ core_scripts =   $(examples)/oils_ctl.sh \
 		 $(supportscr)/fine_generator.pl \
 		 $(supportscr)/hold_targeter.pl \
 		 $(supportscr)/reshelving_complete.srfsh \
+		 $(supportscr)/juv_to_adult.srfsh \
 		 $(supportscr)/thaw_expired_frozen_holds.srfsh \
 		 $(supportscr)/long-overdue-status-update.pl \
 		 $(srcdir)/extras/openurl_map.pl 
@@ -222,6 +223,7 @@ ilscore-install:
 	sed -i 's|SYSCONFDIR|@sysconfdir@|g' '$(DESTDIR)@bindir@/autogen.sh'
 	sed -i 's|LOCALSTATEDIR|@localstatedir@|g' '$(DESTDIR)@bindir@/autogen.sh'
 	sed -i 's|BINDIR|@bindir@|g' '$(DESTDIR)@bindir@/reshelving_complete.srfsh'
+	sed -i 's|BINDIR|@bindir@|g' '$(DESTDIR)@bindir@/juv_to_adult.srfsh'
 	sed -i 's|BINDIR|@bindir@|g' '$(DESTDIR)@bindir@/long-overdue-status-update.pl'
 	sed -i 's|SYSCONFDIR|@sysconfdir@|g' '$(DESTDIR)@bindir@/long-overdue-status-update.pl'
 	sed -i 's|BINDIR|@bindir@|g' '$(DESTDIR)@bindir@/thaw_expired_frozen_holds.srfsh'
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
index 0871160463..022666421e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
@@ -23,6 +23,28 @@ __PACKAGE__->register_method(
 	method		=> 'new_usergroup_id',
 );
 
+sub juv_to_adult {
+	my $self = shift;
+	my $client = shift;
+	my $adult_age = shift;
+
+	my $sql = <<"	SQL";
+            UPDATE  actor.usr
+              SET   juvenile = FALSE
+              WHERE AGE(dob) > ?::INTERVAL;
+	SQL
+
+    my $sth = actor::user->db_Main->prepare_cached($sql);
+    $sth->execute($adult_age);
+
+    return $sth->rows;
+}
+__PACKAGE__->register_method(
+	api_name	=> 'open-ils.storage.actor.user.juvenile_to_adult',
+	api_level	=> 1,
+	method		=> 'juv_to_adult',
+);
+
 sub usr_total_owed {
 	my $self = shift;
 	my $client = shift;
diff --git a/Open-ILS/src/support-scripts/juv_to_adult.srfsh b/Open-ILS/src/support-scripts/juv_to_adult.srfsh
new file mode 100755
index 0000000000..fdbf59772e
--- /dev/null
+++ b/Open-ILS/src/support-scripts/juv_to_adult.srfsh
@@ -0,0 +1,2 @@
+#!BINDIR/srfsh
+request open-ils.storage open-ils.storage.actor.user.juvenile_to_adult "18 years"