[Yapcom-commit] rev 80 - lib/YAPC

[prev] [thread] [next] [lurker] [Date index for 2003/11/27]

Author: gabor
Date: 2003-11-27 18:20:11 +0200 (Thu, 27 Nov 2003)
New Revision: 80

Modified:
   lib/YAPC/Organizer.pm
Log:
eliminate warnings caused by undefined values

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-27 14:27:57 UTC (rev 79)
+++ lib/YAPC/Organizer.pm	2003-11-27 16:20:11 UTC (rev 80)
@@ -697,13 +697,13 @@
    $url = "http://$url"; if ($url and substr($url, 0, 7) ne 'http://');
  
    my $bio = $p->bio;
-   $bio =~ s@(http://\S+)@<a href="$1">$1</a>@g; # turn urls to links
+   $bio =~ s@(http://\S+)@<a href="$1">$1</a>@g if $bio; # turn urls to links
  
    my $t = $self->_server_page('person');
    $t->param($_ => $p->get($_)) foreach (qw(fname lname pauseid mongers));
    $t->param(url => $url);
    $t->param(bio => $bio);
-   $t->param(owner => $id eq $q->param('id'));
+   $t->param(owner => (defined $id and $id eq $q->param('id')));
    return $t->output;
 }
 

• [Yapcom-commit] rev 80 - lib/YAPC svn 18:20 on 27 Nov 2003

Generated at 22:30 on 27 Nov 2003 by mariachi 0.51