add status as a public note in exporter

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@9996 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 d02d4ff..fba5fe6 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -88,11 +88,14 @@ sub handler {
        # 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 $bucket = $ses->request( 'open-ils.cstore.direct.container.biblio_record_entry_bucket.retrieve', $container )->gather(1);
+        if ($bucket->pub !~ /t|1/oi) {
+               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 => $container } )->gather(1);
                @records = map { ($_->target_biblio_record_entry) } @$recs;
        }
@@ -151,6 +154,7 @@ sub handler {
 
        my %orgs;
        my %shelves;
+       my %statuses;
 
        my $flesh = {};
        if ($holdings) {
@@ -175,6 +179,16 @@ sub handler {
                }
                $req->finish;
 
+               $req = $ses->request( 'open-ils.cstore.direct.config.copy_status.search', { id => { '!=' => undef } } );
+
+               while (my $s = $req->recv) {
+                       next if ($req->failed);
+                       $s = $s->content;
+                       last unless ($s);
+                       $statuses{$s->id} = $s;
+               }
+               $req->finish;
+
                $flesh = { flesh => 2, flesh_fields => { bre => [ 'call_numbers' ], acn => [ 'copies' ] } };
        }
 
@@ -243,6 +257,7 @@ sub handler {
                                                                                ($cp->holdable eq 'f' ? ( x => 'unholdable' ) : ()),
                                                                                ($cp->circulate eq 'f' ? ( x => 'noncirculating' ) : ()),
                                                                                ($cp->opac_visible eq 'f' ? ( x => 'hidden' ) : ()),
+                                                                               z => $statuses{$cp->status}->name,
                                                                        )
                                                                );
 
@@ -315,7 +330,7 @@ sub show_template {
                                <option value="biblio">Bibliographic Records</option>
                                <option value="authority">Authority Records</option>
                        </select>
-                       <br/> Record Fromat:
+                       <br/> Record Format:
                        <select name="format">
                                <option value="USMARC">MARC21</option>
                                <option value="UNIMARC">UNIMARC</option>