From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 14 Jan 2008 22:09:33 +0000 (+0000)
Subject: allow the exporter to accept a container id, for exporting buckets etc
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9c7b4b9cf134b30eb2abfaf3dc85bf4a69d3abc7;p=Evergreen.git

allow the exporter to accept a container id, for exporting buckets etc

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

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index de2b2b3e5a..081a54a2a9 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -83,11 +83,25 @@ sub handler {
 		}
 	}
 
+	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
+
+	# still no records ...
+	my $container = $cgi->param('containerid');
+	if ($container) {
+		my $authid = $cgi->cookie('ses') || $cgi->param('ses');
+		my $auth = verify_login($authid);
+		if (!$auth) {
+			return 403;
+		}
+		my $recs = $ses->request( 'open-ils.cstore.direct.container.biblio_record_entry_bucket_item.search.atomic', { bucket => $cointainer } )->gather(1);
+		@records = map { ($_->target_biblio_record_entry) } @$recs;
+	}
+
 	return show_template($r) unless (@records);
 
 	my $type = $cgi->param('rectype') || 'biblio';
 	if ($type ne 'biblio' && $type ne 'authority') {
-		die "Bad record type: $type";
+		return 400;
 	}
 
 	my $tcn_v = 'tcn_value';
@@ -113,9 +127,7 @@ sub handler {
 	binmode(STDOUT, ':utf8') if ($encoding eq 'UTF-8');
 
 	if (!grep { uc($format) eq $_ } @formats) {
-		die	"Please select a supported format.  ".
-			"Right now that means one of [".
-			join('|',@formats). "]\n";
+		return 400;
 	}
 
 	if ($format ne 'XML') {
@@ -123,7 +135,6 @@ sub handler {
 		$ftype->require;
 	}
 
-	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
 
 	$r->headers_out->set("Content-Disposition" => "inline; filename=$filename");
 
@@ -147,7 +158,7 @@ sub handler {
 		my $req = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
 
     		while (my $o = $req->recv) {
-        		die $req->failed->stringify if ($req->failed);
+        		next if ($req->failed);
         		$o = $o->content;
         		last unless ($o);
 	    		$orgs{$o->id} = $o;
@@ -157,7 +168,7 @@ sub handler {
 		$req = $ses->request( 'open-ils.cstore.direct.asset.copy_location.search', { id => { '!=' => undef } } );
 
     		while (my $s = $req->recv) {
-        		die $req->failed->stringify if ($req->failed);
+        		next if ($req->failed);
         		$s = $s->content;
         		last unless ($s);
 	    		$shelves{$s->id} = $s;
@@ -266,6 +277,23 @@ sub handler {
 
 }
 
+sub verify_login {
+        my $auth_token = shift;
+        return undef unless $auth_token;
+
+        my $user = OpenSRF::AppSession
+                ->create("open-ils.auth")
+                ->request( "open-ils.auth.session.retrieve", $auth_token )
+                ->gather(1);
+
+        if (ref($user) eq 'HASH' && $user->{ilsevent} == 1001) {
+                return undef;
+        }
+
+        return $user if ref($user);
+        return undef;
+}
+
 sub show_template {
 	my $r = shift;