[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.96, Fri Jan 26 21:33:03 2007 UTC revision 1.97, Fri Feb 16 16:46:22 2007 UTC
# Line 440  Line 440 
440      }      }
441  }  }
442    
443    sub is_new_diagram {
444      my ($self, $id) = @_;
445    
446      my $image_map = $self->get_diagram_html_file($id);
447      if ($image_map) {
448    
449        open(IN, "$image_map") or die "Unable to open file $image_map.";
450        my $header = <IN>;
451        close(IN);
452    
453        if ($header =~ /\<map name=\"GraffleExport\"\>/) {
454          return 1;
455        }
456      }
457    
458      return undef;
459    }
460    
461    sub get_link_for_new_diagram {
462      my ($self, $id) = @_;
463    
464      my $ss_name = $self->{name};
465      return "./diagram.cgi?subsystem_name=$ss_name&diagram=$id";
466    }
467    
468    
469  sub open_diagram_image  sub open_diagram_image
470  {  {

Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3