Menu
▾
▴
[Genex-cvs-commit] genex-server/Mason/workspace protocol-insert.html.in,1.1,1.2
|
From: <jas...@us...> - 2003-04-27 00:50:00
|
Update of /cvsroot/genex/genex-server/Mason/workspace
In directory sc8-pr-cvs1:/tmp/cvs-serv13746
Modified Files:
protocol-insert.html.in
Log Message:
now uses components for all parts
Index: protocol-insert.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/protocol-insert.html.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** protocol-insert.html.in 26 Apr 2003 21:12:41 -0000 1.1
--- protocol-insert.html.in 27 Apr 2003 00:49:57 -0000 1.2
***************
*** 13,157 ****
% } else {
! <h2>Read Group</h2>
! <p>Choose the <b>read group</b> that will be given to the
! protocol you are creating.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Read Group</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <& comps/query-drop-down.mason, name=>"read_group",
! array_ref=>\@groups &>
! </td>
! </tr>
! </tbody>
! </table>
<hr noshade size=5>
! <h2>Write Group</h2>
! <p>Choose the <b>write group</b> that will be given to the
! protocol you are creating.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Write Group</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <& comps/query-drop-down.mason, name=>"write_group",
! array_ref=>\@groups &>
! </td>
! </tr>
! </tbody>
! </table>
<hr noshade size=5>
! <h2>Name</h2>
! <p>Choose a <b>Name</b> for your protocol. If you use single
! quotes, they will be removed, so don't.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Name</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <input type="text" name="proto_name" size="65" maxlength="128">
! </td>
! </tr>
! </tbody>
! </table>
<hr noshade size=5>
! <h2>Protocol Type</h2>
! <p>Choose the <b>Protocol Type</b> that describes the type of
! protocol.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Protocol Type</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <& comps/query-drop-down.mason, name=>"protocol_type",
! array_ref=>\@protocol_types &>
! </td>
! </tr>
! </tbody>
! </table>
<hr noshade size=5>
! <h2>Protocol Description</h2> <p>Describe the protocol. If you
! use single quotes, they will be removed, so don't.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Protocol Description</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <textarea name="proto_desc" rows="5" cols="65"></textarea>
! </td>
! </tr>
! </tbody>
! </table>
! <hr noshade size=5>
- <h2>URI</h2>
- <p> Provide an informational URI for the protocol (if any). If you
- use single quotes, they will be removed, so don't.</p>
- <table bgcolor="#D8E4F7" border="1" cols="1">
- <thead bgcolor="#FFD78F">
- <tr>
- <th>URI</th>
- </tr>
- </thead>
- <tbody>
- <tr>
- <td>
- <input type="text" name="uri" size="65" maxlength="128"/>
- </td>
- </tr>
- </tbody>
- </table>
<hr noshade size=5>
! <h2>Provider Contact</h2>
! <p>Choose the <b>Contact</b> entry who provided the protocol
! (if any).</p>
! <p>The entry must exist in the DB first, click <a
! href="contact-insert.html">here</a> if you need to enter the Contact info, then
! return to this page and hit your browsers <b>Reload</b> button.</p>
! <table bgcolor="#D8E4F7" border="1" cols="1">
! <thead bgcolor="#FFD78F">
! <tr>
! <th>Provider Contact</th>
! </tr>
! </thead>
! <tbody>
! <tr>
! <td>
! <& comps/query-drop-down.mason, name=>"provider",
! array_ref=>\@contacts &>
! </td>
! </tr>
! </tbody>
! </table>
<hr noshade size=5>
--- 13,51 ----
% } else {
!
! <& comps/ro_rw_group.mason, type=>$cur_class &>
<hr noshade size=5>
! <& comps/value-input.mason,
! value_name=>'Name',
! cgi_param_name=>'proto_name',
! entry_name=>$cur_class &>
<hr noshade size=5>
! <& comps/cv-menu.mason,
! cgi_param_name=>'protocol_type',
! entry_name=>$cur_class, type=>'Protocol Type',
! array_ref=>\@protocol_types &>
<hr noshade size=5>
! <& comps/textarea-input.mason,
! cgi_param_name=>'protocol_desc',
! entry_name=>$cur_class,
! value_name=>'Protocol Description',
! &>
<hr noshade size=5>
! <& comps/value-input.mason,
! value_name=>'URI',
! cgi_param_name=>'uri',
! entry_name=>$cur_class &>
<hr noshade size=5>
! <& comps/contacts.mason, type=>"$cur_class" &>
<hr noshade size=5>
***************
*** 187,192 ****
use Bio::Genex::Connect;
use Bio::Genex::Config;
- use Bio::Genex::Contact;
- use Bio::Genex::GroupSec;
use Bio::Genex::Protocol;
use Bio::Genex::ControlledVocab;
--- 81,84 ----
***************
*** 203,214 ****
# Apache::DB->handler;
- $dbh->assert_table_defined('GroupSec');
- $dbh->assert_table_defined('Protocol');
-
- my @groups;
- my $no_type = 'NONE';
- my @protocol_types = ([$no_type,$no_type]);
- my @contacts = ([$no_type,$no_type]);
my $data = '';
if ($submit) {
unless ($proto_desc) {
--- 95,102 ----
# Apache::DB->handler;
my $data = '';
+ my $no_type = 'NONE';
+ my @protocol_types;
+ my $cur_class = 'Protocol';
if ($submit) {
unless ($proto_desc) {
***************
*** 258,272 ****
}
} else {
- my @gs_dbs = Bio::Genex::GroupSec->get_all_objects($dbh);
- foreach my $gs_db (@gs_dbs) {
- push(@groups,[$gs_db->name,$gs_db->name]);
- }
-
- my @con_dbs = Bio::Genex::Contact->get_all_objects($dbh);
- foreach my $con_db (@con_dbs) {
- push(@contacts,[$con_db->con_pk,'[' . $con_db->contact_person .
- ":" . $con_db->organization . ']']);
- }
-
my @pt_dbs = Bio::Genex::ControlledVocab->get_all_objects($dbh,
column=>'vocab_name',
--- 146,149 ----
|
