/[papo]/papo/forms/components/generic.nebc
ViewVC logotype

Diff of /papo/forms/components/generic.nebc

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

revision 1.1 by jlenton, Tue May 20 22:32:10 2003 UTC revision 1.2 by jlenton, Wed May 28 00:19:30 2003 UTC
# Line 5  $pages Line 5  $pages
5  $database  $database
6  $table  $table
7  $order_by  $order_by
8  $zotfile  $zotfile => $ENV{ZOTFILE}
9  </neb:Vars>  </neb:Vars><neb:Block>
10    use Zot;
11    my $zot = Zot->new($zotfile);
12    $zot->parse;
13    $zot->add_history;
14    
15    my $hist = "_${table}_data";
16    
17    $_->{name} = $_->{field} . 'Field'
18        foreach (@$fields);
19    
20    if ($zot->table($hist))
21    {
22        $hist .= '.';
23        substr $order_by, 0, 0, $hist;
24        substr $_->{field}, 0, 0, $hist
25            foreach (@$fields, @$search);
26    }
27    
28    
29    
30    </neb:Block>
31    <datasource name="focusDataSource" cache="1"/>    <datasource name="focusDataSource" cache="1"/>
32    <datasource name="searchDataSource" cache="1"/>    <datasource name="searchDataSource" cache="1"/>
33    <neb:Sub neb:src="datasource.nebc" search="neb:$table"    <neb:Sub neb:src="datasource.nebc" search="neb:$table"
# Line 66  $OUTPUT .= "resultBlock.listEntry$_ = st Line 87  $OUTPUT .= "resultBlock.listEntry$_ = st
87    </trigger>    </trigger>
88    
89    <page name="neb:$pages->{search}">    <page name="neb:$pages->{search}">
90      <lam:box height="1"/>
91      <lam:box lam:boxtype="h">
92        <lam:box width="2"/>
93        <lam:box>
94      <trigger type="Pre-Focusout">      <trigger type="Pre-Focusout">
95      editBlock.clear()      editBlock.clear()
96      if resultBlock.getRecordCount() > 0 and not resultBlock.getCurrentRecord().isEmpty():      if resultBlock.getRecordCount() > 0 and not resultBlock.getCurrentRecord().isEmpty():
# Line 75  $OUTPUT .= "resultBlock.listEntry$_ = st Line 100  $OUTPUT .= "resultBlock.listEntry$_ = st
100      resultBlock.clear()      resultBlock.clear()
101      searchBlock.clear()      searchBlock.clear()
102      </trigger>      </trigger>
103    <block name="searchBlock" datasource="searchDataSource" transparentBlock="" restrictInsert="">      <block name="searchBlock" datasource="searchDataSource" transparentBlock="" restrictInsert="">
     <lam:box>  
         <neb:Block>foreach (0..$#$search) {</neb:Block>  
         <label text="neb:$search->[$_]->{search_label}"/>  
         <entry name="neb:qq'searchEntry$_'"/>  
         <neb:Block>}</neb:Block>  
       <button trigger="searchTrigger" label="Buscar" name="searchBtn"/>  
     </lam:box>  
   </block>  
   <block name="resultBlock" datasource="resultDataSource" restrictInsert="y" transparentBlock="y">  
     <entry name="idREntry" field="id" hidden="y"/>  
     <lam:box  lam:boxtype="h">  
       <neb:Block>foreach (0..$#$search) {</neb:Block>  
104        <lam:box>        <lam:box>
105          <label text="neb:$search->[$_]->{result_label}"/>          <neb:Block>foreach (0..$#$search) {</neb:Block> <label
106          <entry name="neb:qq'listEntry$_'" field="neb:$search->[$_]->{field}" rows="*"/>          text="neb:$search->[$_]->{search_label}"/> <entry
107        </lam:box>          name="neb:qq'searchEntry$_'"/> <neb:Block>}</neb:Block>
108          <neb:Block>}</neb:Block>          <button trigger="searchTrigger" label="Buscar"
109        <lam:box width="1">          name="searchBtn"/>
       <scrollbar page="12"/>  
110        </lam:box>        </lam:box>
111          </block>
112          <lam:box height="1"/>
113          <block name="resultBlock" datasource="resultDataSource" restrictInsert="y" transparentBlock="y">
114            <entry name="idREntry" field="id" hidden="y"/>
115            <lam:box  lam:boxtype="h">
116              <neb:Block>foreach (0..$#$search) {</neb:Block>
117              <lam:box>
118                <label text="neb:$search->[$_]->{result_label}"/>
119                <entry name="neb:qq'listEntry$_'" field="neb:$search->[$_]->{field}" rows="*"/>
120              </lam:box>
121              <neb:Block>}</neb:Block>
122              <lam:box width="2"/>
123              <lam:box>
124                <label text=""/>
125                <scrollbar/>
126              </lam:box>
127              <lam:box width="1"/>
128            </lam:box>
129          </block>
130      </lam:box>      </lam:box>
131    </block>      <lam:box width="2"/>
132      </lam:box>
133      <lam:box height="1"/>
134    </page>    </page>
135    <page name="neb:$pages->{edit}">    <page name="neb:$pages->{edit}">
136    <trigger type="pre-Focusout" src="askForChangesTrigger"/>    <trigger type="pre-Focusout" src="askForChangesTrigger"/>
137    <block name="editBlock" datasource="editDataSource" restrictInsert="y">    <block name="editBlock" datasource="editDataSource" restrictInsert="y">
138      <entry x="0" y="0" name="idEntry" field="country.id" hidden="y"/>      <entry x="0" y="0" name="idEntry" field="country.id" hidden="y"/>
139      <button x="31" y="0" trigger="newTrigger" width="9" label="Nuevo" name="newButton" height="1"/>      <lam:box lam:boxtype="h">
140      <lam:box>        <lam:box width="1"/>
141        <neb:Block>foreach (@$fields) {</neb:Block>        <lam:box>
142        <label text="neb:$_->{desc}"/>          <lam:box height="1"/>
143        <entry name="neb:$_->{name}" field="neb:$_->{field}"/>          <lam:box lam:boxtype="h" halign="right">
144        <neb:Block>}</neb:Block>            <lam:box width="*"/>
145              <button trigger="newTrigger" label="Nuevo" name="newButton"/>
146            </lam:box>
147            <neb:Block>foreach (@$fields) {</neb:Block>
148            <label text="neb:$_->{desc}"/>
149            <entry name="neb:$_->{name}" field="neb:$_->{field}"/>
150            <neb:Block>}</neb:Block>
151            <lam:box height="*"/>
152            <lam:box lam:boxtype="h">
153              <lam:box width="*"/>
154              <button trigger="commitTrigger" label="Aceptar" name="commitBtn"/>
155              <lam:box width="*"/>
156              <button trigger="rollbackTrigger" label="Cancelar" name="rollbackBtn"/>
157              <lam:box width="*"/>
158              <button trigger="deleteTrigger" label="Borrar" name="deleteBtn"/>
159              <lam:box width="*"/>
160            </lam:box>
161            <lam:box height="*"/>
162            <lam:box height="*"/>
163          </lam:box>
164          <lam:box width="2"/>
165      </lam:box>      </lam:box>
166      <button x="1" y="11" trigger="commitTrigger" width="9" label="Aceptar" name="commitBtn" height="1"/>    </block>
     <button x="11" y="11" trigger="deleteTrigger" width="9" label="Borrar" name="deleteBtn" height="1"/>  
     <button x="21" y="11" trigger="rollbackTrigger" width="9" label="Cancelar" name="rollbackBtn" height="1"/>  
     </block>  
167    </page>    </page>

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26