Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.25 KB | None | 0 0
  1. sub createProjectFolderFromNavigatorNew {
  2.         my ($parent, $folderName) = @_;
  3.         
  4.         WebClick($parent); # Click Server root
  5.         if (WebCheckIfSelectorVisible('Plus Button', '.test--btn-add-asset')) {
  6.                 WebClick('.test--btn-add-asset'); # Click + sign
  7.                         WebFocus('.test--add-asset-wrap');
  8.                 if (WebCheckIfSelectorVisible('Create Project', '.test--item-create-folder')) {
  9.                         WebClick('.test--item-create-folder');
  10.                         handleCreateProjectFolderDialog ($folderName);
  11.                 }
  12.         }                     
  13. }
  14.  
  15. sub WebCheckIfSelectorVisible { # passz, jobb nev kene xd
  16.     my $elemnetName = shift @_;
  17.     my $selector = shift @_;
  18.  
  19.     if (WebIsVisible($selector)) {
  20.         writeLog($elemnetName . ' is visible on Navigator');
  21.         WebBitmapCheckNavigator ($elemnetName . ' is visible on Navigator');
  22.         return 1;
  23.     else {
  24.         writeLog($elemnetName . ' is not visible on Navigator');
  25.         WebBitmapCheckNavigator ($elemnetName . ' is not visible on Navigator'); 
  26.         return 0;
  27.     }
  28. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement