version 1.117, 2002/03/08 18:36:00
|
version 1.120, 2002/06/10 23:55:47
|
Line 68 my %hitcount; # stores number of hits pe
|
Line 68 my %hitcount; # stores number of hits pe
|
# -- dynamically rendered interface components |
# -- dynamically rendered interface components |
my $closebutton; # button that closes the search window |
my $closebutton; # button that closes the search window |
my $importbutton; # button to take the selected results and go to group sorting |
my $importbutton; # button to take the selected results and go to group sorting |
|
my $hidden; |
|
|
# -- miscellaneous variables |
# -- miscellaneous variables |
my $scrout; # string that holds portions of the screen output |
my $scrout; # string that holds portions of the screen output |
Line 81 my %hash;
|
Line 82 my %hash;
|
# XML/SGML ---> sub xml_sgml_view |
# XML/SGML ---> sub xml_sgml_view |
my $basicviewselect=<<END; |
my $basicviewselect=<<END; |
<select name='basicviewselect'> |
<select name='basicviewselect'> |
<option value='Detailed Citation View'>Detailed Citation View</option> |
<option value='Detailed Citation View' selected="true"> |
|
Detailed Citation View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Fielded Format'>Fielded Format</option> |
<option value='Fielded Format'>Fielded Format</option> |
<option value='XML/SGML'>XML/SGML</option> |
<option value='XML/SGML'>XML/SGML</option> |
Line 89 my $basicviewselect=<<END;
|
Line 91 my $basicviewselect=<<END;
|
END |
END |
my $advancedviewselect=<<END; |
my $advancedviewselect=<<END; |
<select name='advancedviewselect'> |
<select name='advancedviewselect'> |
<option value='Detailed Citation View'>Detailed Citation View</option> |
<option value='Detailed Citation View' selected="true"> |
|
Detailed Citation View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Fielded Format'>Fielded Format</option> |
<option value='Fielded Format'>Fielded Format</option> |
<option value='XML/SGML'>XML/SGML</option> |
<option value='XML/SGML'>XML/SGML</option> |
Line 142 sub handler {
|
Line 145 sub handler {
|
} |
} |
} |
} |
|
|
|
# --------------------------- Produce some output, so people know it is working |
|
|
|
$r->print("\n"); |
|
$r->rflush; |
|
|
# ----------------------------------- configure dynamic components of interface |
# ----------------------------------- configure dynamic components of interface |
my $hidden=''; |
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$hidden="<input type='hidden' name='catalogmode' value='interactive'>". |
$hidden="<input type='hidden' name='catalogmode' value='interactive'>". |
"\n"; |
"\n"; |
Line 826 SCRIPT
|
Line 834 SCRIPT
|
} |
} |
} |
} |
function select_group() { |
function select_group() { |
window.location="/adm/groupsort?catalogmode=groupsearch&acts="+ |
window.location= |
|
"/adm/groupsort?mode=$ENV{'form.mode'}&catalogmode=groupsearch&acts="+ |
document.forms.results.acts.value; |
document.forms.results.acts.value; |
} |
} |
</script> |
</script> |
Line 857 SCRIPT
|
Line 866 SCRIPT
|
CATALOGBEGIN |
CATALOGBEGIN |
$r->print(<<CATALOGCONTROLS); |
$r->print(<<CATALOGCONTROLS); |
<form name='results' method="post" action="/adm/searchcat"> |
<form name='results' method="post" action="/adm/searchcat"> |
|
$hidden |
<input type='hidden' name='acts' value='' /> |
<input type='hidden' name='acts' value='' /> |
<input type='button' value='Revise search request' |
<input type='button' value='Revise search request' |
onClick='this.form.submit();' /> |
onClick='this.form.submit();' /> |
Line 1084 ENDPOP
|
Line 1094 ENDPOP
|
$notes,$abstract,$mime,$lang, |
$notes,$abstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
|
|
|
unless ($title) { $title='<i>Untitled</i>'; } |
unless ($ENV{'user.adv'}) { |
unless ($ENV{'user.adv'}) { |
$keywords='<i>- not displayed -</i>'; |
$keywords='<i>- not displayed -</i>'; |
$fields[4]=$keywords; |
$fields[4]=$keywords; |
Line 1135 END
|
Line 1146 END
|
$hash{"pre_${fnum}_link"}=$url; |
$hash{"pre_${fnum}_link"}=$url; |
$hash{"pre_${fnum}_title"}=$title; |
$hash{"pre_${fnum}_title"}=$title; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<font size='-1'><input type="checkbox" name="returnvalues" value="SELECT" |
<font size='-1'> |
|
<input type="checkbox" name="returnvalues" value="SELECT" |
onClick="javascript:queue($fnum)" /> |
onClick="javascript:queue($fnum)" /> |
</font> |
</font> |
<br /> |
<br /> |