Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

人ごとにIDかわるっぽいのでページから取得するように変更

  • Loading branch information...
commit 3c1fd9adf3fcf82218a848c6fe8ba59a2bcacb9d 1 parent 3651de6
@typester authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 itunes-connect.pl
View
7 itunes-connect.pl
@@ -128,14 +128,15 @@ sub open_sales_page {
my $form = $mech->form_id('defaultVendorPage')
or die 'Cannot find navigation form';
- $mech->$assert_html(qr/j_id_jsp_111414985_2['"]/);
+ my ($ajaxrequest) = $mech->content =~ /id="defaultVendorPage:(j_id_jsp_\d+_2)"/;
+ $mech->$assert_html(qr/$ajaxrequest['"]/);
my @f = $form->form;
$mech->post($mech->uri, [
@f,
- AJAXREQUEST => 'j_id_jsp_111414985_2',
- 'defaultVendorPage:j_id_jsp_111414985_2' => 'defaultVendorPage:j_id_jsp_111414985_2',
+ AJAXREQUEST => $ajaxrequest,
+ "defaultVendorPage:$ajaxrequest" => "defaultVendorPage:$ajaxrequest",
]);
$mech->success or die 'failed to ajax';
Please sign in to comment.
Something went wrong with that request. Please try again.