Ignore:
Timestamp:
Jul 29, 2010, 8:56:27 AM (14 years ago)
Author:
ronosman
Message:

Reupload option management.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/src/Uploader/GUI/App.pm

    r6707 r6726  
    612612    );
    613613
    614     print Dumper $self->localized_msg;
    615614
    616615}
     
    910909
    911910    if($self->is_single_instance_running){
    912         printf("connect_to_single_instance_server\n");
     911        #printf("connect_to_single_instance_server\n");
    913912        $self->connect_to_single_instance_server;
    914         printf("connected to single_instance_server\n");
     913        #printf("connected to single_instance_server\n");
    915914        return 0;
    916915    }
    917916    else{
    918         printf("start_single_instance_server\n");
     917        #printf("start_single_instance_server\n");
    919918        $self->start_single_instance_server;
    920         printf("single_instance_server started\n");
     919        #printf("single_instance_server started\n");
    921920        return 1;
    922921    }
     
    13121311}
    13131312
     1313
     1314sub check_existing {
     1315    my ( $self, $all ) = @_;
     1316
     1317    my $check = $self->pwg->IsAlreadyUploaded(
     1318        $self->images->selection_image_ids($all)
     1319    );
     1320
     1321    $self->images->set_pwg_id($check);
     1322
     1323    my $existing = [
     1324        grep { $_ } values %$check
     1325    ];
     1326
     1327    scalar @$existing;
     1328}
    13141329
    13151330sub init_transfer_batch_end_event_handler {
Note: See TracChangeset for help on using the changeset viewer.