shoving editor into ctx so others can use it or roll it back
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 14 Sep 2006 12:42:07 +0000 (12:42 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 14 Sep 2006 12:42:07 +0000 (12:42 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6093 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm

index 01d53fd..b46234a 100644 (file)
@@ -46,6 +46,7 @@ sub build {
        my $editor = $$args{editor} || new_editor(xact => 1);
 
        $args->{_direct} = {} unless $args->{_direct};
        my $editor = $$args{editor} || new_editor(xact => 1);
 
        $args->{_direct} = {} unless $args->{_direct};
+       $args->{editor} = $editor;
        
        $evt = fetch_bib_data($editor, $args);
        push(@evts, $evt) if $evt;
        
        $evt = fetch_bib_data($editor, $args);
        push(@evts, $evt) if $evt;