added general storage result caching where applicable; added actor::card to the field...
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 13 Apr 2005 18:35:29 +0000 (18:35 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 13 Apr 2005 18:35:29 +0000 (18:35 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@277 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Application.pm

index 64493aa..1e7493a 100644 (file)
@@ -243,7 +243,7 @@ sub register_method {
        $args{api_level} ||= 1;
        $args{stream} ||= 0;
        $args{remote} ||= 0;
-       $args{package} = $app;                
+       $args{package} ||= $app;                
        $args{server_class} = server_class();
        $args{api_name} ||= $args{server_class} . '.' . $args{method};