[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.329, Wed Aug 3 17:40:42 2005 UTC revision 1.330, Wed Aug 3 21:16:29 2005 UTC
# Line 7  Line 7 
7  use POSIX;  use POSIX;
8  use IPC::Open2;  use IPC::Open2;
9  use MIME::Base64;  use MIME::Base64;
10    use File::Basename;
11    
12  use DBrtns;  use DBrtns;
13  use Sim;  use Sim;
# Line 9690  Line 9691 
9691                      push(@$notes, "//end\n");                      push(@$notes, "//end\n");
9692                  }                  }
9693    
9694                  if (open(DIAGRAM, "<$ddir/diagram.png"))                  #
9695                    # Find the diagram image.
9696                    #
9697    
9698                    my @images = <$ddir/diagram.{png,gif,jpg}>;
9699    
9700                    for my $img_file (@images)
9701                    {
9702                        if (open(DIAGRAM, "<$img_file"))
9703                  {                  {
9704                      my $size = -s DIAGRAM;                      my $size = -s DIAGRAM;
9705                      push(@$notes, "//diagram:$id:diagram=diagram.png\t$size\n");                          my $base = basename($img_file);
9706                            push(@$notes, "//diagram:$id:diagram=$base\t$size\n");
9707                      my $buf;                      my $buf;
9708                      while (read(DIAGRAM, $buf, 60*57))                      while (read(DIAGRAM, $buf, 60*57))
9709                      {                      {
# Line 9709  Line 9719 
9719                  }                  }
9720              }              }
9721          }          }
9722            }
9723    
9724      }      }
9725      return ($spreadsheet,$notes);      return ($spreadsheet,$notes);

Legend:
Removed from v.1.329  
changed lines
  Added in v.1.330

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3