The "Edit" link of files in use were not greyed in directory listing.

I hope it works properly now...

diff --git a/modules/Command.pm b/modules/Command.pm
index f3a7158d6d3c30f754b8b7d82908e01eb8be9090..d62643ddc5d195181b7f4cedc5b7b9373c7a30de 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>

-# Last modified: 2004-12-06
+# Last modified: 2004-12-10

 #
 
 use strict;
 #
 
 use strict;


@@ -25,6 +25,8 @@ use HTML::Entities;
 use Output;
 use Template;
 
 use Output;
 use Template;
 

+use Data::Dumper;
+

 my $script = $ENV{'SCRIPT_NAME'};
 my $users  = eval("getpwuid(0)") && eval("getgrgid(0)");
 
 my $script = $ENV{'SCRIPT_NAME'};
 my $users  = eval("getpwuid(0)") && eval("getgrgid(0)");
 


@@ -174,7 +176,7 @@ sub exec_show($$)
    $ftpl->parse_if_block("readonly",not -w $phys_path);
 
    $ftpl->parse_if_block("viewable",-r $phys_path && -T $phys_path && not $too_large);
    $ftpl->parse_if_block("readonly",not -w $phys_path);
 
    $ftpl->parse_if_block("viewable",-r $phys_path && -T $phys_path && not $too_large);

-   $ftpl->parse_if_block("editable",-r $phys_path && -w $phys_path && -T $phys_path && not $too_large && not $in_use);
+   $ftpl->parse_if_block("editable",(-r $phys_path && -w $phys_path && -T $phys_path && not $too_large) && not $in_use);

 
    $ftpl->parse_if_block("in_use",$in_use);
    $ftpl->parse_if_block("unused",not $in_use);
 
    $ftpl->parse_if_block("in_use",$in_use);
    $ftpl->parse_if_block("unused",not $in_use);