[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.52, Sat Aug 6 15:30:29 2005 UTC revision 1.53, Sun Aug 14 00:51:59 2005 UTC
# Line 962  Line 962 
962      return $reaction;      return $reaction;
963  }  }
964    
965    sub html_for_assignments {
966        my($fig,$user,$peg_sets) = @_;
967        my $i;
968    
969        my @vals = ();
970        my $set = 1;
971        foreach $peg_set (@$peg_sets)
972        {
973            for ($i=0; ($i < @$peg_set); $i++)
974            {
975                $peg = $peg_set->[$i];
976                push(@vals,'show=' . join("@",($set,$i+1,$peg,&FIG::abbrev($fig->org_of($peg)),"")));
977            }
978            $set++;
979        }
980    
981        $ENV{'REQUEST_METHOD'} = 'GET';
982        $ENV{'QUERY_STRING'} = join('&',('request=show_commentary',"uni=1","user=$user",@vals));
983        my $out = join("",`$FIG_Config::fig/CGI/chromosomal_clusters.cgi`);
984        $out =~ s/^.*?<form/<form/si;
985        $out =~ s/^(.*)<table.*/$1/si;
986        return $out;
987    }
988    
989  1  1

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3