view release on metacpan or  search on metacpan

Common.pm  view on Meta::CPAN

  if (!exists $amg->{$tsk}) {
    $s->echo_msg("ERR: ($prg) could not find new task - $tsk.",0); 
    return; 
  }
  my ($pid,$sid,$t,$t1,$t2) = (); 
     $pid = $ar->{pid} if (exists $ar->{pid} && $ar->{pid}); 
     $sid = $ar->{sid} if (exists $ar->{sid} && $ar->{sid});
     $sid = $ar->{study_id} if (!$sid && exists $ar->{study_id});
     $sid = $ar->{sel_sn1} if (!$sid && exists $ar->{sel_sn1}); 
  my $usr_gid = (exists $ar->{guid}) ? $ar->{guid} : "";      
  my $ksb = eval $s->set_param('var2sub',$ar);     
  my $far = $amg->{$tsk}; 				# form message
  my $cls = eval $s->set_param('code_lists',$ar);	# code lists
 
  my $f_in  = "<input name=\"%s\" value=\"%s\" />"; 
  my $f_ih  = "  <input type=\"hidden\" name=\"%s\" value=\"%s\" />\n"; 
  my $f_ir  = "  <input name=\"%s\" value=\"%s\" readonly/>\n"; 
  my $f_ip  = "  <input type=\"password\" name=\"%s\" value=\"%s\" />\n"; 
  my $f_if  = "  <input type=\"%s\" name=\"%s\" />\n"; 
  my $f_st  = "\n<select name=\"\%s\"  class='formField' %s>\n%s</select>\n  "; 

Common.pm  view on Meta::CPAN

        if ($add_check || $tsk =~ /^(run_cptable|run_cfgstudy)/i);
  $t .= "  <input type='submit' name='a' value='$test_label' />\n" 
        if $add_test;        
  $t .= "  </td>\n</tr>\n";
#  $t .= "<tr>\n  <td colspan=3>* indicates required fields</td>\n</tr>\n"; 
  my $tb  = sprintf $f_tb, $title, $t; 
     $t1  = sprintf $f_ih, "pid", $pid 		if $pid || $pid =~ /^0$/;
     $t1 .= sprintf $f_ih, "sel_sn1", $sid	if $sid || $sid =~ /^0$/;
     $t1 .= sprintf $f_ih, "task", $tsk;
     $t1 .= sprintf $f_ih, "no_dispform", 1;
     $t1 .= sprintf $f_ih, "guid", $usr_gid	if $usr_gid;     
  print $q->header("text/html");
  print $q->start_html(%{$ar->{html_header}});
  printf $f_fm, "R", "$t1$tb"; 
  $ar->{bottom_nav} = ''; 
}

=head2 disp_task_form($q,$ar,$txt)

Input variables: