[Koha-cvs] CVS: koha/opac opac-reserve.pl,NONE,1.1.2.1 opac-searchresults.pl,1.1.2.3,1.1.2.4

[Finlay Thompson]

Update of /cvsroot/koha/koha/opac
In directory usw-pr-cvs1:/tmp/cvs-serv10394

Modified Files:
      Tag: rel-1-2
        opac-searchresults.pl 
Added Files:
      Tag: rel-1-2
        opac-reserve.pl 
Log Message:

Added do it yourself reserves feature to the opac


--- NEW FILE ---
#!/usr/bin/perl
use strict;
require Exporter;
use CGI;

use C4::Search;
use C4::Output;       # gettemplate
use C4::Auth;         # checkauth, getborrowernumber.
use C4::Koha;
use C4::Circulation::Circ2;
use C4::Reserves2;

my $query = new CGI;


my ($loggedinuser, $cookie, $sessionID) = checkauth($query);

my $template = gettemplate("opac-reserve.tmpl", "opac");

# get borrower information ....
my $borrowernumber = getborrowernumber($loggedinuser);
my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
my @bordat;
$bordat[0] = $borr;
$template->param(BORROWER_INFO => address@hidden);

# get biblionumber.....
my $biblionumber = $query->param('bib');
$template->param(biblionumber => $biblionumber);

my $bibdata = bibdata($biblionumber);
$template->param($bibdata);

# get the rank number....
my ($rank,$reserves) = FindReserves($biblionumber);
foreach my $res (@$reserves) {
    if ($res->{'found'} eq 'W') {
        $rank--;
    }
}
$rank++;
$template->param(rank => $rank);



# pass the pickup branch along....
my $branch = $query->param('branch');
$template->param(branch => $branch);

my $branches = getbranches();
$template->param(branchname => $branches->{$branch}->{'branchname'});


# make branch selection options...
my $branchoptions = '';
foreach my $br (keys %$branches) {
    (next) unless $branches->{$br}->{'IS'};
    my $selected = "";
    if ($br eq $branch) {
        $selected = "selected";
    }
    $branchoptions .= "<option value=$br 
$selected>$branches->{$br}->{'branchname'}</option>\n";
}
$template->param( branchoptions => $branchoptions);


#get the bibitem data....
my ($count,@data) = bibitems($biblionumber);

foreach my $bibitem (@data) {
    my @barcodes = barcodes($bibitem->{'biblioitemnumber'});
    my $barcodestext = "";
    foreach my $num (@barcodes) {
        my $message = $num->{'itemlost'} == 1 ? "(lost)" :
            $num->{'itemlost'} == 2 ? "(long overdue)" : 
"($branches->{$num->{'holdingbranch'}}->{'branchname'})";
        $barcodestext .= "$num->{'barcode'} $message <br>";
    }
    $barcodestext = substr($barcodestext, 0, -4);
    $bibitem->{'copies'} = $barcodestext;
}



my @reqbibs = $query->param('reqbib');
if ($query->param('bibitemsselected')) {
    $template->param(bibitemsselected => 1);
    my @tempdata;
    foreach my $bibitem (@data) {
        foreach my $reqbib (@reqbibs){
            push @tempdata, $bibitem if ($bibitem->{'biblioitemnumber'} == 
$reqbib) ;
        }
    }
    @data = @tempdata;
} elsif ($query->param('placereserve')) {
# here we actually do the reserveration....
    my $title = $bibdata->{'title'};
    
CreateReserve(undef,$branch,$borrowernumber,$biblionumber,'o',address@hidden,$rank,'',$title);
    warn "reserve created\n";
    print $query->redirect("/cgi-bin/koha/opac-user.pl");
} else {
    $template->param(selectbibitems => 1);
}
# check that you can actually make the reserve.



$template->param(BIBLIOITEMS => address@hidden);

$template->param(loggedinuser => $loggedinuser);
print "Content-Type: text/html\n\n", $template->output; 

Index: opac-searchresults.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/Attic/opac-searchresults.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** opac-searchresults.pl       2 Oct 2002 00:50:16 -0000       1.1.2.3
--- opac-searchresults.pl       3 Oct 2002 03:53:06 -0000       1.1.2.4
***************
*** 67,70 ****
--- 67,80 ----
  }
  
+ foreach my $res (@results) {
+     my @items = ItemInfo(undef, $res->{'biblionumber'}, "intra");
+     my $norequests = 1;
+     foreach my $itm (@items) {
+       $norequests = 0 unless $itm->{'notforloan'};
+     }
+     $res->{'norequests'} = $norequests;
+ }
+ 
+ 
  my $startfrom=$query->param('startfrom');
  ($startfrom) || ($startfrom=0);