From 679c066383e39953a1f8c1362cc8131b98c10d5f Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 15 Sep 2008 16:41:47 +0000
Subject: [PATCH 1/1] copy checkout history now limited by org setting and
 better permission checking.  more cleanup

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10594 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Circ.pm  | 110 +++++-------------
 1 file changed, 26 insertions(+), 84 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index 17311143ad..3748feb1ff 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -514,73 +514,6 @@ __PACKAGE__->register_method(
 	api_name		=> 'open-ils.circ.non_cat_in_house_use.create',
 );
 
-=head OLD CODE
-sub ___create_in_house_use {
-	my( $self, $client, $authtoken, $params ) = @_;
-
-	my( $staff, $evt, $copy );
-	my $org			= $params->{location};
-	my $copyid		= $params->{copyid};
-	my $count		= $params->{count} || 1;
-	my $nc_type		= $params->{non_cat_type};
-	my $use_time	= $params->{use_time} || 'now';
-
-	my $non_cat = 1 if $self->api_name =~ /non_cat/;
-
-	unless( $non_cat ) {
-		unless( $copyid ) {
-			my $barcode = $params->{barcode};
-			($copy, $evt) = $U->fetch_copy_by_barcode($barcode);
-			return $evt if $evt;
-			$copyid = $copy->id;
-		}
-		($copy, $evt) = $U->fetch_copy($copyid) unless $copy;
-		return $evt if $evt;
-	}
-
-	($staff, $evt) = $U->checkses($authtoken);
-	return $evt if $evt;
-
-	$evt = $U->check_perms($staff->id, $org, 'CREATE_IN_HOUSE_USE');
-	return $evt if $evt;
-
-	if( $use_time ne 'now' ) {
-		$use_time = clense_ISO8601($use_time);
-		$logger->debug("in_house_use setting use time to $use_time");
-	}
-
-	my @ids;
-	for(1..$count) {
-
-		my $ihu;
-		my $method;
-
-		if($non_cat) {
-			$ihu = Fieldmapper::action::non_cat_in_house_use->new;
-			$ihu->noncat_type($nc_type);
-			$method = 'open-ils.storage.direct.action.non_cat_in_house_use.create';
-		} else {
-			$ihu = Fieldmapper::action::in_house_use->new;
-			$ihu->item($copyid);
-			$method = 'open-ils.storage.direct.action.in_house_use.create';
-		}
-
-		$ihu->staff($staff->id);
-		$ihu->org_unit($org);
-		$ihu->use_time($use_time);
-
-		my $id = $U->simplereq('open-ils.storage', $method, $ihu );
-
-		return $U->DB_UPDATE_FAILED($ihu) unless $id;
-		push @ids, $id;
-	}
-
-	return \@ids;
-}
-=cut
-
-
-
 
 sub create_in_house_use {
 	my( $self, $client, $auth, $params ) = @_;
@@ -660,29 +593,38 @@ __PACKAGE__->register_method(
 		@return An array of circ ids
 	/);
 
-
-
+# ----------------------------------------------------------------------
+# Returns $count most recent circs.  If count exceeds the configured 
+# max, use the configured max instead
+# ----------------------------------------------------------------------
 sub view_circs {
 	my( $self, $client, $authtoken, $copyid, $count ) = @_; 
 
-	my( $requestor, $evt ) = $U->checksesperm(
-			$authtoken, 'VIEW_COPY_CHECKOUT_HISTORY' );
-	return $evt if $evt;
+    my $e = new_editor(authtoken => $authtoken);
+    return $e->event unless $e->checkauth;
+    
+    my $copy = $e->retrieve_asset_copy([
+        $copyid,
+        {   flesh => 1,
+            flesh_fields => {acp => ['call_number']}
+        }
+    ]) or return $e->event;
+
+    return $e->event unless $e->allowed(
+        'VIEW_COPY_CHECKOUT_HISTORY', 
+        ($copy->call_number == OILS_PRECAT_CALL_NUMBER) ? 
+            $copy->circ_lib : $copy->call_number->owning_lib);
+        
+    my $max_history = $U->ou_ancestor_setting_value(
+        $user->home_ou, 'circ.item_checkout_history.max', $e);
+    $count = ($max_history and $max_history < $count) ? $max_history : $count;
 
 	return [] unless $count;
 
-	my $circs = $U->cstorereq(
-		'open-ils.cstore.direct.action.circulation.search.atomic',
-			{ 
-				target_copy => $copyid, 
-			}, 
-			{ 
-				limit => $count, 
-				order_by => { circ => "xact_start DESC" }
-			} 
-	);
-
-	return $circs;
+    return $e->search_action_circulation([
+        {target_copy => $copyid}, 
+        {limit => $count, order_by => { circ => "xact_start DESC" }} 
+    ]);
 }
 
 
-- 
2.43.2