Subversion Repositories wimsdev

Rev

Rev 15437 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15437 Rev 15452
Line 18... Line 18...
18 
    if ($line=~ /<strong>([^<]+)<\/strong>/) { $strong{$1} .= " $file"};
 18 
    if ($line=~ /<strong>([^<]+)<\/strong>/) { $strong{$1} .= " $file"};
19 
    next if !($line =~ /gl_keywords=/ || $line =~ /gl_type=/) ;
 19 
    next if !($line =~ /gl_keywords=/ || $line =~ /gl_type=/) ;
20 
    $type=$1 if($line=~/gl_type=(.*)/);
 20 
    $type=$1 if($line=~/gl_type=(.*)/);
21 
    $add =$1 if($line=~/!set gl_keywords=(.*)/);
 21 
    $add =$1 if($line=~/!set gl_keywords=(.*)/);
22 
    chomp $add; chomp $type;
 22 
    chomp $add; chomp $type;
- 
 
 23 
    next if ($type=~ /dynamic/);
23 
    @list_sort=split('/', $file);
 24 
    @list_sort=split('/', $file);
24 
    $list_to_sort .= "$list_sort[0],$list_sort[1],$list_sort[3],$list_sort[2]\n";
 25 
    $list_to_sort .= "$list_sort[0],$list_sort[1],$list_sort[3],$list_sort[2]\n";
25 
  }
 26 
  }
26 
  $type='main' if !($type);
 27 
  $type='main' if !($type);
27 
  $ref{$add} .= "$file/$type " if ($add);
 28 
  $ref{$add} .= "$file/$type " if ($add);