From 53642ab2b33f91654df4634b36a58e2a08fa3cd3 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sun, 18 May 2008 16:04:52 +0000
Subject: [PATCH] Merged revisions 9631 via svnmerge from
 svn://svn.open-ils.org/ILS/trunk

........
  r9631 | erickson | 2008-05-18 12:02:28 -0400 (Sun, 18 May 2008) | 1 line

  for lack of a more context-specific perm org, checking some global perms agains workstation org
........


git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9632 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index ef07d41aa3..f2a16f529c 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -194,7 +194,7 @@ sub biblio_record_replace_marc  {
 
 	my $e = new_editor(authtoken=>$auth, xact=>1);
 	return $e->die_event unless $e->checkauth;
-	return $e->die_event unless $e->allowed('CREATE_MARC');
+	return $e->die_event unless $e->allowed('CREATE_MARC', $e->requestor->ws_ou);
 
 	my $rec = $e->retrieve_biblio_record_entry($recid)
 		or return $e->die_event;
@@ -273,7 +273,7 @@ sub biblio_record_xml_import {
 	my $override = 1 if $self->api_name =~ /override/;
     my $e = new_editor(xact=>1, authtoken=>$authtoken);
     return $e->die_event unless $e->checkauth;
-    return $e->die_event unless $e->allowed('IMPORT_MARC');
+    return $e->die_event unless $e->allowed('IMPORT_MARC', $e->requestor->ws_ou);
 
 	my( $evt, $tcn, $tcn_source, $marcdoc );
 
@@ -1013,9 +1013,12 @@ sub update_fleshed_copies {
 
 sub fix_copy_price {
 	my $copy = shift;
-	my $p = $copy->price || 0;
-	$p =~ s/\$//og;
-	$copy->price($p);
+
+    if(defined $copy->price) {
+	    my $p = $copy->price || 0;
+	    $p =~ s/\$//og;
+	    $copy->price($p);
+    }
 
 	my $d = $copy->deposit_amount || 0;
 	$d =~ s/\$//og;
@@ -1083,7 +1086,7 @@ sub delete_bib_record {
     my($self, $conn, $auth, $rec_id) = @_;
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
-    return $e->die_event unless $e->allowed('DELETE_RECORD');
+    return $e->die_event unless $e->allowed('DELETE_RECORD', $e->requestor->ws_ou);
     my $vols = $e->search_asset_call_number({record=>$rec_id, deleted=>'f'});
     return OpenILS::Event->new('RECORD_NOT_EMPTY', payload=>$rec_id) if @$vols;
     my $evt = delete_rec($e, $rec_id);
-- 
2.11.0