Re: [MacPerl] Mac::Glue

["Jefferson R. Lowrey" <lowrey@mailbag.com>]

At 4:19 PM -0400 8/25/99, strider corinth wrote:
>I'm using Mac::Glue, and I made Filemaker Pro glue for it with the gluemac
>droplet. I'm trying to execute this command:
>
>--
>show (every record of database 1 whose cell "id" = username and cell "date"
>= date)
>--
>
>I can't figure out what the syntax should be. Wish I could give you more
>info, but I don't have any. =)

It took me a little bit to work out, but here's a functioning script:
use strict;
use Mac::Glue ':all';

my $filemaker = Mac::Glue->new('FileMaker_Pro');

$filemaker ->activate();

$filemaker->show($filemaker->obj(layout => 'Data Entry' =>
                                 document=>'Inventory'));

$filemaker->show($filemaker->obj('records' => whose(AND =>
    ['cell' => 'Phone Ext.' => equals => '127'],
    ['cell' => 'Type' => equals =>'Computer'])));

__END__

This is obviously for one of my databases, but you should be able to easily
change the constants to do what you want.  I was not able to get anything
to work where I was doing something like
$filemaker->show($filemaker->obj('records'=>'document'=>'Inventory'=>.....
with anything after 'Inventory'.  It would complain that the class
Inventory was not defined for the object.

>
>And for Chris, I keep getting these lines when I run my script:
>
>--
># Can't locate :auto:Mac:Glue:autosplit.ix in @INC.
>File 'corinth:Developing:MacPerl Ÿ:site_perl:AutoLoader.pm'; Line 106
>
>File 'corinth:Developing:MacPerl Ÿ:lib:Mac:Glue.pm'; Line 13
>--
>
>They don't seem to affect anything, but is there something I can do to
>avoid them? They only occur when the script first loads. What's with the
>blank error?

I'd say you probably don't have glue installed properly, but that's just my
guess.



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