Kumara - predecessor to Koha
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

149 lines
6.4 KiB

  1. #!/usr/bin/perl
  2. #script to set up screen for modification of borrower details
  3. #written 20/12/99 by chris@katipo.co.nz
  4. use strict;
  5. use C4::Output;
  6. use CGI;
  7. use C4::Search;
  8. my $input = new CGI;
  9. my $member=$input->param('bornum');
  10. if ($member eq ''){
  11. $member=NewBorrowerNumber();
  12. }
  13. my $type=$input->param('type');
  14. print $input->header;
  15. print startpage();
  16. print startmenu('member');
  17. my $data=borrdata('',$member);
  18. print <<printend
  19. <BLOCKQUOTE>
  20. <FONT SIZE=6><em>Add New Institution</em></FONT><br>
  21. <form action=/cgi-bin/koha/newimember.pl method=post>
  22. <input type=hidden name=joining value="">
  23. <input type=hidden name=expiry value="">
  24. <input type=hidden name=type value="borrowers">
  25. <input type=hidden name=borrowernumber value="$member">
  26. <input type=hidden name=updtype value=I>
  27. <table border=0 cellspacing=0 cellpadding=5 >
  28. <tr valign=top><td ><input type=reset value="Clear all Fields"></td></tr><tr>
  29. <TR align=right><td COLSPAN=2 ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
  30. <STRONG>Member# $member, Card Number*</STRONG> </TD><TD align=right><input type=text name=cardnumber_institution size=20 value=" "><br>
  31. </td></TR>
  32. <tr><td>&nbsp; </TD></TR>
  33. <tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
  34. <B>INSTITUTION DETAILS</b></td> <td COLSPAN=2 ALIGN=RIGHT background="/images/background-mem.gif">
  35. </td></tr>
  36. <tr valign=top bgcolor=white>
  37. <td colspan=3><input type=text name=institution_name size=50 value=""></td>
  38. </tr>
  39. <tr valign=top bgcolor=white>
  40. <td><FONT SIZE=2>Institution Name</FONT></td>
  41. </tr>
  42. <tr><td>&nbsp; </TD></TR>
  43. <tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
  44. <B>INSTITUTION ADDRESS</b></td></tr>
  45. <tr valign=top bgcolor=white>
  46. <td><input type=text name=address size=40 value="">
  47. <td><input type=text name=city size=20 value=""></td>
  48. <td>
  49. <SELECT NAME="area" SIZE="1">
  50. <OPTION value=L
  51. >L - Levin
  52. <OPTION value=F>F - Foxton
  53. <OPTION value=S>S - Shannon
  54. <OPTION value=H>H - Horowhenua
  55. <OPTION value=K>K - Kapiti
  56. <OPTION value=O>O - Out of District
  57. <OPTION value=X>X - Temporary Visitor
  58. <OPTION value=Z>Z - Interloan Libraries
  59. <OPTION value=V>V - Villlage</SELECT></td></tr>
  60. <tr valign=top bgcolor=white>
  61. <td ><FONT SIZE=2>Postal Address*</FONT></td>
  62. <td><FONT SIZE=2>Town*</FONT></td>
  63. <td><FONT SIZE=2>Area</FONT></td>
  64. </tr>
  65. <tr><td>&nbsp; </TD></TR>
  66. <tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
  67. <B>CONTACT DETAILS</b></td></tr>
  68. <tr valign=top bgcolor=white>
  69. <td COLSPAN=3 ><input type=text name=contactname size=40 value=""></td>
  70. </tr>
  71. <tr valign=top bgcolor=white>
  72. <td COLSPAN=3 ><FONT SIZE=2>Contact Name*</td></tr>
  73. <tr valign=top bgcolor=white>
  74. <td ><input type=text name=phoneday size=20 value=""></td>
  75. <td><input type=text name=faxnumber size=20 value=""></td>
  76. <td ><input type=text name=emailaddress size=20 value=""></td></tr>
  77. <tr valign=top bgcolor=white>
  78. <td><FONT SIZE=2>Phone (day)</td>
  79. <td><FONT SIZE=2>Fax</td>
  80. <td><FONT SIZE=2>Email</td></tr>
  81. <tr><td>&nbsp; </TD></TR>
  82. <tr valign=top bgcolor=white>
  83. <td COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
  84. </tr>
  85. <tr valign=top bgcolor=white>
  86. <td><FONT SIZE=2>Notes</font></td></tr>
  87. <tr><td>&nbsp; </TD></TR>
  88. <tr valign=top bgcolor="99cc33" >
  89. <td COLSPAN=5 background="/images/background-mem.gif"><B>LIBRARY USE</B></td>
  90. </tr>
  91. <tr valign=top >
  92. <td COLSPAN=5><textarea name=borrowernotes wrap=physical cols=70 rows=3></textarea></td></tr>
  93. <tr><td>&nbsp; </TD></TR>
  94. <tr valign=top bgcolor=white>
  95. <td ><FONT SIZE=2>Notes</font></td>
  96. </tr><tr valign=top bgcolor=white>
  97. <td COLSPAN=5 align=right >
  98. <input type=image src="/images/save-changes.gif" WIDTH=188 HEIGHT=44 ALT="Add New Member" border=0 ></td>
  99. </tr>
  100. </TABLE>
  101. </table>
  102. </form>
  103. <br clear=all>
  104. <p> &nbsp; </p>
  105. printend
  106. ;
  107. print endmenu('member');
  108. print endpage();