--- casopisi/sciencedirect.pl	2002/10/24 18:25:19	1.2
+++ casopisi/sciencedirect.pl	2002/10/25 11:20:56	1.4
@@ -33,15 +33,13 @@
 #$ua->env_proxy();
 #$ua->proxy(['http', 'ftp'], 'http://proxy.carnet.hr:8001/');
 
-#my $req = HTTP::Request->new(GET => $url);
-
-#my $res = $ua->request($req);
-#if ($res->is_success) {
-
-if (1) {
+my $req = HTTP::Request->new(GET => $url);
 
+my $res = $ua->request($req);
+if ($res->is_success) {
 	my $tree = HTML::TreeBuilder->new;
-	$tree->parse_file("list.html");   # !
+#	$tree->parse_file("list.html");   # !
+	$tree->parse($res->content);
 
 	foreach my $tr ($tree->look_down('_tag', 'tr')) {
 		my $link;
@@ -58,7 +56,10 @@
 				$bib .= "%200+ ".$link->as_text."\n";
 				$mps .= mps_expand(2,$link->as_text);
 
-				$mps .= "H ".$link->as_text." <i>(on-line)</i>\n";
+				# tip
+				$mps .= mps_expand(17,"on-line");
+
+				$mps .= "H ".$link->as_text." <i>(on-line, ScrienceDirect)</i>\n";
 
 				print R $bib."\n";
 				$mps .= "T document text/plain ".(tell(R) - $last_tell)." $dir/bib $last_tell ".tell(R)."\n";