Ticket #3567: patch.txt

--- imdb.pl.orig        2007-06-04 12:26:13.000000000 -0400
+++ imdb.pl     2007-06-04 11:49:55.000000000 -0400
@@ -131,19 +131,23 @@
    }
 
    # parse director 
-   my $director = parseBetween($response, ">Director:</h5>", "/a><br/>");
-   $director = parseBetween($director, "/\">", "<");
+   # (Note: this takes the 'first' director, may want to include others)
+   my $data = parseBetween($response, ">Director:</h5>", "</div>");
+   if (!length($data)) {
+         $data = parseBetween($response, ">Directors:</h5>", "</div>");
+   }
+   my $director = join(", ", ($data =~ m/$name_link_pat/g));
 
    # parse writer 
    # (Note: this takes the 'first' writer, may want to include others)
-   my $data = parseBetween($response, ">Writers <a href=\"/wga\">(WGA)</a>:</h5>", "</div>");
+   $data = parseBetween($response, ">Writers <a href=\"/wga\">(WGA)</a>:</h5>", "</div>");
    if (!length($data)) {
          $data = parseBetween($response, ">Writer:</h5>", "</div>");
    }
    if (!length($data)) {
          $data = parseBetween($response, ">Writers:</h5>", "</div>");
    }
-   my $writer = join(",", ($data =~ m/$name_link_pat/g));
+   my $writer = join(", ", ($data =~ m/$name_link_pat/g));
 
    # parse plot
    my $plot = parseBetween($response, ">Plot Outline:</h5> ", "</div>");