moving, faster than the speed of light

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index a17e9b9..90f2d07 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -185,12 +185,14 @@ sub _add_patron {
        if(!$id) { 
                return OpenILS::EX->new("DUPLICATE_USER_USERNAME");
        }
-       warn "Created new patron with id $id\n";
 
        # retrieve the patron from the db to collect defaults
        my $ureq = $session->request(
                        "open-ils.storage.direct.actor.user.retrieve",
                        $id);
+
+       warn "Created new patron with id $id\n";
+
        return $ureq->gather(1);
 }
 

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm
index 8d6d63b..27e4649 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm
@@ -136,12 +136,18 @@ __PACKAGE__->register_method(
 sub get_required_surveys {
        my( $self, $client, $user_session ) = @_;
        
+       warn "Retrieving required surveys\n";
+
        my $user_obj = $apputils->check_user_session($user_session); 
        my $surveys = $apputils->simple_scalar_request(
                "open-ils.storage",
                "open-ils.storage.action.survey.required.atomic",
                $user_obj->home_ou() );
 
+       if($surveys) {
+               warn "Retrieved " . scalar(@$surveys)." required surveys\n";
+       }
+
        my @fleshed;
        for my $survey (@$surveys) {
                push(@fleshed, $self->get_fleshed_survey($client, $survey));