diff --git a/deploy_checkit_tiff/add_dnx_mappings/add_dnx_mappings.pl b/deploy_checkit_tiff/add_dnx_mappings/add_dnx_mappings.pl index b25359ef63dd1451722cba43b8bd96b3e4663e31..667db77d4261e05417c1fc19cf45cf107b5c0842 100644 --- a/deploy_checkit_tiff/add_dnx_mappings/add_dnx_mappings.pl +++ b/deploy_checkit_tiff/add_dnx_mappings/add_dnx_mappings.pl @@ -14,7 +14,8 @@ use strict; use warnings; use utf8; -use feature qw(say); +use feature qw(say signatures); +no warnings qw(experimental::signatures); use Selenium::Remote::Driver; use Selenium::Chrome; use Term::ANSIColor; # colored print @@ -122,9 +123,7 @@ sub change_to_local_format_library { $driver->pause(); } -sub add_dnx_property($$) { - my $dnx_property = shift; - my $dnx_description = shift; +sub add_dnx_property ($dnx_property, $dnx_description) { my $dow = localtime; $driver->get("$protocol://$host:${ui_port}/mng/action/pageAction.page_xml.page_sig_prop_list.xml.do?pageViewMode=Edit&pageBean.currentUserMode=GLOBAL&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryGLOBAL.mngLibraryHeader.SigProps.InnerMenu&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryGLOBAL.mngLibraryHeader.SigProps.InnerMenu&backUrl="); $driver->pause(); @@ -136,8 +135,7 @@ sub add_dnx_property($$) { $driver->find_element("SaveSigPropGenDetails", "name")->click; } -sub join_dnx_property_to_classification_group($) { - my $dnx_property = shift; +sub join_dnx_property_to_classification_group ($dnx_property) { say "try to join dnx property"; $driver->get("$protocol://$host:${ui_port}/mng/action/pageAction.page_xml.page_classification_list.xml.do?pageViewMode=Edit&pageBean.currentUserMode=GLOBAL&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryGLOBAL.mngLibraryHeader.Classifications.InnerMenu&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryGLOBAL.mngLibraryHeader.Classifications.InnerMenu&backUrl="); $driver->pause(); @@ -154,9 +152,7 @@ sub join_dnx_property_to_classification_group($) { $driver->pause(); } -sub extractors_add_mapping($$) { - my $dnx_property = shift; - my $exiftool_property = shift; +sub extractors_add_mapping ($dnx_property, $exiftool_property) { say "try to add extractor mapping"; $driver->get("$protocol://$host:${ui_port}//mng/action/pageAction.page_xml.page_extractors_list.xml.do?pageBean.deploymentMode=BUNDLED&pageViewMode=Edit&pageBean.currentUserMode=LOCAL&RenewBean=true&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryLOCAL.mngLibraryHeader.Extractors.InnerMenu&menuKey=com.exlibris.dps.wrk.general.menu.Preservation.AdvancedPreservationActivities.mngLibraryLOCAL.mngLibraryHeader.Extractors.InnerMenu&backUrl="); $driver->pause();