From 2d6a87c1681da2f55ba10b7e54b21f9a2a252a37 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Wed, 10 Oct 2001 19:26:14 +0000
Subject: [PATCH] used CGI.pm's textfield function to create the notes text
 input box.  Notes with question marks '"' in them were getting deleted when
 an item was modified.

---
 modbibitem.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/modbibitem.pl b/modbibitem.pl
index 899964dd1c..fa13428704 100755
--- a/modbibitem.pl
+++ b/modbibitem.pl
@@ -85,6 +85,8 @@ for (my $i=0;$i<$count;$i++){
   print "<option value=$bibitems[$i]->{'biblioitemnumber'}>$bibitems[$i]->{'description'} - $bibitems[$i]->{'isbn'}\n";
 }
 print "</select></td></tr>";
+my $notesinput=$input->textfield(-name=>'Notes', -default=>$data->{'bnotes'}, -size=>20);
+
 print <<printend
 <TR VALIGN=TOP  bgcolor="99cc33">
 <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2 ><b><input type=radio name=existing value=NO checked >OR MODIFY DETAILS</b></td></tr>
@@ -112,7 +114,7 @@ print <<printend
 <tr valign=top bgcolor=white><td>Volume</td>
 <td><input type=text name=Volume value="$data->{'volumeddesc'}" size=20></td></tr>
 <tr valign=top bgcolor=white><td>Notes</td>
-<td><input type=text name=Notes value="$data->{'bnotes'}" size=20></td></tr>
+<td>$notesinput</td></tr>
 <tr valign=top bgcolor=white><td>Size</td>
 <td><input type=text name=Size value="$data->{'size'}" size=20></td></tr>
 
-- 
2.39.2