/[webpac]/trunk/feeds/sciencedirect2.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/feeds/sciencedirect2.pl

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

revision 70 by dpavlin, Sat Jul 5 18:26:40 2003 UTC revision 74 by dpavlin, Sat Jul 5 22:37:30 2003 UTC
# Line 69  while(<C>) { Line 69  while(<C>) {
69          }          }
70    
71          foreach my $i (4, 6, 8, 10) {          foreach my $i (4, 6, 8, 10) {
72                    push @{$journal->{$key}},$data[$i] || "";
73                  if ($data[$i]) {                  if ($data[$i]) {
                         push @{$journal->{$key}},$data[$i];  
74                          $c_nr++;                          $c_nr++;
75                  }                  }
76          }          }
# Line 105  if ($res->is_success) { Line 105  if ($res->is_success) {
105                          if ($link->attr('href') =~ m{/science\?_ob=JournalURL}) {                          if ($link->attr('href') =~ m{/science\?_ob=JournalURL}) {
106                                  my $j=nuc($link->as_text);                                  my $j=nuc($link->as_text);
107                                  if ($journal->{$j}) {                                  if ($journal->{$j}) {
108                                          print join("\n",@{$journal->{$j}});                                          my $i=0;
109                                            foreach my $line (@{$journal->{$j}}) {
110                                                    print $i++,": $line\n";
111                                            }
112                                          $j_detailed++;                                          $j_detailed++;
113                                  } else {                                  } else {
114                                          print $link->attr('href')."\n";                                          print $link->attr('href')."\n";

Legend:
Removed from v.70  
changed lines
  Added in v.74

  ViewVC Help
Powered by ViewVC 1.1.26