Crop edges of photo by 5%

Hi all. As i am working on the bunch of images which where originally scanned and cropped into individual images using Script.(Thanks for the script from Jazz), i was struck with the next step where i tried using an action which is as follows.

1. Select all in the image(Landscape image)

2. Transform select. Shrink the selection by 5% ,that is 95 % of the image selected.

3. Activate crop tool. Enter it to execute the crop command.

4. The action did well with the same dimensions of the image .As soon as i apllied the action to a portrait image the dimension didn't change to  landscape format hence cropping the second half of the image.

Could there be a fix for this?

    Looking for an action or script that would activate the crop command with the selection of 95% of the image from centre , pfa and with the transform selection window showing off so that we can modify the selection and once click ok the crop applies and saves the image.

Thanks.