Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm

   1 package OpenILS::Application::Circ::NonCat;
   2 use base 'OpenSRF::Application';
   3 use strict; use warnings;
   4 use OpenSRF::EX qw(:try);
   5 use Data::Dumper;
   6 use OpenSRF::Utils::Logger qw(:logger);
   7 use OpenILS::Application::AppUtils;
   8 use OpenILS::Utils::Fieldmapper;
   9 $Data::Dumper::Indent = 0;
  10
  11 my $U = "OpenILS::Application::AppUtils";
  12
  13
  14 # returns ( $newid, $evt ).  If $evt, then there was an error
  15 sub create_non_cat_circ {
  16         my( $staffid, $patronid, $circ_lib, $noncat_type, $circ_time ) = @_;
  17
  18         my( $id, $nct, $evt );
  19         $circ_time |= 'now';
  20         my $circ = Fieldmapper::action::non_cataloged_circulation->new;
  21
  22         $logger->activity("Creating non-cataloged circulation for ".
  23                 "staff $staffid, patron $patronid, location $circ_lib, and non-cat type $noncat_type");
  24
  25         $circ->patron($patronid);
  26         $circ->staff($staffid);
  27         $circ->circ_lib($circ_lib);
  28         $circ->item_type($noncat_type);
  29         $circ->circ_time($circ_time);
  30
  31         $id = $U->simplereq(
  32                 'open-ils.storage',
  33                 'open-ils.storage.direct.action.non_cataloged_circulation.create', $circ );
  34         $evt = $U->DB_UPDATE_FAILED($circ) unless $id;
  35
  36         $circ->id($id);
  37         return( $circ, $evt );
  38 }
  39
  40
  41 __PACKAGE__->register_method(
  42         method  => "create_noncat_type",
  43         api_name        => "open-ils.circ.non_cat_type.create",
  44         notes           => q/
  45                 Creates a new non cataloged item type
  46                 @param authtoken The login session key
  47                 @param name The name of the new type
  48                 @param orgId The location where the type will live
  49                 @return The type object on success and the corresponding
  50                 event on failure
  51         /);
  52
  53 sub create_noncat_type {
  54         my( $self, $client, $authtoken, $name, $orgId ) = @_;
  55         my( $staff, $evt ) = $U->checkses($authtoken);
  56         return $evt if $evt;
  57
  58         # grab all of "my" non-cat types and see if one with
  59         # the requested name already exists
  60         my $types = $self->retrieve_noncat_types_all($client, $orgId);
  61         if(ref($types)) {
  62                 for(@$types) {
  63                         return OpenILS::Event->new('NON_CAT_TYPE_EXISTS') if $_->name eq $name;
  64                 }
  65         }
  66
  67         $evt = $U->check_perms( $staff->id, $orgId, 'CREATE_NON_CAT_TYPE' );
  68         return $evt if $evt;
  69
  70         my $type = Fieldmapper::config::non_cataloged_type->new;
  71         $type->name($name);
  72         $type->owning_lib($orgId);
  73
  74         my $id = $U->simplereq(
  75                 'open-ils.storage',
  76                 'open-ils.storage.direct.config.non_cataloged_type.create', $type );
  77
  78         return $U->DB_UPDATE_FAILED($type) unless $id;
  79         $type->id($id);
  80         return $type;
  81 }
  82
  83 __PACKAGE__->register_method(
  84         method  => "update_noncat_type",
  85         api_name        => "open-ils.circ.non_cat_type.update",
  86         notes           => q/
  87                 Updates a non-cataloged type object
  88                 @param authtoken The login session key
  89                 @param type The updated type object
  90                 @return The result of the DB update call unless a preceeding event occurs,
  91                         in which case the event will be returned
  92         /);
  93
  94 sub update_noncat_type {
  95         my( $self, $client, $authtoken, $type ) = @_;
  96         my( $staff, $evt ) = $U->checkses($authtoken);
  97         return $evt if $evt;
  98
  99         my $otype;
 100         ($otype, $evt) = $U->fetch_non_cat_type($type->id);
 101         return $evt if $evt;
 102
 103         $type->owning_lib($otype->owning_lib); # do not allow them to "move" the object
 104
 105         $evt = $U->check_perms( $staff->id, $type->owning_lib, 'UPDATE_NON_CAT_TYPE' );
 106         return $evt if $evt;
 107
 108         return $U->simplereq(
 109                 'open-ils.storage',
 110                 'open-ils.storage.direct.config.non_cataloged_type.update', $type );
 111 }
 112
 113 __PACKAGE__->register_method(
 114         method  => "retrieve_noncat_types_all",
 115         api_name        => "open-ils.circ.non_cat_types.retrieve.all",
 116         notes           => q/
 117                 Retrieves the non-cat types at the requested location as well
 118                 as those above and below the requested location in the org tree
 119                 @param orgId The base location at which to retrieve the type objects
 120                 @param depth Optional parameter to limit the depth of the tree
 121                 @return An array of non cat type objects or an event if an error occurs
 122         /);
 123
 124 sub retrieve_noncat_types_all {
 125         my( $self, $client, $orgId, $depth ) = @_;
 126         my $meth = 'open-ils.storage.ranged.config.non_cataloged_type.retrieve.atomic';
 127         my $svc = 'open-ils.storage';
 128         return $U->simplereq($svc, $meth, $orgId, $depth) if defined($depth);
 129         return $U->simplereq($svc, $meth, $orgId);
 130 }
 131
 132
 133
 134 1;