|
|
|
@ -16,7 +16,7 @@ $in = $ENV{'QUERY_STRING'}; |
|
|
|
|
@pairs = split(/[&=]/,$in); |
|
|
|
|
%fields = @pairs; |
|
|
|
|
chomp(%fields); |
|
|
|
|
$webroot = "../../.."; |
|
|
|
|
$webroot = ".."; |
|
|
|
|
|
|
|
|
|
print <<END; |
|
|
|
|
|
|
|
|
@ -63,7 +63,7 @@ if($fields{'do'} eq "home" || $fields{'do'} eq ""){ |
|
|
|
|
|
|
|
|
|
<table> |
|
|
|
|
|
|
|
|
|
<form name="search" action="library.cgi" method="get"> |
|
|
|
|
<form name="search" action="index.cgi" method="get"> |
|
|
|
|
<input type="hidden" name="do" value="query" /> |
|
|
|
|
|
|
|
|
|
<tr><td>Title:</td> <td><input type="text" name="title" /></td></tr> |
|
|
|
|