[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.65, Mon Aug 8 21:54:39 2005 UTC revision 1.66, Tue Aug 9 18:08:41 2005 UTC
# Line 340  Line 340 
340      return unless -d $ddir;      return unless -d $ddir;
341      my $name = &FIG::file_head("$ddir/NAME", 1);      my $name = &FIG::file_head("$ddir/NAME", 1);
342      $name = $id if $name eq '';      $name = $id if $name eq '';
343        chomp($name);
344    
345      my $link = $FIG_Config::cgi_base . "subsys_diagram.cgi?ssa=$self->{name}&diagram=$id";      my $link = $FIG_Config::cgi_base . "subsys_diagram.cgi?ssa=$self->{name}&diagram=$id";
346      my $img_link = $FIG_Config::cgi_base . "subsys_diagram.cgi?ssa=$self->{name}&diagram=$id&image=1";      my $img_link = $FIG_Config::cgi_base . "subsys_diagram.cgi?ssa=$self->{name}&diagram=$id&image=1";
# Line 347  Line 348 
348      return($name, $link, $img_link);      return($name, $link, $img_link);
349  }  }
350    
351    sub get_diagram_html_file
352    {
353        my($self, $id) = @_;
354    
355        my $ddir = "$self->{dir}/diagrams/$id";
356    
357        return unless -d $ddir;
358    
359        my $html = "$ddir/diagram.html";
360    
361        if (-f $html)
362        {
363            return $html;
364        }
365        else
366        {
367            return undef;
368        }
369    }
370    
371  sub open_diagram_image  sub open_diagram_image
372  {  {
373      my($self, $id) = @_;      my($self, $id) = @_;
# Line 380  Line 401 
401    
402      if (-d $dir)      if (-d $dir)
403      {      {
404          &FIG::run("rm -r $dir");          system("rm", "-r", $dir);
405      }      }
406  }  }
407    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3