[Bio] / KBaseTutorials / add_links_to_tutorials.pl Repository:
ViewVC logotype

Diff of /KBaseTutorials/add_links_to_tutorials.pl

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

revision 1.2, Mon Mar 12 20:34:04 2012 UTC revision 1.3, Mon Mar 12 20:39:33 2012 UTC
# Line 19  Line 19 
19  foreach my $line (@cdmi) {  foreach my $line (@cdmi) {
20          $line =~ /funcdef\s+(\S+?)\(/;          $line =~ /funcdef\s+(\S+?)\(/;
21          my $l = lc $1;          my $l = lc $1;
22          $links{$1} = "<a href=\"$cdmi_url$1\">$l</a>";          $links{$1} = "<a href=\"$cdmi_url$1\" target='_blank'>$l</a>";
23  }  }
24  foreach my $line (@cdmi_entity) {  foreach my $line (@cdmi_entity) {
25          $line =~ /funcdef\s+(\S+?)\(/;          $line =~ /funcdef\s+(\S+?)\(/;
26          my $l = lc $1;          my $l = lc $1;
27          $links{$1} = "<a href=\"$cdmi_entity_url$l\">$1</a>";          $links{$1} = "<a href=\"$cdmi_entity_url$l\" target='_blank'>$1</a>";
28  }  }
29  foreach my $line (@idserver) {  foreach my $line (@idserver) {
30          $line =~ /funcdef\s+(\S+?)\(/;          $line =~ /funcdef\s+(\S+?)\(/;
31          my $l = lc $1;          my $l = lc $1;
32          $links{$1} = "<a href=\"$idserver_url$l\">$1</a>";          $links{$1} = "<a href=\"$idserver_url$l\" target='_blank'>$1</a>";
33  }  }
34    
35  my $x = join("", <stdin>);  my $x = join("", <stdin>);

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3