function
scan_titles(
$id
,
$starterm
)
{
yaz_scan($id
,"rpn"
,
"@attr
1=4
"
.
$starterm)
;
yaz_wait()
;
$errno
=
yaz_errno($id)
;
if
($errno
==
0
)
{
$ar
=
yaz_scan_result($id
,
$options)
;
echo
'Scan
ok
;
'
;
$ar
=
yaz_scan_result($id
,
$options)
;
while(list($key,$val)=each($options)
)
{
echo
"$key
=
$val
nbsp
;"
;
}
echo
'
br
table
tr
td
'
;
while(list($key,list($k
,
$term
,
$tcount))=each($ar)
)
{
if
(empty($k)
)
continue
;
echo
"
tr
td
$term
/
td
td
"
;
echo
$tcount
;
echo
"
/
td
/
tr
"
;
}
echo
'
/
table
'
;
}
else
{
echo
"Scan
failed
.
|