view release on metacpan or  search on metacpan

MapDisps.pm  view on Meta::CPAN

  		$ar->{$k} : ''; 
    } else {
      $p->{$k} = (exists $ar->{$k} && $ar->{$k}) ? $ar->{$k} : ''; 
    }
  }
  my $pr  = $s->def_inputvars($ar);
  my $pid = (exists $pr->{pid} && $pr->{pid}) ? $pr->{pid} : '';      
  if (!$pid) {
    $s->echo_msg("ERR: ($prg) pid is not defined.", 0); return; 
  }
  my $usr_gid = (exists $ar->{guid}) ? $ar->{guid} : ""; 
  my $ug      = ($usr_gid) ? "&guid=$usr_gid" : ""; 

  foreach my $k (split /,/, $ids) {
    $p->{$k} = $pr->{$k} if exists $pr->{$k}; 
  }

  my $k   = 'cln_id'; 
  my $t1  = ($p->{$k} =~ /^\d+$/) ? "&$k=$p->{$k}" : ''; 
     $k   = 'cln_name'; 
     $t1 .= ($p->{$k}) ? "&$k=$p->{$k}" : ''; 
  my $t2 = $t1;      

MapDisps.pm  view on Meta::CPAN

  my $f_fm = "<form method=\"$ar->{method}\" action=\"$ar->{action}?\" ";
    $f_fm .= "enctype=\"$ar->{encoding}\" name=\"oraForm\" target=\"%s\">\n";
    $f_fm .= "%s\n</form>\n";

  my $pr  = $s->def_inputvars($ar);
  my $pid = $pr->{pid}; 			# project id: ckpt, dba, owb			
  my $sn  = $pr->{sid}; 			# server id

  $s->set_ids($ar); 
  my $vs = 'user_sid,user_uid,user_tmo,guid';
  my ($usr_sid,$usr_uid,$usr_tmo,$usr_gid) = $s->get_params($vs, $ar);
  
  my $url = $pr->{web_url};			# web URL
    $url .= "?pid=$pid&no_dispform=1&sel_sn1=$sn";
    $url .= (exists $ar->{logout} && $ar->{logout}) ? "" : "&guid=$usr_gid";
    
  if (!$pid) {
    $s->echo_msg("ERR: ($prg) PID has not been defined.",0); return; 
  }
  if (!$sn) {
    $s->echo_msg("ERR: ($prg) SID has not been defined.",0); return;   
  } 
  my $url4frd = {}; 
     $url4frd = eval $ar->{url4frd} if exists $ar->{url4frd} && $ar->{url4frd}; 

MapDisps.pm  view on Meta::CPAN

sub build_links {
  my ($s, $pr, $ar) = @_;
  
  # 0 - return if $pr is empty
  if (!$pr || $#$pr < 0) {
    $s->echo_msg("WARN: No records.",0); return; 
  }

  # 1. define variables
  my $vs = 'pid,sid,guid,web_url,task';
  my ($pid,$sid,$usr_gid,$url,$tsk) = $s->get_params($vs,$ar); 
     $sid = $ar->{sel_sn1}		if !$sid && exists $ar->{sel_sn1}; 
  my $tgt = (exists $ar->{fr_tgt}) ? $ar->{fr_tgt} : "R";	# frame target

  my $tk = $tsk; $tk =~ s/(disp_)//;  
  my $tr = {'client'=>'project','project'=>'study','study'=>'list','list'=>'job' };
  my $br = {'client'=>'','project'=>'cln','study'=>'prj','list'=>'study'
           ,'job'=>'list' };
  my $tg = {'client'=>'D2','project'=>'D3','study'=>'D4','list'=>'R' };
  my $id = {'client'=>'cln_id','project'=>'prj_id','study'=>'study_id'
           ,'list'=>'list_id','spec'=>'spec_id', 'job'=>'job_id' };
  my $nm = {'client'=>'cln_name','project'=>'prj_name','study'=>'study_name'
           ,'list'=>'sponsor','spec'=>'source_dataset', 'job'=>'job_name' };

  $url =~ s/(\?.*)//    	if $url;	# remove parameters
  $url .= "?pid=$pid&sel_sn1=$sid&guid=$usr_gid"; 
    
  # 2. check required variables 
  if (!$pid) {
    $s->echo_msg("ERR: could not find pid in build_links.",0); return;
  }
  if (!$sid) {
    $s->echo_msg("ERR: could not find sid in build_links.",0); return;
  }

  # 3. build links