Permalink
Browse files

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

  • Loading branch information...
1 parent 3651de6 commit 3c1fd9adf3fcf82218a848c6fe8ba59a2bcacb9d @typester committed Apr 11, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 itunes-connect.pl
View
@@ -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';

0 comments on commit 3c1fd9a

Please sign in to comment.