view release on metacpan or  search on metacpan

MapDisps.pm  view on Meta::CPAN

  my $u4g  = "$url&task=disp_new&new_task=run_cptable"; 
     $u4g .= "&study_id=$ar->{study_id}"	if $f_sid; 
  my $u4h  = "$url&a=help&task=run_cptable"; 
  my $u4i  = "$url&task=disp_new&new_task=run_droptable";
     $u4i .= "&study_id=$ar->{study_id}"	if $f_sid; 
  my $u4ih = "$url&a=help&task=run_droptable"; 
  my $u4j  = "$url&task=disp_new&new_task=run_rentable";
     $u4j .= "&study_id=$ar->{study_id}"	if $f_sid;   
  my $u4jh = "$url&a=help&task=run_rentable"; 

  my $u4k1  = "$url&task=disp_new&new_task=upload_sas_script";
     $u4k1 .= "&study_id=$ar->{study_id}"	if $f_sid; 
     $u4k1 .= "&list_id=$ar->{list_id}"		if $f_lid; 

  my $u4k  = "$url&task=disp_new&new_task=add_ldrsasjob";
     $u4k .= "&study_id=$ar->{study_id}"	if $f_sid; 
     $u4k .= "&list_id=$ar->{list_id}"		if $f_lid; 
  my $u4kh = "$url&a=help&task=add_ldrsasjob"; 
  my $u4l  = "$url&task=sel_sasjob";
     $u4l .= "&study_id=$ar->{study_id}"	if $f_sid; 
  

MapDisps.pm  view on Meta::CPAN

  } else {
    $gf = $s4p2 . $s->task_usr_input($ar, $pr, 'studyid'); 
    $t .= sprintf $f_fm, "_self", $gf; 
  }

  # 5 - Load XLS 
  my $t5t  = "5. Load: "; 
  my $u5a  = "$url&task=sel_spec";		# web URL
  my $u5b  = "$url&task=disp_new&new_task=run_ldspecs";
  my $u5bh = "$url&a=help&task=run_ldspecs"; 
  my $u5c  = "$url&task=disp_new&new_task=upload_file";
  my $u5ch = "$url&a=help&task=upload_file"; 
  my $u5d  = "$url&task=disp_new&new_task=sel_spec";
  my $u5e  = "$url&task=disp_new&new_task=run_ldviews";
  my $u5eh = "$url&a=help&task=run_ldviews";   
  my $u5f  = "$url&task=disp_new&new_task=sel_codes";
  my $u5g  = "$url&task=disp_logfiles";    
  my $u5h  = "$url&task=disp_new&new_task=run_crtviews";
  my $u5hh = "$url&a=help&task=run_crtviews";   
  
  if ($f_sid) { 
     $u5a .= "&sel_sn2=$ar->{study_id}";