added duration and in_house flag to create method

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
index a6a51c8..0fce4ac 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
@@ -52,7 +52,7 @@ __PACKAGE__->register_method(
        /);
 
 sub create_noncat_type {
-       my( $self, $client, $authtoken, $name, $orgId, $interval ) = @_;
+       my( $self, $client, $authtoken, $name, $orgId, $interval, $inhouse ) = @_;
        my( $staff, $evt ) = $U->checkses($authtoken);
        return $evt if $evt;
 
@@ -72,6 +72,7 @@ sub create_noncat_type {
        $type->name($name);
        $type->owning_lib($orgId);
        $type->circ_duration($interval);
+       $type->in_house( ($inhouse) ? 't' : 'f' );
 
        my $id = $U->simplereq(
                'open-ils.storage',