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 );
|
