3 # ------------------------------------------------------------------
4 # Permissibility script.
5 # ------------------------------------------------------------------
8 # ------------------------------------------------------------------
10 # ------------------------------------------------------------------
12 IF patron.standing != "Good";
13 ret(PATRON_STANDING, "Patron not in good standing: ${patron.standing}"); END;
16 # ------------------------------------------------------------------
18 # ------------------------------------------------------------------
21 ret(COPY_NOCIRC, "Copy is not allowed to circulate"); END;
23 IF copy.status != "Available";
24 ret(COPY_UNAVAIL, "Copy is unavailable: ${copy.status}"); END;
26 IF !copy.location.circulate;
27 ret(COPY_LOCATION, "Copy location not allowed to curculate"); END;
30 ret(COPY_ISREF, "Copy is reference material"); END;