[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.671, Wed Mar 5 17:07:50 2008 UTC revision 1.672, Thu Mar 6 17:05:22 2008 UTC
# Line 17073  Line 17073 
17073    
17074  =cut  =cut
17075    
17076    sub subsystem_num_new_diagrams {
17077      my($self,$ssa) = @_;
17078    
17079      my $diag_dir = "$FIG_Config::data/Subsystems/$ssa/diagrams";
17080      if (opendir(DIR, $diag_dir))
17081        {
17082          my @diagrams = grep { /^d/ && -d "$diag_dir/$_" } readdir(DIR);
17083          my $counter = 0;
17084          closedir DIR;
17085          foreach my $d ( @diagrams ) {
17086             my $image_map = "$diag_dir/$d/diagram.html";
17087             if ($image_map) {
17088                if ( open(IN, "$image_map") ) {
17089                   my $header = <IN>;
17090                   close(IN);
17091    
17092                   if ($header =~ /\<map name=\"GraffleExport\"\>/) {
17093                      $counter++;
17094                   }
17095                }
17096             }
17097          }
17098          return $counter;
17099        }
17100      else
17101        {
17102          return 0;
17103        }
17104    }
17105    
17106    
17107  sub subsystem_num_diagrams {  sub subsystem_num_diagrams {
17108    my($self,$ssa) = @_;    my($self,$ssa) = @_;
17109    
# Line 17088  Line 17119 
17119        return 0;        return 0;
17120      }      }
17121  }  }
   
17122  =head3 subsystem_info  =head3 subsystem_info
17123    
17124  usage: ($version, $curator, $pedigree, $roles) = $fig->subsystem_info($subsystem_name)  usage: ($version, $curator, $pedigree, $roles) = $fig->subsystem_info($subsystem_name)

Legend:
Removed from v.1.671  
changed lines
  Added in v.1.672

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3