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

Diff of /FigKernelPackages/HTML.pm

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

revision 1.96, Wed Jul 19 15:41:47 2006 UTC revision 1.100, Sun Sep 24 15:22:58 2006 UTC
# Line 17  Line 17 
17    
18  package HTML;  package HTML;
19    
20    use strict;
21  use Tracer;  use Tracer;
22  use FIG;  use FIG;
23  use Carp;  use Carp;
# Line 28  Line 29 
29  use HTTP::Request::Common;  use HTTP::Request::Common;
30  use POSIX;  use POSIX;
31    
32  use raelib; # now used for the excel function, that should eventually end up in here. Way too experimental!  #use raelib; # now used for the excel function, that should eventually end up in here. Way too experimental!
33  my $raelib=new raelib;  my $raelib;
34    
35    
36  my $top_link_cache;  my $top_link_cache;
# Line 181  Line 182 
182      # Find the HTML header      # Find the HTML header
183      #      #
184    
185      my $html_tail_file = "./Html/$tail_name";      ### TRS ### "tail_name" has no value here.
186      if (! -f $html_tail_file)      my $html_tail_file = ""; # "./Html/$tail_name";
187      {  #    if (! -f $html_tail_file)
188          $html_tail_file = "$FIG_Config::fig/CGI/Html/$tail_name";  #    {
189      }  #        $html_tail_file = "$FIG_Config::fig/CGI/Html/$tail_name";
190    #    }
191    
192      my $user = $cgi->param('user') || "";      my $user = $cgi->param('user') || "";
193      my @html_hdr;      my @html_hdr;
# Line 415  Line 417 
417          # BASE href needs to be absolute. RDO.          # BASE href needs to be absolute. RDO.
418          #          #
419          #          #
420          $base_url = &FIG::cgi_url;  #        $base_url = &FIG::cgi_url;
421  #       my $base_url = $FIG_Config::cgi_base;  #       my $base_url = $FIG_Config::cgi_base;
422  #       if ( ! $base_url )                      # if cgi_base was not defined  #       if ( ! $base_url )                      # if cgi_base was not defined
423  #       {  #       {
# Line 558  Line 560 
560      push(@tab,"</table>\n");      push(@tab,"</table>\n");
561    
562      # excelfile should be appropriate for a filename (no spaces/special characters)      # excelfile should be appropriate for a filename (no spaces/special characters)
563      if (defined $options{"excelfile"}) {push @tab, $raelib->tab2excel($col_hdrs,$tab,$title,\%options,$options{"excelfile"})}      if (defined $options{"excelfile"}) {
564            if (! defined($raelib)) {
565                require raelib;
566                $raelib = new raelib;
567            }
568            push @tab, $raelib->tab2excel($col_hdrs,$tab,$title,\%options,$options{"excelfile"})}
569    
570      return join("",@tab);      return join("",@tab);
571  }  }
# Line 833  Line 840 
840          my $link;          my $link;
841          my $new_framework = $cgi->param('new_framework') ? 1 : 0;          my $new_framework = $cgi->param('new_framework') ? 1 : 0;
842          #added to format prophage and path island links to feature.cgi          #added to format prophage and path island links to feature.cgi
843          if ($1 ne "peg")          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
844            if ($1 ne "peg" && ! $sprout)
845          {          {
846             my $user = $cgi->param('user');             my $user = $cgi->param('user');
847             if (! $user) { $user = "" }             if (! $user) { $user = "" }
848             my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";             $link = "$top/feature.cgi?feature=$fid&user=$user$sprout";
            $link = "$top/feature.cgi?feature=$fid&user=$user$trans$sprout";  
849             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;
850          }          }
851          else          else
# Line 912  Line 919 
919          {          {
920              $url .= "?" . join("&",@args);              $url .= "?" . join("&",@args);
921          }          }
922          $request = new HTTP::Request('GET', $url);          my $request = new HTTP::Request('GET', $url);
923          my $response = $ua->request($request);          my $response = $ua->request($request);
924    
925          if ($response->is_success)          if ($response->is_success)
# Line 930  Line 937 
937    
938  #   Now splice in a line of the form <base href=URL> to cause all relative links to work  #   Now splice in a line of the form <base href=URL> to cause all relative links to work
939  #   properly.  Remove the header.  #   properly.  Remove the header.
940        my $i;
941      for ($i=0; ($i < @output) && ($output[$i] !~ /^\s*\</); $i++) {}      for ($i=0; ($i < @output) && ($output[$i] !~ /^\s*\</); $i++) {}
942      if ($i < @output)      if ($i < @output) {
     {  
   
943          splice(@output,0,$i);          splice(@output,0,$i);
944      }      }
945    
# Line 950  Line 955 
955  sub trim_output {  sub trim_output {
956      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
957      my($out) = @_;      my($out) = @_;
958      my $i;      my ($i, $j);
959    
960      for ($i=0; ($i < @$out) && ($out->[$i] !~ /^\</); $i++) {}      for ($i=0; ($i < @$out) && ($out->[$i] !~ /^\</); $i++) {}
961      splice(@$out,0,$i);      splice(@$out,0,$i);
# Line 979  Line 984 
984      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}
985      if ($j > 0)      if ($j > 0)
986      {      {
987          my @tmp = `cat $html_tail_file`;           ### TRS ###
988          my $n = @tmp;  #        my @tmp = `cat $html_tail_file`;
989          splice(@$out,$j-$n,$n+1);  #        my $n = @tmp;
990    #        splice(@$out,$j-$n,$n+1);
991      }      }
992  }  }
993    
# Line 1189  Line 1195 
1195      my($cgi,$id) = @_;      my($cgi,$id) = @_;
1196    
1197      if ($id =~ /^tr\|(.*)/) {      if ($id =~ /^tr\|(.*)/) {
1198        return "<a href='http://ca.expasy.org/uniprot/$1'>$id</a>";        return "<a href='http://ca.expasy.org/uniprot/$1' target=_blank>$id</a>";
1199      } else {      } else {
1200        return "invalid call to trembl link";        return "invalid call to trembl link";
1201      }      }
# Line 1201  Line 1207 
1207    
1208      if ($id =~ /^[NXYZA]P_/)      if ($id =~ /^[NXYZA]P_/)
1209      {      {
1210          return "<a href=http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=protein&cmd=search&term=$id>$id</a>";          return "<a href='http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=protein&cmd=search&term=$id' target=_blank>$id</a>";
1211      }      }
1212      elsif ($id =~ /^[NXYZA]M_/)      elsif ($id =~ /^[NXYZA]M_/)
1213      {      {
1214          return "<a href=http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=nuccore&cmd=search&term=$id>$id</a>";          return "<a href='http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=nuccore&cmd=search&term=$id' target=_blank>$id</a>";
1215      }      }
1216  }  }
1217    
# Line 1215  Line 1221 
1221    
1222      if ($gi =~ /^gi\|(\d+)$/)      if ($gi =~ /^gi\|(\d+)$/)
1223      {      {
1224          return "<a href=http://www.ncbi.nlm.nih.gov:80/entrez/query.fcgi?cmd=Retrieve&db=Protein&list_uids=$1&dopt=GenPept>$gi</a>";          return "<a href='http://www.ncbi.nlm.nih.gov:80/entrez/query.fcgi?cmd=Retrieve&db=Protein&list_uids=$1&dopt=GenPept' target=_blank>$gi</a>";
1225      }      }
1226      return $gi;      return $gi;
1227  }  }
# Line 1227  Line 1233 
1233      if ($tigr =~ /^tigr\|(NT|ntbp|ntbpA|BA|BMAA|BXB|GBA)(\w+)$/)      if ($tigr =~ /^tigr\|(NT|ntbp|ntbpA|BA|BMAA|BXB|GBA)(\w+)$/)
1234      {      {
1235          my $id=$1.$2;          my $id=$1.$2;
1236          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\">$tigr</a> (Pathema)";          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\" target=_blank>$tigr</a> (Pathema)";
1237      }      }
1238      elsif ($tigr =~ /^tigr\|(\S+)$/)      elsif ($tigr =~ /^tigr\|(\S+)$/)
1239      {      {
1240          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\">$tigr</a>";          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\" target=_blank>$tigr</a>";
1241      }      }
1242      return $tigr;      return $tigr;
1243  }  }
# Line 1242  Line 1248 
1248    
1249      if ($eric =~ /^eric\|(\S+)/)      if ($eric =~ /^eric\|(\S+)/)
1250      {      {
1251          return "<a href=\"https://asap.ahabs.wisc.edu/asap/feature_info.php?FeatureID=$1\">$eric</a>";          return "<a href=\"https://asap.ahabs.wisc.edu/asap/feature_info.php?FeatureID=$1\" target=_blank>$eric</a>";
1252      }      }
1253      return $eric;      return $eric;
1254  }  }
# Line 1251  Line 1257 
1257      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1258      my($cgi,$bhb) = @_;      my($cgi,$bhb) = @_;
1259    
1260      return "<a href=\"http://www.biohealthbase.org\">$bhb</a>";      return "<a href=\"http://www.biohealthbase.org\" target=_blank>$bhb</a>";
1261  }  }
1262    
1263  sub apidb_link {  sub apidb_link {
# Line 1260  Line 1266 
1266    
1267      if ($api =~ /apidb\|(.*?)\.(.*)$/)      if ($api =~ /apidb\|(.*?)\.(.*)$/)
1268      {      {
1269          return "<a href=\"http://www.apidb.org/cgi-bin/redirect.cgi?taxon_id=$1&source_id=$2\">$api</a>";          return "<a href=\"http://www.apidb.org/cgi-bin/redirect.cgi?taxon_id=$1&source_id=$2\" target=_blank>$api</a>";
1270      }      }
1271      return $api;      return $api;
1272  }  }
# Line 1271  Line 1277 
1277    
1278      if ($patric =~ /patric\|(.*)/)      if ($patric =~ /patric\|(.*)/)
1279      {      {
1280          return "<a href=\"https://patric.vbi.vt.edu/software/curationTool/gep/pgiCuration.php?locus_name=$1\">$patric</a>";          return "<a href=\"https://patric.vbi.vt.edu/software/curationTool/gep/pgiCuration.php?locus_name=$1\" target=_blank>$patric</a>";
1281      }      }
1282      return $patric;      return $patric;
1283  }  }
# Line 1282  Line 1288 
1288    
1289      if ($vbrc =~ /vbrc\|(.*)/)      if ($vbrc =~ /vbrc\|(.*)/)
1290      {      {
1291          return "<a href=\"http://www.biovirus.org/gene_detail.asp?name=$1\">$vbrc</a>";          return "<a href=\"http://www.biovirus.org/gene_detail.asp?name=$1\" target=_blank>$vbrc</a>";
1292      }      }
1293      return $vbrc;      return $vbrc;
1294  }  }
# Line 1290  Line 1296 
1296  sub vectorbase_link {  sub vectorbase_link {
1297      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1298      my($cgi,$vec) = @_;      my($cgi,$vec) = @_;
1299      return "<a href=\"http://www.vectorbase.org\">$vec</a>";      return "<a href=\"http://www.vectorbase.org\" target=_blank>$vec</a>";
1300  }  }
1301    
1302    
# Line 1301  Line 1307 
1307      if ($uni =~ /^uni\|(\S+)$/)      if ($uni =~ /^uni\|(\S+)$/)
1308      {      {
1309          #return "<a href=http://www.pir.uniprot.org/cgi-bin/upEntry?id=$1>$uni</a>";          #return "<a href=http://www.pir.uniprot.org/cgi-bin/upEntry?id=$1>$uni</a>";
1310          return "<a href='http://www.ebi.uniprot.org/uniprot-srv/uniProtView.do?proteinAc=$1'>$uni</a>";          return "<a href='http://www.ebi.uniprot.org/uniprot-srv/uniProtView.do?proteinAc=$1' target=_blank>$uni</a>";
1311      }      }
1312      return $uni;      return $uni;
1313  }  }
# Line 1312  Line 1318 
1318    
1319      if ($sp =~ /^sp\|(\S+)$/)      if ($sp =~ /^sp\|(\S+)$/)
1320      {      {
1321          return "<a href=http://us.expasy.org/cgi-bin/get-sprot-entry?$1>$sp</a>";          return "<a href='http://us.expasy.org/cgi-bin/get-sprot-entry?$1' target=_blank>$sp</a>";
1322      }      }
1323      return $sp;      return $sp;
1324  }  }
# Line 1323  Line 1329 
1329    
1330      if ($pir =~ /^pirnr\|(NF\d+)$/)      if ($pir =~ /^pirnr\|(NF\d+)$/)
1331      {      {
1332          return "<a href=http://pir.georgetown.edu/cgi-bin/nfEntry.pl?id=$1>$pir</a>";          return "<a href='http://pir.georgetown.edu/cgi-bin/nfEntry.pl?id=$1' target=_blank>$pir</a>";
1333      }      }
1334      return $pir;      return $pir;
1335  }  }
# Line 1334  Line 1340 
1340    
1341      if ($kegg =~ /^kegg\|([^:]+):(\S+)$/)      if ($kegg =~ /^kegg\|([^:]+):(\S+)$/)
1342      {      {
1343          return "<a href=http://www.genome.ad.jp/dbget-bin/www_bget?$1+$2>$kegg</a>";          return "<a href='http://www.genome.ad.jp/dbget-bin/www_bget?$1+$2' target=_blank>$kegg</a>";
1344      }      }
1345      return $kegg;      return $kegg;
1346  }  }
# Line 1356  Line 1362 
1362          #can't see how to do that without knowing the org name too, which          #can't see how to do that without knowing the org name too, which
1363          #I don't know at this point. (ensembl org name, not real org name)          #I don't know at this point. (ensembl org name, not real org name)
1364    
1365          return "<a href=http://www.ensembl.org/Homo_sapiens/searchview?species=all&idx=$idx&q=$key>$ensembl</a>";          return "<a href='http://www.ensembl.org/Homo_sapiens/searchview?species=all&idx=$idx&q=$key' target=_blank>$ensembl</a>";
1366      }      }
1367      return $ensembl;      return $ensembl;
1368  }  }
# Line 1367  Line 1373 
1373    
1374      if ($entrezgene =~ /^EntrezGene:(\S+)$/)      if ($entrezgene =~ /^EntrezGene:(\S+)$/)
1375      {      {
1376          return "<a href=http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=gene&cmd=Retrieve&dopt=full_report&list_uids=$1>$entrezgene</a>";          return "<a href='http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=gene&cmd=Retrieve&dopt=full_report&list_uids=$1' target=_blank>$entrezgene</a>";
1377      }      }
1378      return $entrezgene;      return $entrezgene;
1379  }  }
# Line 1378  Line 1384 
1384    
1385      if ($mim =~ /^MIM:(\S+)$/)      if ($mim =~ /^MIM:(\S+)$/)
1386      {      {
1387          return "<a href=http://www3.ncbi.nlm.nih.gov/entrez/dispomim.cgi?id=$1>$mim</a>";          return "<a href='http://www3.ncbi.nlm.nih.gov/entrez/dispomim.cgi?id=$1' target=_blank>$mim</a>";
1388      }      }
1389      return $mim;      return $mim;
1390  }  }
# Line 1389  Line 1395 
1395    
1396      if ($hgnc =~ /^HGNC:(\S+)$/)      if ($hgnc =~ /^HGNC:(\S+)$/)
1397      {      {
1398          return "<a href=http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/searchgenes.pl?field=symbol&anchor=equals&match=$1&symbol_search=Search&number=50&format=html&sortby=symbol>$hgnc</a>";          return "<a href='http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/searchgenes.pl?field=symbol&anchor=equals&match=$1&symbol_search=Search&number=50&format=html&sortby=symbol' target=_blank>$hgnc</a>";
1399      }      }
1400      return $mim;      ### TRS ###: was $mim, changed to $hgnc
1401        return $hgnc;
1402  }  }
1403    
1404  sub unigene_link {  sub unigene_link {
# Line 1400  Line 1407 
1407    
1408      if ($unigene =~ /^UniGene:(\S+)$/)      if ($unigene =~ /^UniGene:(\S+)$/)
1409      {      {
1410          return "<a href=http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=unigene&cmd=search&term=$1>$unigene</a>";          return "<a href='http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=unigene&cmd=search&term=$1' target=_blank>$unigene</a>";
1411      }      }
1412      return $unigene;      return $unigene;
1413  }  }
# Line 1411  Line 1418 
1418    
1419      if ($ipi =~ /^IPI:(\S+)$/)      if ($ipi =~ /^IPI:(\S+)$/)
1420      {      {
1421          return "<a href=http://srs.ebi.ac.uk/srsbin/cgi-bin/wgetz?-id+AEoS1R8Jnn+-e+[IPI:\'$1\']+-qnum+1+-enum+1>$ipi</a>";          return "<a href='http://srs.ebi.ac.uk/srsbin/cgi-bin/wgetz?-id+AEoS1R8Jnn+-e+[IPI:\'$1\']+-qnum+1+-enum+1' target=_blank>$ipi</a>";
1422      }      }
1423      return $ipi;      return $ipi;
1424  }  }
# Line 1424  Line 1431 
1431    
1432      if ($wp =~ /^WP:(\S+)$/)      if ($wp =~ /^WP:(\S+)$/)
1433      {      {
1434          return "<a href=http://www.wormbase.org/db/searches/basic?class=Any&query=$1&Search=Search>$wp</a>";          return "<a href='http://www.wormbase.org/db/searches/basic?class=Any&query=$1&Search=Search' target=_blank>$wp</a>";
1435      }      }
1436      return $wp;      return $wp;
1437  }  }
# Line 1437  Line 1444 
1444    
1445      if ($fb =~ /^FB:(\S+)$/)      if ($fb =~ /^FB:(\S+)$/)
1446      {      {
1447          return "<a href=http://flybase.bio.indiana.edu/.bin/fbidq.html?$1>$fb</a>";          return "<a href='http://flybase.bio.indiana.edu/.bin/fbidq.html?$1' target=_blank>$fb</a>";
1448      }      }
1449      return $fb;      return $fb;
1450  }  }
# Line 1450  Line 1457 
1457    
1458      if ($fb =~ /^FlyBaseORFNames:(\S+)$/)      if ($fb =~ /^FlyBaseORFNames:(\S+)$/)
1459      {      {
1460          return "<a href=http://flybase.bio.indiana.edu/.bin/fbidq.html?$1>$fb</a>";          return "<a href='http://flybase.bio.indiana.edu/.bin/fbidq.html?$1' target=_blank>$fb</a>";
1461      }      }
1462      return $fb;      return $fb;
1463  }  }
# Line 1463  Line 1470 
1470    
1471      if ($sgd =~ /^SGD_LOCUS:(\S+)$/)      if ($sgd =~ /^SGD_LOCUS:(\S+)$/)
1472      {      {
1473          return "<a href=http://db.yeastgenome.org/cgi-bin/locus.pl?locus=$1>$sgd</a>";          return "<a href='http://db.yeastgenome.org/cgi-bin/locus.pl?locus=$1' target=_blank>$sgd</a>";
1474      }      }
1475      return $sgd;      return $sgd;
1476  }  }
# Line 1494  Line 1501 
1501      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1502      my($cgi,$map,$org) = @_;      my($cgi,$map,$org) = @_;
1503    
1504      $user = $cgi->param('user');      my $user = $cgi->param('user');
1505      $user = $user ? $user : "";      $user = $user ? $user : "";
1506      $org = $org ? $org : "";      $org = $org ? $org : "";
1507    
# Line 1512  Line 1519 
1519    # -name => field and the checkbox name    # -name => field and the checkbox name
1520    my ($form, $button)=@_;    my ($form, $button)=@_;
1521    
1522    $java_script="<input type=\"button\" name=\"CheckAll\" value=\"Check All\"\nonClick=\"checkAll(document.$form.$button)\">\n";    my $java_script="<input type=\"button\" name=\"CheckAll\" value=\"Check All\"\nonClick=\"checkAll(document.$form.$button)\">\n";
1523    $java_script.="<input type=\"button\" name=\"CheckFirst\" value=\"Check First Half\"\nonClick=\"checkFirst(document.$form.$button)\">\n";    $java_script.="<input type=\"button\" name=\"CheckFirst\" value=\"Check First Half\"\nonClick=\"checkFirst(document.$form.$button)\">\n";
1524    $java_script.="<input type=\"button\" name=\"CheckSecond\" value=\"Check Second Half\"\nonClick=\"checkSecond(document.$form.$button)\">\n";    $java_script.="<input type=\"button\" name=\"CheckSecond\" value=\"Check Second Half\"\nonClick=\"checkSecond(document.$form.$button)\">\n";
1525    $java_script.="<input type=\"button\" name=\"UnCheckAll\" value=\"Uncheck All\"\nonClick=\"uncheckAll(document.$form.$button)\">\n";    $java_script.="<input type=\"button\" name=\"UnCheckAll\" value=\"Uncheck All\"\nonClick=\"uncheckAll(document.$form.$button)\">\n";
# Line 1541  Line 1548 
1548    
1549  sub reaction_link {  sub reaction_link {
1550      my($reaction) = @_;      my($reaction) = @_;
1551        if ($reaction =~ /^(\*)?(R\d+)/)
     if ($reaction =~ /^R\d+/)  
1552      {      {
1553          return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$reaction\" target=reaction$$>$reaction</a>";          return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$2\" target=reaction$$>$reaction</a>";
1554      }      }
1555      return $reaction;      return $reaction;
1556  }  }
1557    
1558    
1559  sub html_for_assignments {  sub html_for_assignments {
1560      my($fig,$user,$peg_sets) = @_;      my($fig,$user,$peg_sets) = @_;
1561      my $i;      my $i;
1562    
1563      my @vals = ();      my @vals = ();
1564      my $set = 1;      my $set = 1;
1565      foreach $peg_set (@$peg_sets)      foreach my $peg_set (@$peg_sets)
1566      {      {
1567          for ($i=0; ($i < @$peg_set); $i++)          for ($i=0; ($i < @$peg_set); $i++)
1568          {          {
1569              $peg = $peg_set->[$i];              my $peg = $peg_set->[$i];
1570              push(@vals,'show=' . join("@",($set,$i+1,$peg,&FIG::abbrev($fig->org_of($peg)),"")));              push(@vals,'show=' . join("@",($set,$i+1,$peg,&FIG::abbrev($fig->org_of($peg)),"")));
1571          }          }
1572          $set++;          $set++;
# Line 1670  Line 1677 
1677    
1678    
1679   my @files=("SEED.rss");   my @files=("SEED.rss");
1680   if ($args->{"type"}) {push @files, "SEED.$type.rss"}   if ($args->{"type"}) {
1681        ### TRS ### "$type" had no value here, so guessed what it should be.
1682        my $type = $args->{type};
1683        push @files, "SEED.$type.rss"
1684    }
1685    
1686   foreach my $file ("SEED.rss", @$files)   foreach my $file ("SEED.rss", @$files)
1687   {   {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3