Adjust the leader/05 of records that have been deleted or undeleted

Complies with http://www.loc.gov/marc/bibliographic/bdleader.html

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index f4ccd7c..4ed241f 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -216,6 +216,11 @@ sub undelete_biblio_record_entry {
     $record->deleted('f');
     $record->active('t');
 
+    # Set the leader/05 to indicate that the record has been corrected/revised
+    my $marc = $record->marc();
+    $marc =~ s{(<leader>.{5}).}{$1c};
+    $record->marc($marc);
+
     # no 2 non-deleted records can have the same tcn_value
     my $existing = $e->search_biblio_record_entry(
         {   deleted => 'f', 

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat/BibCommon.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat/BibCommon.pm
index 3ad0343..dc06a9c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat/BibCommon.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat/BibCommon.pm
@@ -312,6 +312,12 @@ sub delete_rec {
    $rec->active('f');
    $rec->editor( $editor->requestor->id );
    $rec->edit_date('now');
+
+   # Set the leader/05 to indicate that the record has been deleted
+   my $marc = $rec->marc();
+   $marc =~ s{(<leader>.{5}).}{$1d};
+   $rec->marc($marc);
+
    $editor->update_biblio_record_entry($rec) or return $editor->event;
 
    return undef;