3 # ------------------------------------------------------------------
4 # Permissibility script.
5 # ------------------------------------------------------------------
9 # ------------------------------------------------------------------
11 # ------------------------------------------------------------------
13 IF patron.standing != "Good";
14 ret(PATRON_STANDING, "Patron not in good standing: ${patron.standing}"); END;
16 IF patron.profile == "STAFF" && patron_copies > 50;
17 ret(PATRON_CHECKOUT_COUNT, "Patron checkout count exceeds limit"); END;
19 IF patron.profile == "ADULT" && patron_copies > 10;
20 ret(PATRON_CHECKOUT_COUNT, "Patron checkout count exceeds limit"); END;
22 IF patron.profile == "JUVENILE" && patron_copies > 5;
23 ret(PATRON_CHECKOUT_COUNT, "Patron checkout count exceeds limit"); END;
26 # ------------------------------------------------------------------
28 # ------------------------------------------------------------------
31 ret(COPY_NOCIRC, "Copy is not allowed to circulate"); END;
33 IF copy.status != "Available";
34 ret(COPY_UNAVAIL, "Copy is unavailable: ${copy.status}"); END;
36 IF !copy.location.circulate;
37 ret(COPY_LOCATION, "Copy location not allowed to curculate"); END;
40 ret(COPY_ISREF, "Copy is reference material"); END;