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