ispman/lib/ISPMan ResellerMan.pm,1.7,1.8

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7238/lib/ISPMan

Modified Files:
	ResellerMan.pm 
Log Message:
fixes some more "uninitialized value" warnings

Index: ResellerMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/ResellerMan.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ResellerMan.pm	5 Jun 2004 12:45:24 -0000	1.7
+++ ResellerMan.pm	27 Jun 2004 08:49:49 -0000	1.8
@@ -65,6 +65,9 @@
 sub getResellerNameById {
     my $self = shift;
     my $id   = shift;
+
+    return undef unless $id;
+
     $self->getResellerById($id);
     return $self->{'reseller'}{'ispmanResellerName'};
 }
@@ -79,7 +82,9 @@
     my $self = shift;
     my $r    = shift;
 
-    $self->getResellerNameById( $r->param("ispmanResellerId") );
+    if ( $r->param("ispmanResellerId") ) {
+        $self->getResellerNameById( $r->param("ispmanResellerId") );
+    }
     my $template = $self->getTemplate("resellers/add_edit.tmpl");
     print $template->fill_in( PACKAGE => "ISPMan" );
 



-------------------------------------------------------
This SF.Net email sponsored by Black Hat Briefings & Training.
Attend Black Hat Briefings & Training, Las Vegas July 24-29 - 
digital self defense, top technical experts, no vendor pitches, 
unmatched networking opportunities. Visit www.blackhat.com