request.pl

   1 #!/usr/bin/perl
   2
   3 #script to place reserves/requests
   4 #writen 2/1/00 by chris@katipo.oc.nz
   5
   6 use strict;
   7 #use DBI;
   8 use C4::Search;
   9 use C4::Output;
  10 use C4::Reserves2;
  11 use C4::Acquisitions;
  12 use C4::Biblio;
  13 use C4::Koha;
  14
  15 use CGI;
  16 my $input = new CGI;
  17 print $input->header;
  18
  19
  20 #setup colours
  21 print startpage();
  22 print startmenu('catalogue');
  23 my $blah;
  24 my $bib=$input->param('bib');
  25 my $dat=bibdata($bib);
  26 my ($count,$reserves)=FindReserves($bib);
  27
  28 print $count if $DEBUG;
  29 print $input->dump if $DEBUG;
  30
  31
  32 print <<printend
  33 <form action="placerequest.pl" method=post>
  34 <INPUT TYPE="image" name="submit"  VALUE="request" height=42  WIDTH=187 BORDER=0 src="/images/place-request.gif" align=right >
  35 <input type=hidden name=biblio value=$bib>
  36 <input type=hidden name=type value=str8>
  37 <input type=hidden name=title value="$dat->{'title'}">
  38 <FONT SIZE=6><em>Requesting: <a href=/cgi-bin/koha/detail.pl?bib=$bib>$dat->{'title'}</a> ($dat->{'author'})</em></FONT><P>
  39 <p>
  40
  41 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 align=left >
  42
  43 <!----------------BIBLIO RESERVE TABLE-------------->
  44
  45
  46
  47 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
  48 <TR VALIGN=TOP>
  49 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Rank</b></TD>
  50 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Member Number</b></TD>
  51 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Notes</b></TD>
  52 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Date</b></TD>
  53 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Pickup</b></TD>
  54 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Request</b></TD>
  55 </TR>
  56 <tr VALIGN=TOP  >
  57 <TD><select name=rank-request>
  58 printend
  59 ;
  60 my $value;
  61 for $value(1..$count){
  62   print "<option value=$value>$value\n";
  63 }
  64 print "<option value=$value selected>$value\n";
  65
  66 # FIXME
  67 # we should create a today function (in C4::Koha) that returns
  68 # either a US or non-US date string based on a configuration switch
  69 #
  70 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
  71 $year=$year+1900;
  72 $mon++;
  73 my $date="$mday/$mon/$year";
  74
  75 print <<printend
  76 </select>
  77 </td>
  78 <TD><input type=text size=10 name=member></td>
  79 <TD><input type=text size=20 name=notes></td>
  80 <TD>$date</td>
  81 <TD><select name=pickup>
  82 printend
  83 ;
  84 my ($count2,@branches)=branches;
  85 for (my $i=0;$i<$count2;$i++){
  86   print "<option value=$branches[$i]->{'branchcode'}";
  87   print ">$branches[$i]->{'branchname'}";
  88 }
  89 print <<printend
  90 </select>
  91 </td>
  92 <td><input type=checkbox name=request value=any>Next Available, <br>(or choose from list below)</td>
  93 </tr>
  94
  95
  96 </table>
  97 </p>
  98
  99
 100 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
 101 <TR VALIGN=TOP>
 102
 103 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Request</b></TD>
 104 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Item Type</b></TD>
 105 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Classification</b></TD>
 106 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Volume</b></TD>
 107 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>ISBN</b></TD>
 108 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Copyright</b></TD>
 109 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Pubdate</b></TD>
 110 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Copies</b></TD>
 111 </TR>
 112 printend
 113 ;
 114
 115 my @data;
 116 ($count2,@data)=bibitems($bib);
 117 for (my $i=0;$i<$count2;$i++){
 118   my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
 119   if ($data[$i]->{'dewey'} == 0){
 120     $data[$i]->{'dewey'}="";
 121   }
 122   $data[$i]->{'dewey'}=~ s/\.0000$//;
 123   $data[$i]->{'dewey'}=~ s/00$//;
 124   my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}";
 125   print "<tr VALIGN=TOP  >
 126   <TD><input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}>
 127   <input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>
 128   </td>
 129   <TD>$data[$i]->{'description'}</td>
 130   <TD>$class</td>
 131   <td>$data[$i]->{'volumeddesc'}</td>
 132   <td>$data[$i]->{'isbn'}</td>
 133   <td>$dat->{'copyrightdate'}</td>
 134   <td>$data[$i]->{'publicationyear'}</td>
 135   <td>@barcodes</td>
 136   </tr>";
 137 }
 138 print <<printend
 139 </table>
 140 </p>
 141 </form>
 142 <p>&nbsp; </p>
 143 <!-----------MODIFY EXISTING REQUESTS----------------->
 144
 145 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
 146
 147 <TR VALIGN=TOP>
 148
 149 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=7><B>MODIFY EXISTING REQUESTS </b></TD>
 150 </TR>
 151 <form action=modrequest.pl method=post>
 152 <TR VALIGN=TOP>
 153
 154 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Rank</b></TD>
 155 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Member</b></TD>
 156 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Notes</b></TD>
 157 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Date</b></TD>
 158 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Pickup</b></TD>
 159 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Request</b></TD>
 160 <td  bgcolor="99cc33" background="/images/background-mem.gif"><B>Change To</b></TD>
 161 </TR>
 162 printend
 163 ;
 164 $count--;
 165
 166 for (my $i=0;$i<$count;$i++){
 167 print "<input type=hidden name=borrower value=$reserves->[$i]{'borrowernumber'}>";
 168 print "<input type=hidden name=biblio value=$reserves->[$i]{'biblionumber'}>";
 169 #my $bor=$reserves->[$i]{'firstname'}."%20".$reserves->[$i]{'surname'};
 170 #$bor=~ s/ /%20/g;
 171 my $bor=$reserves->[$i]{'borrowernumber'};
 172 $date = slashifyDate($reserves->[$i]{'reservedate'});
 173
 174 my $type=$reserves->[$i]{'constrainttype'};
 175 #print "test";
 176 if ($type eq 'a'){
 177   $type='Next Available';
 178 } elsif ($type eq 'o'){
 179 # print "test";
 180   my $res=getreservetitle($reserves->[$i]{'biblionumber'},$reserves->[$i]{'borrowernumber'},$reserves->[$i]{'reservedate'},$reserves->[$i]{'timestamp'});
 181   $type="This type only $res->{'volumeddesc'} $res->{'itemtype'}";
 182 #  my @data=ItemInfo(\$blah,$reserves->[$i]{'borrowernumber'});
 183
 184 }
 185 print "<tr VALIGN=TOP  >
 186 <TD><select name=rank-request>
 187 ";
 188 for (my $i2=1;$i2<=$count;$i2++){
 189   print "<option value=$i2";
 190   if ($reserves->[$i]{'priority'} eq $i2){
 191     print " selected";
 192   }
 193   print">$i2";
 194 }
 195 print "<option value=del>Del";
 196 print "</select>
 197 </td>
 198 <TD><a href=/cgi-bin/koha/moremember.pl?bornum=$bor>$reserves->[$i]{'firstname'} $reserves->[$i]{'surname'}</a></td>
 199 <td>$reserves->[$i]{'reservenotes'}</td>
 200 <TD>$date</td>
 201 <TD><select name=pickup>
 202 ";
 203 my ($count2,@branches)=branches;
 204 for (my $i2=0;$i2<$count2;$i2++){
 205   print "<option value=$branches[$i2]->{'branchcode'}";
 206   if ($reserves->[$i]{'branchcode'} eq $branches[$i2]->{'branchcode'}){
 207     print " Selected";
 208   }
 209   print ">$branches[$i2]->{'branchname'}\n";
 210 }
 211 print "
 212 </select>
 213 </td>
 214 <TD>$type</td>
 215 <TD><select name=itemtype>
 216 <option value=next>Next Available
 217 <option value=change>Change Selection
 218 <option value=nc >No Change
 219 </select>
 220 </td>
 221 </tr>
 222 ";
 223 }
 224
 225 print <<printend
 226
 227
 228 <tr VALIGN=TOP  >
 229
 230 <TD colspan=6 align=right>
 231 Delete a request by selecting "del" from the rank list.
 232
 233 <INPUT TYPE="image" name="submit"  VALUE="request" height=42  WIDTH=64 BORDER=0 src="/images/ok.gif"></td>
 234
 235
 236 </tr>
 237
 238
 239 </table>
 240 <P>
 241
 242 <br>
 243
 244
 245
 246
 247 </form>
 248 printend
 249 ;
 250
 251 print endmenu();
 252 print endpage();