Re: [MacPerl-Modules] Glue & Filemaker

[Chris Nandor <pudge@pobox.com>]

At 16:47 -0400 1999.09.16, Dave Johnson wrote:
>1) in the example is the line:
>my @fields = $fm->get( $fm->prop(name => fields => gAll, database => 1));
>Where does "get" come from. If I replace it with "get_data" (from the Pod) it
>works just as well, but why does "get" work and not become confused with
>"geturl"??

"get" ne "geturl".  If the text is not exact (aside from the fact that it
is case-insensitive), it won't match.  So get could never be confused with
geturl.

As to where it comes from ... get and set used to be in the dialect file in
Mac OS.  Now they are pulled out and I believe they are in the
AppleScriptLib somewhere.  So I hardcoded them into the Mac::Glue module.


>2) I want to do a simple find records. (Find in FM is far from simple).
>The Apple script example is:
>
>tell application "FileMaker Pro"
>	delete every request
>	create request with data {"1"}
>	find
>end tell
>
>to delete the old find request I think I should use something like this:
>$fm-delete($fm->obj(name => requests => gAll));
>But this gets me no where. Anyone have any ideas??

Why do you use "name" there?  I'd think $fm->obj(requests => gAll) would
work.  Actually, in the latest version of Mac::Glue (0.56),
$fm->obj('requests') should work.


>and while you are at it how do you form the new find request???
>#$fm-create($fm->obj(request, with data ????));
>#$fm->find();

Hm.  I'd guess:

  $fm->create(request => with_data => 1);
  $fm->find;

Remember to check $^E for errors and warnings:

  $fm->create(request => with_data => 1);
  warn $^E if $^E;
  $fm->find;
  warn $^E if $^E;

etc.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org