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 d9e263f..71479b8 100644 (file)
--- 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 0871160..0226664 100644 (file)
--- 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 (executable)
index 0000000..fdbf597
--- /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"