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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.76, Mon Dec 5 19:06:30 2005 UTC revision 1.77, Thu Dec 8 19:50:50 2005 UTC
# Line 29  Line 29 
29  use File::Copy;  use File::Copy;
30  use File::Spec;  use File::Spec;
31  use IPC::Open2;  use IPC::Open2;
32    use Tracer;
33    
34  use strict;  use strict;
35    
# Line 3379  Line 3380 
3380  sub GetDiagramName {  sub GetDiagramName {
3381      # Get the parameters.      # Get the parameters.
3382      my ($subDir, $diagramID) = @_;      my ($subDir, $diagramID) = @_;
3383        # Declare the return value.
3384        my $retVal;
3385      # Get the diagram's directory.      # Get the diagram's directory.
3386      my $ddir = "$subDir/diagrams/$diagramID";      my $ddir = "$subDir/diagrams/$diagramID";
3387        Trace("Looking for directory $ddir.") if T(3);
3388      # Only proceed if the directory exists.      # Only proceed if the directory exists.
3389      return unless -d $ddir;      if (-d $ddir) {
3390      # Read the name.      # Read the name.
3391      my $name = &FIG::file_head("$ddir/NAME", 1);      my $name = &FIG::file_head("$ddir/NAME", 1);
3392      # If there was no name, use the diagram ID.      # If there was no name, use the diagram ID.
3393      $name = $diagramID if $name eq '';          Trace("Diagram name is \"$name\".") if T(3);
3394            if (! $name) {
3395                Trace("Using default name $diagramID.") if T(3);
3396                $name = $diagramID;
3397            }
3398      # Lop off the line terminator.      # Lop off the line terminator.
3399      chomp ($name);      chomp ($name);
3400      # Return the result.      # Return the result.
3401      return $name;          $retVal = $name;
3402        }
3403        Trace("Returning diagram name \"$retVal\".") if T(3);
3404        return $retVal;
3405  }  }
3406    
3407  =head3 ComputeDiagramURLs  =head3 ComputeDiagramURLs

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3