| $mode | What to do |
| $type | What flavor of thing it is |
| $path | Where the collection lives |
| $fname | Name of the collection |
| Code Snippit |
|---|
$ENV{"PATH_INFO"} =~ s|^/||si;
($mode, $type, $path, $fname) = split(':', $ENV{"PATH_INFO"});
|
| Code Snippit |
|---|
if ($mode eq "view_other") {
if ($ws_form{'group'} eq "self") {
$mode = "Manager";
} else {
$mode = "Manager==$ws_form{$ws_form{'group'}}";
}
}
if ($mode =~ m|(.*?)==(.*)$|si) {
$mode = $1;
$Cookie{'REAL_USERNAME'} = $Cookie{'USERNAME'};
$redirect = "==$2";
$Cookie{'USERNAME'} = $2;
}
|
| Code Snippit |
|---|
if ($mode eq "killkillkill") {
system ("rm -r $ATGC::XML::COLLECTION_DIR");
$mode = "front_door";
}
if ($mode =~ m|front_door|si) {
&Create_Collector_Directories ();
if ($mode =~ m|NUCL|si) {
$mode = "display";
$type = "EST";
$path = "/$type/";
$fname = "INBOX";
} elsif ($mode =~ m|PROT|si) {
$mode = "display";
$type = "SeqReg";
$path = "/$type/";
$fname = "INBOX";
} else {
$mode = "Manager";
}
}
if ($mode eq "big_bang") {
&Create_Collector_Directories ();
}
|
| Code Snippit |
|---|
%display_template = (
interact_collection_data => "calculate",
interact_collection_members => "calculate",
add_collection_members => "calculate",
create_people_group => "calculate",
big_bang => "calculate",
Manager => "page",
display => "page",
error => "page",
);
$mode = "error" if ($mode eq "");
if ($display_template{$mode} eq "calculate") {
&Calculations ($mode, $type, $path, $fname);
} elsif ($display_template{$mode} eq "page") {
&Print_Pages ($mode, $type, $path, $fname);
}
|
| Code Snippit |
|---|
sub Calculations
{
my ($mode, $type, $path, $fname) = @_;
|
| Code Snippit |
|---|
if ($mode eq "big_bang") {
($mode, $type, $path, $fname) =
&ATGC::Nursery::Calculations ($mode, $type, $path, $fname);
}
elsif ($mode eq "interact_collection_data") {
($type, $path, $fname) =
&Interact_Collection_Data ($type, $path, $fname);
$mode = "display";
}
|
| Code Snippit |
|---|
elsif ($mode =~ m|_collection_members|si) {
if ($ws_form{"visitoraction"} =~ m|Grab|si) {
($mode, $type, $path, $fname) =
&ATGC::Nursery::Process_Grab ($type, $path, $fname);
} else {
if (defined $ws_form{'editmembers'}) {
($type, $path, $fname) =
eval ('&ATGC::' . $type .
'::Process_Members ($type, $path, $fname)');
$mode = "display";
$fname = "INBOX" unless ($fname);
} elsif (defined $ws_form{"actions-$type"}) {
($mode, $type, $path, $fname) =
eval ('&ATGC::' . $type .
'::Process_Downstream ($type, $path, $fname)');
} elsif (defined $ws_form{"askmore-$type"}) {
&Print_More_Questions ($type, $path, $fname);
exit (0);
}
}
}
|
| Code Snippit |
|---|
elsif ($mode eq 'create_people_group') {
($type, $path, $fname) = &ATGC::Group::Process_Create_Group ();
$mode = "display";
}
} # Calculations
|
| Code Snippit |
|---|
elsif ($ATGC::ws_form{"actions-$type"} =~ m|Blast Protein|si) {
($mode, $type, $path, $collection) =
&ATGC::MultiBlast::Build_Blast ();
}
elsif ($ATGC::ws_form{"actions-$type"} =~ m|clustalw|si) {
($mode, $type, $path, $collection) =
&ATGC::MultiAlign::Build_Align ();
}
|
| Code Snippit |
|---|