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