filled in some gaps WRT editor/edit_date on copies and volumes

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5405 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 0643e96..24c3d5c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -917,6 +917,9 @@ sub fleshed_volume_update {
                my $copies = $vol->copies;
                $vol->clear_copies;
 
+               $vol->editor($editor->requestor->id);
+               $vol->edit_date('now');
+
                if( $vol->isdeleted ) {
 
                        $logger->info("vol-update: deleting volume");
@@ -1018,6 +1021,8 @@ sub update_copy {
        my $orig_copy = $editor->retrieve_asset_copy($copy->id);
        my $orig_vol  = $editor->retrieve_asset_call_number($copy->call_number);
 
+       $copy->editor($editor->requestor->id);
+       $copy->edit_date('now');
        return $editor->event unless
                $editor->update_asset_copy( 
                        $copy, {checkperm=>1, permorg=>$vol->owning_lib});
@@ -1035,6 +1040,8 @@ sub remove_empty_objects {
                        # delete this volume if it's not already marked as deleted
                        unless( $U->is_true($vol->deleted) || $vol->isdeleted ) {
                                $vol->deleted('t');
+                               $vol->editor($editor->requestor->id);
+                               $vol->edit_date('now');
                                $editor->update_asset_call_number($vol, {checkperm=>0})
                                        or return $editor->event;
                        }
@@ -1065,6 +1072,8 @@ sub delete_copy {
        $logger->info("vol-update: deleting copy ".$copy->id);
        $copy->deleted('t');
 
+       $copy->editor($editor->requestor->id);
+       $copy->edit_date('now');
        $editor->update_asset_copy(
                $copy, {checkperm=>1, permorg=>$vol->owning_lib})
                or return $editor->event;
@@ -1176,6 +1185,8 @@ sub create_volume {
 
        $vol->creator($editor->requestor->id);
        $vol->create_date('now');
+       $vol->editor($editor->requestor->id);
+       $vol->edit_date('now');
        $vol->clear_id;
 
        $editor->create_asset_call_number($vol) or return $editor->event;

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat/Merge.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat/Merge.pm
index 4e29cec..fec432c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat/Merge.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat/Merge.pm
@@ -86,6 +86,8 @@ sub merge_records {
                        $logger->debug("merge: moving volume ".
                                $vol->id." from record ".$vol->record. " to $master");
 
+                       $vol->editor( $editor->requestor->id );
+                       $vol->edit_date('now');
                        $vol->record( $master );
                        $editor->update_asset_call_number($vol)
                                or return $editor->event;

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index ece57b6..d12b232 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -783,6 +783,8 @@ sub update_copy {
        $copy->status($stat->id) if $stat;
        $copy->location($loc->id) if $loc;
        $copy->circ_lib($circ_lib->id) if $circ_lib;
+       $copy->editor($self->editor->requestor->id);
+       $copy->edit_date('now');
 
        return $self->bail_on_events($self->editor->event)
                unless $self->editor->update_asset_copy($self->copy);