Comment 2 for bug 1145628

Thanks to some guidance by Thomas Berzansky and Chris Sharp I've got some code that helps solve this.

http://git.evergreen-ils.org/?p=working/Evergreen.git;a=commitdiff;h=1f06a21537f87371fa2e0c8bcc2b96a841588b5c

Warning -- the code is very ugly. I'm not a perl developer so the whitespace is poor, but it is working code in my master server. Example: http://egdev.emeralddata.net/eg/opac/record/2?query=Concerto;qtype=keyword;locg=1;copy_offset=0;copy_limit=50

I'm told "working" code trumps "ugly" code so I was encouraged to share anyways. As I learn more Perl I'll be glad to go back and clean up the whitespace. Sorry, for now!