moditem.pl

   1 #!/usr/bin/perl
   2
   3 #script to modify/delete biblios
   4 #written 8/11/99
   5 # modified 11/11/99 by chris@katipo.co.nz
   6
   7 use strict;
   8
   9 use C4::Search;
  10 use CGI;
  11 use C4::Output;
  12 use C4::Acquisitions;
  13 use C4::Biblio;
  14
  15 my $input = new CGI;
  16 my $submit=$input->param('delete.x');
  17 my $itemnum=$input->param('item');
  18 my $bibitemnum=$input->param('bibitem');
  19 if ($submit ne ''){
  20   print $input->redirect("/cgi-bin/koha/delitem.pl?itemnum=$itemnum&bibitemnum=$bibitemnum");
  21 }
  22
  23 print $input->header;
  24 #print $input->dump;
  25
  26 my $data=bibitemdata($bibitemnum);
  27
  28 my $item=itemnodata('blah','',$itemnum);
  29 #my ($analytictitle)=analytic($biblionumber,'t');
  30 #my ($analyticauthor)=analytic($biblionumber,'a');
  31 print startpage();
  32 print startmenu('catalogue');
  33 my %inputs;
  34
  35
  36
  37 #hash is set up with input name being the key then
  38 #the value is a tab separated list, the first item being the input type
  39 #$inputs{'Author'}="text\t$data->{'author'}\t0";
  40 #$inputs{'Title'}="text\t$data->{'title'}\t1";
  41 my $dewey = $data->{'dewey'};
  42 $dewey =~ s/0+$//;
  43 if ($dewey eq "000.") { $dewey = "";};
  44 if ($dewey < 10){$dewey='00'.$dewey;}
  45 if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
  46 if ($dewey <= 0){
  47   $dewey='';
  48 }
  49 $dewey=~ s/\.$//;
  50 $inputs{'Barcode'}="text\t$item->{'barcode'}\t0";
  51 $inputs{'Class'}="hidden\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
  52 #$inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";
  53 #$inputs{'Subject'}="textarea\t$sub\t4";
  54 $inputs{'Publisher'}="hidden\t$data->{'publishercode'}\t5";
  55 #$inputs{'Copyright date'}="text\t$data->{'copyrightdate'}\t6";
  56 $inputs{'ISBN'}="hidden\t$data->{'isbn'}\t7";
  57 $inputs{'Publication Year'}="hidden\t$data->{'publicationyear'}\t8";
  58 $inputs{'Pages'}="hidden\t$data->{'pages'}\t9";
  59 $inputs{'Illustrations'}="hidden\t$data->{'illustration'}\t10";
  60 #$inputs{'Series Title'}="text\t$data->{'seriestitle'}\t11";
  61 #$inputs{'Additional Author'}="text\t$additional\t12";
  62 #$inputs{'Subtitle'}="text\t$subtitle->[0]->{'subtitle'}\t13";
  63 #$inputs{'Unititle'}="text\t$data->{'unititle'}\t14";
  64 $inputs{'ItemNotes'}="textarea\t$item->{'itemnotes'}\t15";
  65 #$inputs{'Serial'}="text\t$data->{'serial'}\t16";
  66 $inputs{'Volume'}="hidden\t$data->{'volumeddesc'}\t17";
  67 $inputs{'Home Branch'}="text\t$item->{'homebranch'}\t18";
  68 $inputs{'Lost'}="radio\t$item->{'itemlost'}\t19";
  69 #$inputs{'Analytic author'}="text\t\t18";
  70 #$inputs{'Analytic title'}="text\t\t19";
  71
  72 $inputs{'bibnum'}="hidden\t$data->{'biblionumber'}\t20";
  73 $inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
  74 $inputs{'itemnumber'}="hidden\t$itemnum\t22";
  75
  76
  77
  78 print <<printend
  79 <FONT SIZE=6><em>$data->{'title'} ($data->{'author'})</em></FONT><br>
  80 <table border=0 cellspacing=0 cellpadding=5>
  81 <tr valign=top bgcolor=white><td><form action=updateitem.pl method=post>
  82 <table border=0 cellspacing=0 cellpadding=5>
  83 <tr valign=top bgcolor=white><td>Barcode</td><td><input type=text name=Barcode value="$item->{'barcode'}" size=40></td></tr>
  84 <input type=hidden name=Class value="$data->{'classification'}$dewey$data->{'subclass'}">
  85 <input type=hidden name=Publisher value="$data->{'publisher'}">
  86 <input type=hidden name=ISBN value="$data->{'isbn'}">
  87 <input type=hidden name=Publication Year value="$data->{'publicationyear'}">
  88 <input type=hidden name=Pages value="$data->{'pages'}">
  89 <input type=hidden name=Illustrations value="$data->{'illustration'}">
  90 <tr valign=top bgcolor=white><td>ItemNotes</td><td><textarea name=ItemNotes cols=40 rows=4>$item->{'itemnotes'}</textarea></td></tr>
  91 <input type=hidden name=Volume value="$data->{'volumeddesc'}">
  92 <tr valign=top bgcolor=white><td>Home Branch</td><td><input type=text name=Home Branch value="$item->{'homebranch'}" size=40></td></tr>
  93 <tr valign=top bgcolor=white><td>Lost</td><td><input type=radio name=Lost value=1
  94 printend
  95 ;
  96 if ($item->{'itemlost'} ==1){
  97   print " checked ";
  98 }
  99 print <<printend
 100 >Yes
 101 <input type=radio name=Lost value=0
 102 printend
 103 ;
 104 if ($item->{'itemlost'} ==0){
 105   print " checked ";
 106 }
 107 print <<printend
 108 >No</td></tr>
 109 <tr valign=top bgcolor=white><td>Cancelled</td><td><input type=radio name=withdrawn value=1
 110 printend
 111 ;
 112 if ($item->{'wthdrawn'} ==1){
 113   print " checked ";
 114 }
 115 print <<printend
 116 >Yes
 117 <input type=radio name=withdrawn value=0
 118 printend
 119 ;
 120 if ($item->{'wthdrawn'} ==0){
 121   print " checked ";
 122 }
 123 print <<printend
 124 >No</td></tr>
 125 <input type=hidden name=bibnum value="$data->{'biblionumber'}">
 126 <input type=hidden name=bibitemnum value="$data->{'biblioitemnumber'}">
 127 <input type=hidden name=itemnumber value="$itemnum">
 128 <tr valign=top bgcolor=white><td></td><td>
 129
 130 <input type=image  name=submit src=/images/save-changes.gif border=0 width=187
 131 height=42></td></tr>
 132 </table>
 133 </form></td></tr>
 134 </table>
 135
 136 printend
 137 ;
 138
 139
 140
 141
 142
 143 print endmenu();
 144 print endpage();