Changeset 4085 for extensions/pLoader

Timestamp:

Oct 22, 2009, 5:50:22 PM (14 years ago)

Author:

ronosman

Message:

bug 1200 fixed : pLoader must forbid empty category names.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm (modified) (3 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

@@ -1601 +1601 @@
     $self->progressdlg->Show(1);
     Wx::Yield();
+
     
     my $files = [
@@ -1644 +1645 @@
     my( $self, $event ) = @_;
 
-
+    my $label = $event->GetLabel;
+    
+    $label =~ s/^\s+$//;
+
+    if(defined($label) and !( "" eq $label )){
+        $self->_SetLabel($event)
+    }
+    else{
+        $event->Veto;
+    }
+}
+
+sub _SetLabel {
+    my( $self, $event ) = @_;
+        
     my $category = $self->tree->GetPlData($event->GetItem);
     my $category_id;
@@ -1650 +1665 @@
     $category_id = $category->{id} if 'HASH' eq ref($category) ;
     my $comment;
-    my ( $success, $status_msg, $content ) = $self->pwg->SetInfoCategories( $event->GetLabel, $comment, $category_id);
+    my ( $success, $status_msg, $content ) = $self->pwg->SetInfoCategories( 
+        $event->GetLabel, 
+        $comment, 
+        $category_id
+    );
 
     my $ok = 1;