version 1.118, 2002/05/22 16:08:52
|
version 1.120, 2002/06/10 23:55:47
|
Line 82 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 90 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 143 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 |
|
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |