acqui.simple/addbiblioitem.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Acquisitions;
   6 use C4::Output;
   7
   8 my $input = new CGI;
   9 my $biblionumber = $input->param('biblionumber');
  10 my $title;
  11 my $count;
  12 my @results;
  13
  14 if (! $biblionumber) {
  15     print $input->redirect('addbooks.pl');
  16 } else {
  17
  18     ($count, @results) = &getbiblio($biblionumber);
  19
  20     if (! $count) {
  21         print $input->redirect('addbooks.pl');
  22     } else {
  23         $title = @results[0]->{'title'};
  24
  25         print $input->header;
  26         print startpage();
  27         print startmenu('acquisitions');
  28
  29         print << "EOF";
  30 <font size="6"><em>Adding New Group Information - $title</em></font>
  31 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
  32 <tr valign="center">
  33 <td><font size="5">Section Two: Publication information</font></td>
  34 </tr></table>
  35 <p />
  36 <form action="savebiblioitem.pl" method="post">
  37 <input type="hidden" name="biblionumber" value="$biblionumber">
  38 <table align="center">
  39 <tr>
  40 <td align="right">Publisher:</td>
  41 <td colspan="3"><INPUT name="publishercode" size="40"></td>
  42 </tr>
  43 <tr>
  44 <td align="right">Publication Year:</td>
  45 <td><INPUT name="publicationyear" size="20"></td>
  46 <td align="right">Place of Publication:</td>
  47 <td><input name="place" size="20"></td>
  48 </tr>
  49 <tr>
  50 <td align="right">Illustrator:</td>
  51 <td colspan="3"><INPUT name="illus" size="40"></td>
  52 </tr>
  53 <tr>
  54 <td align="right">ISBN:</td>
  55 <td colspan="3"><input name="isbn" size="40"></td>
  56 </tr>
  57 <tr valign="top">
  58 <td align="right">Additional Authors:<br><i>One Author per line</i></td>
  59 <td colspan="3"><textarea name="additionalauthors" cols="30" rows="6"></textarea></td>
  60 </tr>
  61 <tr valign="top">
  62 <td align="right">Subject Headings:<br><i>One Subject per line</i></td>
  63 <td colspan="3"><textarea name="subjectheadings" cols="30" rows="6"></textarea></td>
  64 </tr>
  65 <tr>
  66 <td align="right">Format:</td>
  67 <td colspan="3"><select name="itemtype">
  68 EOF
  69
  70         ($count, @results) = &getitemtypes;
  71         for (my $i = 0; $i < $count; $i++) {
  72             print << "EOF";
  73 <option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - $results[$i]->{'description'}
  74 EOF
  75         } # for
  76
  77         print << "EOF";
  78 </select></td>
  79 </tr>
  80 <tr>
  81 <td align="right">URL:</td>
  82 <td colspan="3"><INPUT name="url" size="40"></td>
  83 </tr>
  84 <tr>
  85 <td align="right">Dewey:</td>
  86 <td><INPUT name="dewey" size="20"></td>
  87 <td align="right">Dewey Subclass:</td>
  88 <td><input name="subclass" size="20"></td>
  89 </tr>
  90 <tr>
  91 <td align="right">ISSN:</td>
  92 <td><input name="issn" size="20"></td>
  93 <td align="right">LCCN:</td>
  94 <td><input name="lccn" size="20"</td>
  95 </tr>
  96 <tr>
  97 <td align="right">Volume:</td>
  98 <td><input name="volume" size="20"></td>
  99 <td align="right">Number:</td>
 100 <td><input name="number" size="20"></td>
 101 </tr>
 102 <tr>
 103 <td align="right">Volume Description:</td>
 104 <td colspan="3"><input name="volumeddesc" size="40"></td>
 105 </tr>
 106 <tr>
 107 <td align="right">Pages:</td>
 108 <td><input name="pages" size="20"></td>
 109 <td align="right">Size:</td>
 110 <td><input name="size" size="20"></td>
 111 </tr>
 112 <tr valign="top">
 113 <td align="right">Notes:</td>
 114 <td colspan="3"><textarea name="notes" cols="30" rows="6"></textarea></td>
 115 </tr>
 116 <tr valign="top">
 117 <td colspan="4" align="center"><input type="submit" value="Add New Group"></td>
 118 </tr>
 119
 120   </table></FORM>
 121 EOF
 122
 123         print endmenu();
 124         print endpage();
 125     } # else
 126 } # else