typo
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 13 Jul 2006 20:07:48 +0000 (20:07 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 13 Jul 2006 20:07:48 +0000 (20:07 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@4973 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm

index 920acfb..72dc84f 100644 (file)
@@ -128,7 +128,6 @@ sub check_user_session {
                'open-ils.auth', 
                'open-ils.auth.session.retrieve', $user_session );
 
-
        if(! $content or $self->event_code($content)) {
                throw OpenSRF::EX::ERROR 
                        ("Session [$user_session] cannot be authenticated" );
@@ -345,6 +344,8 @@ sub checkses {
                $user = $self->check_user_session($session);
        } catch Error with { $e = 1; };
 
+       $logger->debug("Done checking user session $session " . (($e) ? "error = $e" : "") );
+
        if( $e or !$user ) { $evt = OpenILS::Event->new('NO_SESSION'); }
        return ( $user, $evt );
 }
@@ -794,7 +795,7 @@ sub fetch_recurring_fine_by_name {
        my( $obj, $evt );
        $obj = $self->simplereq(
                'open-ils.cstore', 
-               'open-ils.cstore.direct.config.rules.recuring_fine.search.atomic', { name => $name | );
+               'open-ils.cstore.direct.config.rules.recuring_fine.search.atomic', { name => $name } );
        $obj = $obj->[0];
        $evt = OpenILS::Event->new('CONFIG_RULES_RECURING_FINE_NOT_FOUND') unless $obj;
        return ($obj, $evt);