|  |  |  | @ -54,28 +54,35 @@ if( !$remote_config->{config}->{features}->{faxserver} ){ | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     set_faxes_preferences($test_machine->DATA_ITEM->{json}->{subscriber_id}); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->resource_fill_file($test_machine->DATA_ITEM->{faxfile}->[0]); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1 ); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->resource_clear_file($test_machine->DATA_ITEM->{faxfile}->[0]); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     delete $test_machine->DATA_ITEM->{faxfile}; | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->DATA_ITEM->{json}->{data}="äöüß"; | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->form_data_item(); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1 ); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     #we will create other customer's subscriber | 
			
		
	
		
			
				
					|  |  |  |  |     diag("create subscriber of other customer"); | 
			
		
	
		
			
				
					|  |  |  |  |     my $fake_data_other_customer = Test::FakeData->new(keep_db_data => 1); | 
			
		
	
		
			
				
					|  |  |  |  |     $fake_data_other_customer->{data}->{customers}->{data}->{external_id} = 'not_default_one_cust'; | 
			
		
	
		
			
				
					|  |  |  |  |     my $subscriber_other_customer = $fake_data_other_customer->create('subscribers')->[0]; | 
			
		
	
		
			
				
					|  |  |  |  |     set_faxes_preferences($subscriber_other_customer->{content}->{id}); | 
			
		
	
		
			
				
					|  |  |  |  |     diag("login as subscriber of other customer"); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->set_subscriber_credentials($subscriber_other_customer->{content}); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->runas('subscriber'); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     $fake_data->{data}->{subscribers}->{data}->{administrative} = 1; | 
			
		
	
		
			
				
					|  |  |  |  |     my $subscriberadmin = $fake_data->create('subscribers')->[0]; | 
			
		
	
		
			
				
					|  |  |  |  |     set_faxes_preferences($subscriberadmin->{content}->{id}); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     $fake_data->{data}->{subscribers}->{data}->{administrative} = 0; | 
			
		
	
		
			
				
					|  |  |  |  |     my $subscriber = $fake_data->create('subscribers')->[0]; | 
			
		
	
		
			
				
					|  |  |  |  |     set_faxes_preferences($subscriber->{content}->{id}); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->resource_fill_file($test_machine->DATA_ITEM->{faxfile}->[0]); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1 ); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->resource_clear_file($test_machine->DATA_ITEM->{faxfile}->[0]); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     delete $test_machine->DATA_ITEM->{faxfile}; | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->DATA_ITEM->{json}->{data}="äöüß"; | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->form_data_item(); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1 ); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     #diag("login as subscriber of other customer"); | 
			
		
	
		
			
				
					|  |  |  |  |     #$test_machine->set_subscriber_credentials($subscriber_other_customer->{content}); | 
			
		
	
		
			
				
					|  |  |  |  |     #$test_machine->runas('subscriber'); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->set_subscriber_credentials($subscriberadmin->{content}); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->runas('subscriber'); | 
			
		
	
		
			
				
					|  |  |  |  |     diag("\n\n\nSUBSCRIBERADMIN ".$subscriberadmin->{content}->{id}.":"); | 
			
		
	
	
		
			
				
					|  |  |  | @ -87,10 +94,6 @@ if( !$remote_config->{config}->{features}->{faxserver} ){ | 
			
		
	
		
			
				
					|  |  |  |  |     diag("check that we can create as a subscriberadmin role"); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1, sub { $_[0]->{json}->{subscriber_id} = $subscriberadmin->{content}->{id};} ); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |      | 
			
		
	
		
			
				
					|  |  |  |  |     $fake_data->{data}->{subscribers}->{data}->{administrative} = 0; | 
			
		
	
		
			
				
					|  |  |  |  |     my $subscriber = $fake_data->create('subscribers')->[0]; | 
			
		
	
		
			
				
					|  |  |  |  |     set_faxes_preferences($subscriber->{content}->{id}); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->set_subscriber_credentials($subscriber->{content}); | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->runas('subscriber'); | 
			
		
	
		
			
				
					|  |  |  |  |     diag("\n\n\nSUBSCRIBER ".$subscriber->{content}->{id}.":"); | 
			
		
	
	
		
			
				
					|  |  |  | @ -101,7 +104,7 @@ if( !$remote_config->{config}->{features}->{faxserver} ){ | 
			
		
	
		
			
				
					|  |  |  |  |     $test_machine->check_create_correct( 1, sub { $_[0]->{json}->{subscriber_id} = $subscriber->{content}->{id};} ); | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | } | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | $test_machine->runas('admin'); | 
			
		
	
		
			
				
					|  |  |  |  | $test_machine->check_bundle(); | 
			
		
	
		
			
				
					|  |  |  |  | $test_machine->clear_test_data_all(); | 
			
		
	
		
			
				
					|  |  |  |  | undef $fake_data; | 
			
		
	
	
		
			
				
					|  |  |  | 
 |