Wrong forum.  Should be in Quest:Q & A, just fyi.
	Code:
	sub EVENT_ITEM_CLICK {
	if ($itemid = xxxx) {
		$client->LearnRecipe(xx);
	}
}
 Save with 
script_xxxx.pl in your /quests/global/items directory.
Ensure the item has a script number which coincides with whatever you put in place of xxxx (for script_xxxx.pl).
Not quite sure if it will work on books, have yet to try it, though at the moment I cannot think of why it wouldn't.