+
+ # The XML does not contain the full title of the video, for
+ # reasons possibly known to some jerk at CollegeHumor.
+ # So we'll have to parse the actual HTML, too.
+ $p = videosite::HTMLHelper->new();
+ unless(defined($content = $p->load(sprintf('http://www.collegehumor.com/video:%s', $2)))) {
+ $self->error('Could not download HTML');
+ return undef;
+ }
+
+ $t = $p->findnodes('h1[@id="item_title"]');
+ if (defined($t)) {
+ $metadata->{'TITLE'} = $t->{'_content'}->[0];
+ }