Changeset 9576 for trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst.pm

Timestamp:

12/09/09 15:59:58 (2 years ago)

Author:

garu

Message:

Fixing template functions for Catalyst Plugin (SeWi?++)

File:

• trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst.pm (modified) (1 diff)

trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst.pm

@@ -583 +583 @@
 sub editor_changed {
     my $self = shift;
-
-    return; # TODO: remove this line as soon as the following are working.
-
-    my $document = undef; # TODO: Fill with the current document
-    
+    my $document = $self->main->current->document || return;
+
     $document->{menu} = [] if (!defined($document->{menu})) or (ref($document->{menu}) ne 'ARRAY');
-    $document ->{menu} = [grep (!/^menu\.catalyst$/,@{$document->{menu}}) ];
-    if (my $document_is_from_catalyst_project) {
-        push @{$document->{menu}},'menu.catalyst';
+    $document->{menu} = [grep (!/^menu\.Catalyst$/,@{$document->{menu}}) ];
+
+    require Padre::Plugin::Catalyst::Util;
+    if (Padre::Plugin::Catalyst::Util::in_catalyst_project($document->filename)) {
+        push @{$document->{menu}}, 'menu.Catalyst';
     }
 }