[Zope] PerlMethod invocation

[Andy McKay]

It would seem you cant call a Perl Method. The problem would be seem to in
Zope.pm in the compartment_pyobject_AUTOLOAD, where it tries to acquire the
object, and of course it cant acquire &Zope::_recompile. Dont know the
solution off the top of my head though...

I have cross posted this email to the zope-perl mailing list, since you are
more likely to get an intelligent response from that list.
--
  Andy McKay.


----- Original Message -----
From: "Ulrich Wisser" <u.wisser@publisher.de>
To: <zope@zope.org>
Sent: Tuesday, February 13, 2001 3:25 AM
Subject: [Zope] PerlMethod invocation


> Hello,
>
> one of my PerlMethods returns a array ref. Another
> PerlMethod tries to get this ref and construct
> a select form from the data. Please find my code
> below.
>
> When I try to get the array with
>
> $self->reportlist($self) I get a Zope error
>
> Error Type: PerlError
> Error Value: Undefined subroutine &Zope::_recompile called at
> /usr/local/Zope-2.2.5-linux2-x86/lib/perl/Zope.pm line 98.
>
> What do I do wrong?
>
> (Zope 2.2.5, Linux, perl 5.6.1-TRIAL1, zoperl-1.0beta3, pyperl-1.0beta3)
>
> Thanks
>
> Ulrich
>
>
>
> PerlMethods:
>
>
> id: reportliste
> arguments:
> code:
> my @reports = (
>                  [0, '&Uuml;bersicht',            '/report/overview'],
>                  [1, 'Statistik',                 '/report/history'],
>                  [2, 'Alle Seiten',               '/report/pages'],
>                  [3, 'Seiten mit IVW',            '/report/ivw'],
>                  [4, 'Seiten ohne IVW',           '/report/noivw'],
>                  [5, 'Angemeldete Seiten',        '/report/submitted'],
>                  [6, 'Seiten mit Zugriffsfehler', '/report/httperror'],
>                  [7, 'Broken Links',              '/report/brokenlinks'],
>                  [8, 'Seiten ohne Link',          '/report/deadlink'],
>                  [9, 'Header',                    '/report/header']
>                );
>
> return \@reports;
>
>
>
> id: chooseReport
> arguments: self
> code:
> my $report = shift;
> my $res;
> my $reports = $self->reportliste($self);
>
> $res = '<select name="report">';
> foreach my $r (@$reports) {
>    $res .= '<option value="'. $r->[0] .'"';
>    $res .= 'selected' if ($r->[0] == $report);
>    $res .= '>' . $r->[1];
> }
> $res .= '</select>';
> return $res;
> --
> Searchengine Know How  - Webpromotion - Optimization - Internal Search
> World Wide Web Publisher, Ulrich Wisser, Odensvag 13, S-14571 Norsborg
> http://www.publisher.de   Tel: +46-8-53460905    Fax: +46-8-534 609 06
>
>
> _______________________________________________
> Zope maillist  -  Zope@zope.org
> http://lists.zope.org/mailman/listinfo/zope
> **   No cross posts or HTML encoding!  **
> (Related lists -
>  http://lists.zope.org/mailman/listinfo/zope-announce
>  http://lists.zope.org/mailman/listinfo/zope-dev )
>