[Bio] / FigWebServices / protein.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/protein.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.161, Wed Oct 12 21:03:16 2005 UTC revision 1.162, Sat Oct 22 17:43:49 2005 UTC
# Line 707  Line 707 
707        my $explanations;        my $explanations;
708        foreach my $key (@attr) {        foreach my $key (@attr) {
709          if ($cgi->param("explanation.".$key->[1])) {          if ($cgi->param("explanation.".$key->[1])) {
710            if (&key_info($fig_or_sprout, $key->[1], ['', $cgi->param("explanation.".$key->[1])])) {            if (&key_info($fig_or_sprout, $key->[1], {"description"=>$cgi->param("explanation.".$key->[1])})) {
711             push @$explanations, [@$key, $cgi->param("explanation.".$key->[1])];             push @$explanations, [@$key, $cgi->param("explanation.".$key->[1])];
712            }            }
713           }           }
714        }        }
715        for (my $i=0; $i<=5; $i++) {        for (my $i=0; $i<=5; $i++) {
716              if ($cgi->param("key.$i") && $cgi->param("value.$i") &&  $cgi->param("explanation.".$i)) {              if ($cgi->param("key.$i") && $cgi->param("value.$i") &&  $cgi->param("explanation.".$i)) {
717                 if (&key_info($fig_or_sprout, $cgi->param("key.$i"), ['', $cgi->param("explanation.".$i)])) {                 if (&key_info($fig_or_sprout, $cgi->param("key.$i"), {"description"=>$cgi->param("explanation.".$i)})) {
718                  push @$explanations, [$cgi->param("key.$i"), $cgi->param("value.$i"), $cgi->param("url.$i"), $cgi->param("explanation.".$i)];                  push @$explanations, [$cgi->param("key.$i"), $cgi->param("value.$i"), $cgi->param("url.$i"), $cgi->param("explanation.".$i)];
719                 }                 }
720              }              }
# Line 737  Line 737 
737                    $cgi->textfield(-name=>"key.".$key->[1], -default=>$key->[1], -size=>30),                    $cgi->textfield(-name=>"key.".$key->[1], -default=>$key->[1], -size=>30),
738                    $cgi->textfield(-name=>"value.".$key->[1], -default=>$key->[2], -size=>30),                    $cgi->textfield(-name=>"value.".$key->[1], -default=>$key->[2], -size=>30),
739                    $cgi->textfield(-name=>"url.".$key->[1], -default=>$key->[3], -size=>30),                    $cgi->textfield(-name=>"url.".$key->[1], -default=>$key->[3], -size=>30),
740                    $cgi->textfield(-name=>"explanation.".$key->[1], -default=>$data->[1], -size=>30),                    $cgi->textfield(-name=>"explanation.".$key->[1], -default=>$data->{"description"}, -size=>30),
741                ];                ];
742         }         }
743         for (my $i=0; $i<=5; $i++) {         for (my $i=0; $i<=5; $i++) {
# Line 760  Line 760 
760             if ($cgi->param("showtag") && $cgi->param("showtag") eq $tag) {             if ($cgi->param("showtag") && $cgi->param("showtag") eq $tag) {
761              my $data=&key_info($fig_or_sprout, $tag);              my $data=&key_info($fig_or_sprout, $tag);
762              my $info="No Information Known about $tag";              my $info="No Information Known about $tag";
763              if ($data->[1]) {$info=$data->[1]}              if ($data->{"description"}) {$info=$data->{"description"}}
764              push(@$tab, [["Key", "th"], ["Explanation", "th"]], [$tag, $info]);              push(@$tab, [["Key", "th"], ["Explanation", "th"]], [$tag, $info]);
765            }            }
766         }         }

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3