[popfile-commit] engine/UI HTML.pm,1.364,1.365

[John Graham-C. <jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27298/UI

Modified Files:
	HTML.pm 
Log Message:
Fix bug that clicking Edit without selecting a user on the Users tab caused POPFile to crash

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.364
retrieving revision 1.365
diff -C2 -d -r1.364 -r1.365
*** HTML.pm	20 Dec 2005 20:13:08 -0000	1.364
--- HTML.pm	20 Dec 2005 20:26:04 -0000	1.365
***************
*** 1392,1396 ****
      # Handle user creation
  
!     if ( exists( $self->{form_}{create} ) && ( $self->{form_}{newuser} ne '' ) ) {
          my ( $result, $password ) = $self->classifier_()->create_user( $session, $self->{form_}{newuser}, $self->{form_}{clone} );
          if ( $result == 0 ) {
--- 1392,1397 ----
      # Handle user creation
  
!     if ( exists( $self->{form_}{create} ) &&
!          ( $self->{form_}{newuser} ne '' ) ) {
          my ( $result, $password ) = $self->classifier_()->create_user( $session, $self->{form_}{newuser}, $self->{form_}{clone} );
          if ( $result == 0 ) {
***************
*** 1414,1418 ****
      # Handle user removal
  
!     if ( exists( $self->{form_}{remove} ) && ( $self->{form_}{toremove} ne '' ) ) {
          my $result = $self->classifier_()->remove_user( $session, $self->{form_}{toremove} );
          if ( $result == 0 ) {
--- 1415,1420 ----
      # Handle user removal
  
!     if ( exists( $self->{form_}{remove} ) &&
!          ( $self->{form_}{toremove} ne '' ) ) {
          my $result = $self->classifier_()->remove_user( $session, $self->{form_}{toremove} );
          if ( $result == 0 ) {
***************
*** 1487,1491 ****
      $templ->param( 'Users_Loop_Copy' => \@user_loop );
  
!     if ( exists( $self->{form_}{edituser} ) ) {
          my $id = $self->classifier_()->get_user_id( $session, $self->{form_}{editname} );
          my @parameters = $self->classifier_()->get_user_parameter_list( $session );
--- 1489,1494 ----
      $templ->param( 'Users_Loop_Copy' => \@user_loop );
  
!     if ( exists( $self->{form_}{edituser} ) &&
!          ( $self->{form_}{editname} ne '' ) ) {
          my $id = $self->classifier_()->get_user_id( $session, $self->{form_}{editname} );
          my @parameters = $self->classifier_()->get_user_parameter_list( $session );