view release on metacpan or  search on metacpan

MapDisps.pm  view on Meta::CPAN

  my $t3t = "3. Project:"; 
  my $s3p1 = "&task=sel_project";
  my $m3a  = "Show ";
  if ($f_cid) { 
    $s3p1 .= "&sel_sn2=$ar->{cln_id}:%"; 
    $m3a  .= "projects for Client $ar->{cln_id}"; 
  } else { 
    $s3p1 .= "&sel_sn2=:%";
    $m3a  .= "all projects"; 
  }
  my $u3a = "$url$s3p1";
  my $u3b = "$url&task=disp_new&new_task=add_project";
    $u3b .= "&cln_id=$ar->{cln_id}" 	if $f_cid;
  my $u3c = "$url&task=disp_project"; 
  my $u3d = "$url&a=help&task=add_project"; 
  my $s3a = sprintf $f_a2, $u3a, "R" , $m3a		, "S";
  my $s3b = sprintf $f_a2, $u3b, "D" , "Add a project"	, "<b>A</b>";
  my $s3c = sprintf $f_a2, $u3c, "D2", "Expand projects", "E"; 
  my $s3d = sprintf $f_a2, $u3d, "R",  "Disp Help"	, "H";
  my $s3p2 = $t3t; 
  if ($f_cid) {
    $s3p2 .= "[$s3a|$s3b|$s3d]<br>\n"; 
  } else { 
    $s3p2 .= "[Show|$s3d]<br>\n"; 
  }
  if ($f_pid) {
    $t .= $s3p2 . "$sp4 PID: <b>$ar->{prj_id} - $ar->{prj_name}</b><br>\n"; 
  } else {
    $gf = $s3p2 . $s->task_usr_input($ar, $pr, 'prjid'); 
    $t .= sprintf $f_fm, "_self", $gf; 
  }
  # 4 - Study:
  my $t4t = "4. Study:";   
  my $s4p1  = "&task=sel_study";
  my $m4a  = "Show ";
  if ($f_pid) { 
    $s4p1 .= "&sel_sn2=$ar->{prj_id}:%"; 
    $m4a  .= "studies for Project $ar->{prj_id}"; 
  } else { 
    $s4p1 .= "&sel_sn2=:%"; 
    $m4a  .= "all studies"; 
  }
  my $u4a  = "$url$s4p1";
  my $u4b  = "$url&task=disp_new&new_task=add_study"; 
     $u4b .= "&prj_id=$ar->{prj_id}" 	if $ar->{prj_id};
  my $u4c  = "$url&task=disp_study"; 
  my $u4d  = "$url&a=help&task=add_study"; 
  my $u4e  = "$url&task=disp_new&new_task=add_dblink"; 
     $u4e .= "&study_id=$ar->{study_id}"	if $f_sid; 
  my $u4f  = "$url&a=help&task=add_dblink"; 
  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; 
  
  my $s4a  = sprintf $f_a2, $u4a, "R" ,$m4a		, "S";
  my $s4b  = sprintf $f_a2, $u4b, "D" ,"Add a study"	, "<b>A</b>";
  my $s4c  = sprintf $f_a2, $u4c, "D3","Expand studies"	, "E";
  my $s4d  = sprintf $f_a2, $u4d, "R" ,"AddStudy Help"	, "H1";
  my $s4e  = sprintf $f_a2, $u4e, "R" ,"Add a dblink"	, "L";
  my $s4f  = sprintf $f_a2, $u4f, "R" ,"AddDBLink Help"	, "H2";
  my $s4g  = sprintf $f_a2, $u4g, "R" ,"Run CPTABLE"	, "C";
  my $s4h  = sprintf $f_a2, $u4h, "R" ,"Help on CPTABLE", "H3";
  my $s4i  = sprintf $f_a2, $u4i, "R", "Drop Tables"	, "D";     
  my $s4ih = sprintf $f_a2, $u4ih,"R" ,"Drop Table Help", "H4";
  my $s4j  = sprintf $f_a2, $u4j, "R", "Rename Tables"	, "R";       
  my $s4jh = sprintf $f_a2, $u4jh,"R" ,"Rename Table Help","H5";  
  my $s4k1 = sprintf $f_a2, $u4k1,"R", "Upload SAS Script","USS";         
  my $s4k  = sprintf $f_a2, $u4k, "R", "Add a SAS Job"	, "ASJ";       
  my $s4kh = sprintf $f_a2, $u4kh,"R" ,"LOADSAS Help"	,"H6";  
  my $s4l  = sprintf $f_a2, $u4l, "R" ,"Show SASJob"	,"SJ";    
  
