<div dir="ltr"><br><br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername"></b> <span dir="ltr">&lt;<a href="mailto:eprints-tech-bounces@ecs.soton.ac.uk">eprints-tech-bounces@ecs.soton.ac.uk</a>&gt;</span><br>
Date: 2013/11/28<br>Subject: The results of your email commands<br>To: <a href="mailto:lcalvom@pas.ucm.es">lcalvom@pas.ucm.es</a><br><br><br>The results of your email command are provided below. Attached is your<br>
original message.<br>
<br>
- Results:<br>
    Ignoring non-text/plain MIME parts<br>
<br>
- Unprocessed:<br>
    wrong about the way it forms the list of choices. This is the code, could<br>
    you kindly help me?<br>
    Thanks,<br>
    Lourdes<br>
    while( my( $value ) = $sth-&gt;fetchrow_array )<br>
    {<br>
     chomp $value;<br>
    my $doc;<br>
    eval { $doc = EPrints::XML::parse_xml_string( &quot;&lt;div&gt;$value&lt;/div&gt;&quot; ) };<br>
    if( $@ )<br>
    {<br>
    $value = $session-&gt;make_text( $value );<br>
    }<br>
    else<br>
    {<br>
    $value = $session-&gt;make_doc_fragment;<br>
    for($doc-&gt;documentElement-&gt;childNodes)<br>
    {<br>
    $value-&gt;appendChild( $session-&gt;clone_for_me( $_, 1 ) );<br>
    }<br>
<br>
- Ignored:<br>
    EPrints::XML::dispose( $doc );<br>
    }<br>
    my $li = $session-&gt;make_element( &quot;li&quot; );<br>
    $ul-&gt;appendChild( $li );<br>
    if( $first )<br>
    {<br>
    $li-&gt;setAttribute( &quot;class&quot;, &quot;ep_first&quot; );<br>
    $first = 0;<br>
    }<br>
    $li-&gt;appendChild( $value );<br>
    my $ul2 = $session-&gt;make_element( &quot;ul&quot; );<br>
    my $li2 = $session-&gt;make_element( &quot;li&quot;, id =&gt;&#39;for:value:relative:&#39;);<br>
    $li-&gt;appendChild( $ul2 );<br>
    $ul2-&gt;appendChild( $li2 );<br>
    $li2-&gt;appendChild( $session-&gt;clone_for_me( $value, 1 ) );<br>
    }<br>
<br>
- Done.<br>
<br>
<br><br>---------- Mensaje reenviado ----------<br>From: Lourdes Calvo Montero &lt;<a href="mailto:lcalvom@pas.ucm.es">lcalvom@pas.ucm.es</a>&gt;<br>To: <a href="mailto:eprints-tech-request@ecs.soton.ac.uk">eprints-tech-request@ecs.soton.ac.uk</a><br>
Cc: <br>Date: Thu, 28 Nov 2013 15:04:55 +0100<br>Subject: simple-sql cgi lookup<br><div dir="ltr">Hi, this cgi does not autocomplete the fields, I think it is something wrong about the way it forms the list of choices. This is the code, could you kindly help me?<div>
<br></div><div>Thanks,</div><div><br></div>
<div>Lourdes</div><div><br></div><div><br></div><div><div>while( my( $value ) = $sth-&gt;fetchrow_array )</div><div>{</div><div><span style="white-space:pre-wrap">        </span></div><div><span style="white-space:pre-wrap">        </span>chomp $value;</div>

<div><span style="white-space:pre-wrap">        </span>my $doc;</div><div><span style="white-space:pre-wrap">        </span>eval { $doc = EPrints::XML::parse_xml_string( &quot;&lt;div&gt;$value&lt;/div&gt;&quot; ) };</div><div>
<span style="white-space:pre-wrap">        </span>if( $@ )</div><div><span style="white-space:pre-wrap">        </span>{</div><div><span style="white-space:pre-wrap">                </span>$value = $session-&gt;make_text( $value );</div>
<div><span style="white-space:pre-wrap">        </span>}</div><div><span style="white-space:pre-wrap">        </span>else</div><div><span style="white-space:pre-wrap">        </span>{</div><div><span style="white-space:pre-wrap">                </span>$value = $session-&gt;make_doc_fragment;</div>

<div><span style="white-space:pre-wrap">                </span>for($doc-&gt;documentElement-&gt;childNodes)</div><div><span style="white-space:pre-wrap">                </span>{</div><div><span style="white-space:pre-wrap">                        </span>$value-&gt;appendChild( $session-&gt;clone_for_me( $_, 1 ) );</div>

<div><span style="white-space:pre-wrap">                </span>}</div><div><span style="white-space:pre-wrap">                </span>EPrints::XML::dispose( $doc );</div><div><span style="white-space:pre-wrap">        </span>}</div><div><span style="white-space:pre-wrap">        </span>my $li = $session-&gt;make_element( &quot;li&quot; );</div>

<div><span style="white-space:pre-wrap">        </span>$ul-&gt;appendChild( $li );</div><div><span style="white-space:pre-wrap">        </span>if( $first )</div><div><span style="white-space:pre-wrap">        </span>{</div><div><span style="white-space:pre-wrap">                </span>$li-&gt;setAttribute( &quot;class&quot;, &quot;ep_first&quot; );</div>

<div><span style="white-space:pre-wrap">                </span>$first = 0;</div><div><span style="white-space:pre-wrap">        </span>}</div><div><span style="white-space:pre-wrap">        </span>$li-&gt;appendChild( $value );</div><div>
<span style="white-space:pre-wrap">        </span>my $ul2 = $session-&gt;make_element( &quot;ul&quot; );</div><div><span style="white-space:pre-wrap">        </span>my $li2 = $session-&gt;make_element( &quot;li&quot;, id =&gt;&#39;for:value:relative:&#39;);</div>

<div><span style="white-space:pre-wrap">        </span>$li-&gt;appendChild( $ul2 );</div><div><span style="white-space:pre-wrap">        </span>$ul2-&gt;appendChild( $li2 );</div><div><span style="white-space:pre-wrap">        </span>$li2-&gt;appendChild( $session-&gt;clone_for_me( $value, 1 ) );</div>

<div><span style="white-space:pre-wrap">        </span></div><div>}</div></div></div>
<br></div><br></div>