return just the workstation id on successful registration
authorphasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Mar 2006 18:38:35 +0000 (18:38 +0000)
committerphasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Mar 2006 18:38:35 +0000 (18:38 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3283 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 7c6d886..fc180a7 100644 (file)
@@ -1746,7 +1746,7 @@ __PACKAGE__->register_method (
                @param authtoken The login session key
                @param name The name of the workstation id
                @param owner The org unit that owns this workstation
                @param authtoken The login session key
                @param name The name of the workstation id
                @param owner The org unit that owns this workstation
-               @return The workstation on success, WORKSTATION_NAME_EXISTS
+               @return The workstation id on success, WORKSTATION_NAME_EXISTS
                if the name is already in use.
        /);
 
                if the name is already in use.
        /);
 
@@ -1770,7 +1770,7 @@ sub register_workstation {
        return $U->DB_UPDATE_FAILED($ws) unless $id;
 
        $ws->id($id);
        return $U->DB_UPDATE_FAILED($ws) unless $id;
 
        $ws->id($id);
-       return $ws;
+       return $ws->id();
 }
 
 
 }