#  my $s4k  = ($f_cid) ? "&cln_id=$ar->{cln_id}" : ''; 
#     $s4k .= "&prj_id=$ar->{prj_id}"		if $f_pid; 
  my $s4p2 = $t4t; 
  
  if ($f_pid) {
    # $s4p2 .= "[$s4a|$s4d|$s4f|$s4b|$s4e]<br>\n"; 
    $s4p2 .= "[$s4a|$s4b|$s4e|$s4g|$s4i|$s4j";
    $s4p2 .= "|$s4k1|$s4k"  		if exists $rls->{dev}{$usr_uid};
    $s4p2 .= "]<br>\n"; 
    $s4p2 .= "$sp4 Help: [$s4d|$s4f|$s4h|$s4ih|$s4jh|$s4kh]<br>\n";
  } else {
    $s4p2 .= "[Show|$s4d|$s4f]<br>\n"; 
  } 
  if ($ar->{study_id}) {
    $t .= $s4p2 . "$sp4 SID: <b>$ar->{study_id} - $ar->{study_name}</b><br>\n"; 
  } 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}";
     $u5b .= "&study_id=$ar->{study_id}";     
     $u5c .= "&study_id=$ar->{study_id}";
     $u5d .= "&study_id=$ar->{study_id}";  
     $u5e .= "&study_id=$ar->{study_id}";  
  } 
  if ($f_lid) { 
     $u5a .= "&sel_sn2=$ar->{list_id}";
     $u5b .= "&list_id=$ar->{list_id}";     
     $u5c .= "&list_id=$ar->{list_id}";
     $u5d .= "&list_id=$ar->{list_id}";     
     $u5e .= "&list_id=$ar->{list_id}";
     $u5f .= "&list_id=$ar->{list_id}";
     $u5g .= "&list_id=$ar->{list_id}";
     $u5h .= "&list_id=$ar->{list_id}";     
  } 
  my $s5a  = sprintf $f_a2, $u5a, "R", "Show Specs for all the domains"	,"S"; 
  my $s5b  = sprintf $f_a2, $u5b, "R", "Load Specs from XLS","<b>LS</b>"; 
  my $s5c  = sprintf $f_a2, $u5c, "R", "UpLoad Specs file","<b>UL</b>";   
  my $s5bh = sprintf $f_a2, $u5bh,"R" ,"XLSLoad Help"	,"H1";  
  my $s5d  = sprintf $f_a2, $u5d, "D", "Select Specs"	,"SS"; 
  my $s5e  = sprintf $f_a2, $u5e, "R", "Load View Codes from XLS","<b>LV</b>"; 
  my $s5eh = sprintf $f_a2, $u5eh,"R" ,"LoadView Help"	,"H2"; 
  my $s5f  = sprintf $f_a2, $u5f, "D" ,"Select Codes"	,"SV"; 
  my $s5g  = sprintf $f_a2, $u5g, "R" ,"Disp LogFiles"	,"LF"; 
  my $s5h  = sprintf $f_a2, $u5h, "R" ,"Create Views"	,"<b>CV</b>"; 
  my $s5hh = sprintf $f_a2, $u5hh,"R" ,"CrtView Help"	,"H3";   

  if ($f_lid) {
    $t .= "$t5t [$s5c|$s5b|$s5e|$s5h]<br>\n";
    $t .= "$sp4 Show: [$s5a|$s5d|$s5f|$s5g]<br>\n";
    $t .= "$sp4 Help: [$s5bh|$s5eh|$s5hh]<br>\n";
  } else {
    $t .= "$t5t [Show|Help|$s5bh|$s5eh|$s5hh]<br>\n";
  }

  # 6 - Add a Job
  my $t6t = "6. Job: "; 
  my $u6a = "$url&task=disp_new&new_task=add_job";
  my $u6b = "$url&task=disp_new&new_task=run_job";
  my $u6c = "$url&a=help&task=add_job"; 
  my $u6d = "$url&a=help&task=run_job"; 
  my $u6e = "$url&task=sel_job";
  my $u6f = "$url&task=disp_logfiles";  
  
  if ($f_lid) { 
     $u6a .= "&list_id=$ar->{list_id}";
     $u6b .= "&list_id=$ar->{list_id}";
     $u6e .= "&sel_sn2=$ar->{list_id}";
     $u6f .= "&list_id=$ar->{list_id}";
  }