X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fmoremember.pl;h=5b763f4648a492c58a3940e89a5bdcece3a7f93c;hb=603ab05edf8172ff3de2d9b11117261e2e56c42d;hp=a841e1f563ca3c8bae598c268fbce70c481e43cc;hpb=887f31772448eff842a581c115d2abecb2d67b21;p=koha.git

diff --git a/members/moremember.pl b/members/moremember.pl
index a841e1f563..5b763f4648 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -1,18 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
-
-# script to do a borrower enquiry/bring up borrower details etc
-# Displays all the details about a borrower
-# written 20/12/99 by chris@katipo.co.nz
-# last modified 21/1/2000 by chris@katipo.co.nz
-# modified 31/1/2001 by chris@katipo.co.nz
-#   to not allow items on request to be renewed
-#
-# needs html removed and to use the C4::Output more, but its tricky
-#
-
-
 # Copyright 2000-2002 Katipo Communications
 #
 # This file is part of Koha.
@@ -30,199 +17,399 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+
+=head1 moremember.pl
+
+ script to do a borrower enquiry/bring up borrower details etc
+ Displays all the details about a borrower
+ written 20/12/99 by chris@katipo.co.nz
+ last modified 21/1/2000 by chris@katipo.co.nz
+ modified 31/1/2001 by chris@katipo.co.nz
+   to not allow items on request to be renewed
+
+ needs html removed and to use the C4::Output more, but its tricky
+
+=cut
+
 use strict;
-use C4::Auth;
+use CGI;
 use C4::Context;
+use C4::Auth;
 use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Interface::CGI::Template;
-use CGI;
-use C4::Search;
-use Date::Manip;
-use C4::Date;
-use C4::Reserves2;
-use C4::Circulation::Circ2;
+use C4::Members;
+use C4::Members::Attributes;
+use C4::Members::AttributeTypes;
+use C4::Dates;
+use C4::Reserves;
+use C4::Circulation;
 use C4::Koha;
 use C4::Letters;
-use HTML::Template;
+use C4::Biblio;
+use C4::Reserves;
+use C4::Branch; # GetBranchName
 
-my $dbh = C4::Context->dbh;
+#use Smart::Comments;
+#use Data::Dumper;
 
-my $input = new CGI;
-my $print = $input->param('print');
-my $template_name;
+use vars qw($debug);
 
-if($print eq "page"){
-	$template_name = "members/moremember-print.tmpl";
-} elsif($print eq "slip"){
-	$template_name = "members/moremember-receipt.tmpl";
-} else {
-	$template_name = "members/moremember.tmpl";
+BEGIN {
+	$debug = $ENV{DEBUG} || 0;
 }
 
-my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => $template_name,
-			     query => $input,
-			     type => "intranet",
-			     authnotrequired => 0,
-			     flagsrequired => {borrowers => 1},
-			     debug => 1,
-			     });
+my $dbh = C4::Context->dbh;
 
-my $bornum=$input->param('bornum');
+my $input = new CGI;
+$debug or $debug = $input->param('debug') || 0;
+my $print = $input->param('print');
+my $override_limit = $input->param("override_limit") || 0;
+my @failedrenews = $input->param('failedrenew');
+my @failedreturns = $input->param('failedreturn');
+my $error = $input->param('error');
+my %renew_failed;
+for my $renew (@failedrenews) { $renew_failed{$renew} = 1; }
+my %return_failed;
+for my $failedret (@failedreturns) { $return_failed{$failedret} = 1; }
 
-#start the page and read in includes
+my $template_name;
 
-my $data=borrdata('',$bornum);
+if    ($print eq "page") { $template_name = "members/moremember-print.tmpl";   }
+elsif ($print eq "slip") { $template_name = "members/moremember-receipt.tmpl"; }
+else {                     $template_name = "members/moremember.tmpl";         }
+
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+    {
+        template_name   => $template_name,
+        query           => $input,
+        type            => "intranet",
+        authnotrequired => 0,
+        flagsrequired   => { borrowers => 1 },
+        debug           => 1,
+    }
+);
+my $borrowernumber = $input->param('borrowernumber');
 
-$template->param($data->{'categorycode'} => 1); # in template <TMPL_IF name="I"> => instutitional (A for Adult & C for children)
+#start the page and read in includes
+my $data           = GetMember( $borrowernumber ,'borrowernumber');
+my $reregistration = $input->param('reregistration');
 
-$data->{'dateenrolled'} = format_date($data->{'dateenrolled'});
-$data->{'expiry'} = format_date($data->{'expiry'});
-$data->{'dateofbirth'} = format_date($data->{'dateofbirth'});
-$data->{'IS_ADULT'} = ($data->{'categorycode'} ne 'I');
+if ( not defined $data ) {
+    $template->param (unknowuser => 1);
+	output_html_with_http_headers $input, $cookie, $template->output;
+    exit;
+}
 
-if($data->{'debarred'} || $data->{'gonenoaddress'} || $data->{'lost'} || $data->{'borrowernotes'}){
-	$template->param(flagged =>1);
+# re-reregistration function to automatic calcul of date expiry
+if ( $reregistration eq 'y' ) {
+	$data->{'dateexpiry'} = ExtendMemberSubscriptionTo( $borrowernumber );
 }
 
-$data->{'ethnicity'} = fixEthnicity($data->{'ethnicity'});
+my $category_type = $data->{'category_type'};
+
+### $category_type
 
-$data->{&expand_sex_into_predicate($data->{'sex'})} = 1;
+# in template <TMPL_IF name="I"> => instutitional (A for Adult& C for children) 
+$template->param( $data->{'categorycode'} => 1 ); 
 
-if ($data->{'categorycode'} eq 'C'){
-	my $data2=borrdata('',$data->{'guarantor'});
-	$data->{'streetaddress'}=$data2->{'streetaddress'};
-	$data->{'city'}=$data2->{'city'};
-	$data->{'physstreet'}=$data2->{'physstreet'};
-	$data->{'streetcity'}=$data2->{'streetcity'};
-	$data->{'phone'}=$data2->{'phone'};
-	$data->{'phoneday'}=$data2->{'phoneday'};
-	$data->{'zipcode'} = $data2->{'zipcode'};
+$debug and printf STDERR "dates (enrolled,expiry,birthdate) raw: (%s, %s, %s)\n", map {$data->{$_}} qw(dateenrolled dateexpiry dateofbirth);
+foreach (qw(dateenrolled dateexpiry dateofbirth)) {
+		my $userdate = $data->{$_};
+		unless ($userdate) {
+			$debug and warn sprintf "Empty \$data{%12s}", $_;
+			$data->{$_} = '';
+			next;
+		}
+		$userdate = C4::Dates->new($userdate,'iso')->output('syspref');
+		$data->{$_} = $userdate || '';
+		$template->param( $_ => $userdate );
 }
+$data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' );
 
+for (qw(debarred gonenoaddress lost borrowernotes)) {
+	 $data->{$_} and $template->param(flagged => 1) and last;
+}
 
-if ($data->{'ethnicity'} || $data->{'ethnotes'}) {
-	$template->param(printethnicityline => 1);
+$data->{'ethnicity'} = fixEthnicity( $data->{'ethnicity'} );
+$data->{ "sex_".$data->{'sex'}."_p" } = 1;
+
+my $catcode;
+if ( $category_type eq 'C') {
+	if ($data->{'guarantorid'} ne '0' ) {
+    	my $data2 = GetMember( $data->{'guarantorid'} ,'borrowernumber');
+    	foreach (qw(address city B_address B_city phone mobile zipcode)) {
+    	    $data->{$_} = $data2->{$_};
+    	}
+   }
+   my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
+   my $cnt = scalar(@$catcodes);
+
+   $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
+   $template->param( 'catcode' =>    $catcodes->[0])  if $cnt == 1;
 }
 
-if ($data->{'categorycode'} ne 'C'){
-	$template->param(isguarantee => 1);
-	# FIXME
-	# It looks like the $i is only being returned to handle walking through
-	# the array, which is probably better done as a foreach loop.
-	#
-	my ($count,$guarantees)=findguarantees($data->{'borrowernumber'});
-	my @guaranteedata;
-	for (my $i=0;$i<$count;$i++){
-		push (@guaranteedata, {borrowernumber => $guarantees->[$i]->{'borrowernumber'},
-					cardnumber => $guarantees->[$i]->{'cardnumber'},
-					name => $guarantees->[$i]->{'firstname'} . " " . $guarantees->[$i]->{'surname'}});
-	}
-	$template->param(guaranteeloop => \@guaranteedata);
 
-} else {
-	my ($guarantor)=findguarantor($data->{'borrowernumber'});
-	unless ($guarantor->{'borrowernumber'} == 0){
-		$template->param(guarantorborrowernumber => $guarantor->{'borrowernumber'}, guarantorcardnumber => $guarantor->{'cardnumber'});
+if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) {
+    $template->param( printethnicityline => 1 );
+}
+if ( $category_type eq 'A' ) {
+    $template->param( isguarantee => 1 );
+
+    # FIXME
+    # It looks like the $i is only being returned to handle walking through
+    # the array, which is probably better done as a foreach loop.
+    #
+    my ( $count, $guarantees ) = GetGuarantees( $data->{'borrowernumber'} );
+    my @guaranteedata;
+    for ( my $i = 0 ; $i < $count ; $i++ ) {
+        push(@guaranteedata,
+            {
+                borrowernumber => $guarantees->[$i]->{'borrowernumber'},
+                cardnumber     => $guarantees->[$i]->{'cardnumber'},
+                name           => $guarantees->[$i]->{'firstname'} . " "
+                                . $guarantees->[$i]->{'surname'}
+            }
+        );
+    }
+    $template->param( guaranteeloop => \@guaranteedata );
+    ( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+}
+else {
+    if ($data->{'guarantorid'}){
+	    my ($guarantor) = GetMember( $data->{'guarantorid'},'biblionumber');
+		$template->param(guarantor => 1);
+		foreach (qw(borrowernumber cardnumber firstname surname)) {        
+			  $template->param("guarantor$_" => $guarantor->{$_});
+        }
+    }
+	if ($category_type eq 'C'){
+		$template->param('C' => 1);
 	}
 }
 
+#Independant branches management
+my $unvalidlibrarian =
+  (      ( C4::Context->preference("IndependantBranches") )
+      && ( C4::Context->userenv->{flags} != 1 )
+      && ( $data->{'branchcode'} ne C4::Context->userenv->{branch} ) );
+
 my %bor;
-$bor{'borrowernumber'}=$bornum;
+$bor{'borrowernumber'} = $borrowernumber;
 
 # Converts the branchcode to the branch name
 my $samebranch;
-if (C4::Context->preference("IndependantBranches")) {
-	my $userenv = C4::Context->userenv;
-	unless ($userenv->{flags} == 1){
-		$samebranch = ($data->{'branchcode'} eq $userenv->{branch});
-	}
-	$samebranch =1 if ($userenv->{flags} == 1);
+if ( C4::Context->preference("IndependantBranches") ) {
+    my $userenv = C4::Context->userenv;
+    unless ( $userenv->{flags} == 1 ) {
+        $samebranch = ( $data->{'branchcode'} eq $userenv->{branch} );
+    }
+    $samebranch = 1 if ( $userenv->{flags} % 2 == 1 );
+}else{
+    $samebranch = 1;
 }
+my $branchdetail = GetBranchDetail( $data->{'branchcode'});
+$data->{'branchname'} = $branchdetail->{branchname};
 
-$data->{'branchcode'} = &getbranchname($data->{'branchcode'});
-
-# Converts the categorycode to the description
-$data->{'categorycode'} = &getborrowercategory($data->{'categorycode'});
 
-my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
+my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
+my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
+my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
+( $template->param( lib1 => $lib1 ) ) if ($lib1);
+( $template->param( lib2 => $lib2 ) ) if ($lib2);
 
-#
 # current issues
 #
-my ($count,$issue)=borrissues($bornum);
-
-my $today=ParseDate('today');
+my $issue = GetPendingIssues($borrowernumber);
+my $count = scalar(@$issue);
+my $roaddetails = &GetRoadTypeDetails( $data->{'streettype'} );
+my $today       = POSIX::strftime("%Y-%m-%d", localtime);	# iso format
 my @issuedata;
+my $overdues_exist = 0;
 my $totalprice = 0;
-for (my $i=0;$i<$count;$i++){
-	my $datedue=ParseDate($issue->[$i]{'date_due'});
-	$issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'});
-	my %row = %{$issue->[$i]};
-	$totalprice += $issue->[$i]{'replacementprice'};
-	$row{'replacementprice'}=$issue->[$i]{'replacementprice'};
-	if ($datedue < $today){
-		$row{'red'}=1; #print "<font color=red>";
+my $toggle     = 0;
+for ( my $i = 0 ; $i < $count ; $i++ ) {
+    my $datedue = $issue->[$i]{'date_due'};
+    $issue->[$i]{'date_due'} = C4::Dates->new($issue->[$i]{'date_due'},'iso')->output('syspref');
+    $issue->[$i]{'issuedate'} = C4::Dates->new($issue->[$i]{'issuedate'},'iso')->output('syspref');
+    my $biblionumber = $issue->[$i]{'biblionumber'};
+    my %row = %{ $issue->[$i] };
+    $totalprice += $issue->[$i]{'replacementprice'};
+    $row{'replacementprice'} = $issue->[$i]{'replacementprice'};
+    # item lost, damaged loops
+    if ($row{'itemlost'}) {
+        my $fw = GetFrameworkCode($issue->[$i]{'biblionumber'});
+        my $category = GetAuthValCode('items.itemlost',$fw);
+        my $lostdbh = C4::Context->dbh;
+        my $sth = $lostdbh->prepare("select lib from authorised_values where category=? and authorised_value =? ");
+        $sth->execute($category, $row{'itemlost'});
+        my $loststat = $sth->fetchrow;
+        if ($loststat) {
+           $row{'itemlost'} = $loststat;
+        }
+    }
+    if ($row{'damaged'}) {
+        my $fw = GetFrameworkCode($issue->[$i]{'biblionumber'});
+        my $category = GetAuthValCode('items.damaged',$fw);
+        my $damageddbh = C4::Context->dbh;
+        my $sth = $damageddbh->prepare("select lib from authorised_values where category=? and authorised_value =? ");
+        $sth->execute($category, $row{'damaged'});
+        my $damagedstat = $sth->fetchrow;
+        if ($damagedstat) {
+           $row{'itemdamaged'} = $damagedstat;
+        }
+    }
+    # end lost, damaged
+    if ( $datedue lt $today ) {
+        $overdues_exist = 1;
+        $row{'red'} = 1;    #print "<font color=red>";
 	}
-	#find the charge for an item
-	# FIXME - This is expecting
-	# &C4::Circulation::Renewals2::calc_charges, but it's getting
-	# &C4::Circulation::Circ2::calc_charges, which only returns one
-	# element, so itemtype isn't being set.
-	# But &C4::Circulation::Renewals2::calc_charges doesn't appear to
-	# return the correct item type either (or a properly-formatted
-	# charge, for that matter).
-	my ($charge,$itemtype)=calc_charges($dbh,$issue->[$i]{'itemnumber'},$bornum);
-	$row{'itemtype'}=&ItemType($itemtype);
-	$row{'charge'}= sprintf("%.2f",$charge);
-
-	#check item is not reserved
-	my ($restype,$reserves)=CheckReserves($issue->[$i]{'itemnumber'});
-	if ($restype){
-#		print "<TD><a href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no renewals</a></td></tr>";
-		#  } elsif ($issue->[$i]->{'renewals'} > 0) {
-		#      print "<TD>Previously Renewed - no renewals</td></tr>";
-	    		$row{'norenew'}=1;
-	} else {
-		$row{'norenew'}=0;
-	}
-	push (@issuedata, \%row);
+    #find the charge for an item
+    my ( $charge, $itemtype ) =
+      GetIssuingCharges( $issue->[$i]{'itemnumber'}, $borrowernumber );
+
+    my $itemtypeinfo = getitemtypeinfo($itemtype);
+    $row{'itemtype_description'} = $itemtypeinfo->{description};
+    $row{'itemtype_image'}       = $itemtypeinfo->{imageurl};
+
+    $row{'charge'} = sprintf( "%.2f", $charge );
+
+	my ( $renewokay,$renewerror ) = CanBookBeRenewed( $borrowernumber, $issue->[$i]{'itemnumber'}, $override_limit );
+	$row{'norenew'} = !$renewokay;
+	$row{'can_confirm'} = ( !$renewokay && $renewerror ne 'on_reserve' );
+	$row{"norenew_reason_$renewerror"} = 1 if $renewerror;
+	$row{'renew_failed'} = $renew_failed{ $issue->[$i]{'itemnumber'} };
+	$row{'return_failed'} = $return_failed{$issue->[$i]{'barcode'}};   
+    push( @issuedata, \%row );
 }
 
-#
-# find reserves
-#
-my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
-my @reservedata;
-foreach my $reserveline (@$reserves) {
-	$reserveline->{'reservedate2'} = format_date($reserveline->{'reservedate'});
-	my $restitle;
-	my %row = %$reserveline;
-	if ($reserveline->{'constrainttype'} eq 'o'){
-		$restitle=getreservetitle($reserveline->{'biblionumber'},$reserveline->{'borrowernumber'},$reserveline->{'reservedate'},$reserveline->{'rtimestamp'});
-		%row =  (%row , %$restitle) if $restitle;
-	}
-	push (@reservedata, \%row);
+### ###############################################################################
+# BUILD HTML
+# show all reserves of this borrower, and the position of the reservation ....
+if ($borrowernumber) {
+
+    # new op dev
+    # now we show the status of the borrower's reservations
+    my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
+    my @reservloop;
+    foreach my $num_res (@borrowerreserv) {
+        my %getreserv;
+        my $getiteminfo  = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
+        my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
+        my ( $transfertwhen, $transfertfrom, $transfertto ) =
+            GetTransfers( $num_res->{'itemnumber'} );
+
+		foreach (qw(waiting transfered nottransfered)) {
+				$getreserv{$_} = 0;
+		}
+        $getreserv{reservedate}  = C4::Dates->new($num_res->{'reservedate'},'iso')->output('syspref');
+		foreach (qw(biblionumber title author itemcallnumber )) {
+				$getreserv{$_} = $getiteminfo->{$_};
+		}
+        $getreserv{barcodereserv}  = $getiteminfo->{'barcode'};
+        $getreserv{itemtype}  = $itemtypeinfo->{'description'};
+
+        # 		check if we have a waitin status for reservations
+        if ( $num_res->{'found'} eq 'W' ) {
+            $getreserv{color}   = 'reserved';
+            $getreserv{waiting} = 1;
+        }
+
+        # 		check transfers with the itemnumber foud in th reservation loop
+        if ($transfertwhen) {
+            $getreserv{color}      = 'transfered';
+            $getreserv{transfered} = 1;
+            $getreserv{datesent}   = C4::Dates->new($transfertwhen, 'iso')->output('syspref') or die "Cannot get new($transfertwhen, 'iso') from C4::Dates";
+            $getreserv{frombranch} = GetBranchName($transfertfrom);
+        }
+
+        if ( ( $getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'} )
+            and not $transfertwhen )
+        {
+            $getreserv{nottransfered}   = 1;
+            $getreserv{nottransferedby} =
+                GetBranchName( $getiteminfo->{'holdingbranch'} );
+        }
+
+# 		if we don't have a reserv on item, we put the biblio infos and the waiting position
+        if ( $getiteminfo->{'title'} eq '' ) {
+            my $getbibinfo = GetBiblioData( $num_res->{'biblionumber'} );
+            my $getbibtype = getitemtypeinfo( $getbibinfo->{'itemtype'} );
+            $getreserv{color}           = 'inwait';
+            $getreserv{title}           = $getbibinfo->{'title'};
+            $getreserv{nottransfered}   = 0;
+            $getreserv{itemtype}        = $getbibtype->{'description'};
+            $getreserv{author}          = $getbibinfo->{'author'};
+            $getreserv{biblionumber}  = $num_res->{'biblionumber'};	
+        }
+        $getreserv{waitingposition} = $num_res->{'priority'};
+
+        push( @reservloop, \%getreserv );
+    }
+
+    # return result to the template
+    $template->param( reservloop => \@reservloop );
 }
 
 # current alert subscriptions
-my $alerts = getalert($bornum);
+my $alerts = getalert($borrowernumber);
 foreach (@$alerts) {
-	$_->{$_->{type}}=1;
-	$_->{relatedto} = findrelatedto($_->{type},$_->{externalid});
+    $_->{ $_->{type} } = 1;
+    $_->{relatedto} = findrelatedto( $_->{type}, $_->{externalid} );
+}
+
+my $candeleteuser;
+my $userenv = C4::Context->userenv;
+if($userenv->{flags} % 2 == 1){
+    $candeleteuser = 1;
+}elsif ( C4::Context->preference("IndependantBranches") ) {
+    $candeleteuser = ( $data->{'branchcode'} eq $userenv->{branch} );
+}else{
+    if( C4::Auth::getuserflags( $userenv->{flags},$userenv->{number})->{borrowers} ) {
+        $candeleteuser = 1;
+    }else{
+        $candeleteuser = 0;
+    }
 }
 
+# check to see if patron's image exists in the database
+# basically this gives us a template var to condition the display of
+# patronimage related interface on
+my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
+$template->param( picture => 1 ) if $picture;
+
+my $branch=C4::Context->userenv->{'branch'};
+
 $template->param($data);
+
+if (C4::Context->preference('ExtendedPatronAttributes')) {
+    $template->param(ExtendedPatronAttributes => 1);
+    $template->param(patron_attributes => C4::Members::Attributes::GetBorrowerAttributes($borrowernumber));
+    my @types = C4::Members::AttributeTypes::GetAttributeTypes();
+    if (scalar(@types) == 0) {
+        $template->param(no_patron_attribute_types => 1);
+    }
+}
+
 $template->param(
-		 bornum          => $bornum,
-		 totalprice =>$totalprice,
-		 totaldue =>$total,
-		 issueloop       => \@issuedata,
-		 reserveloop     => \@reservedata,
-		 alertloop => $alerts);
-		 independantbranches => C4::Context->preference("IndependantBranches"),
-		 samebranch		 => C4::Context->preference("IndependantBranches"?"":$samebranch,
-		);
+    detailview => 1,
+    AllowRenewalLimitOverride => C4::Context->preference("AllowRenewalLimitOverride"),
+    DHTMLcalendar_dateformat=>C4::Dates->DHTMLcalendar(),
+    CANDELETEUSER    => $candeleteuser,
+    roaddetails      => $roaddetails,
+    borrowernumber   => $borrowernumber,
+    categoryname	=> $data->{'description'},
+    reregistration   => $reregistration,
+    branch	     => $branch,	
+    totalprice       => sprintf( "%.2f", $totalprice ),
+    totaldue         => sprintf( "%.2f", $total ),
+    issueloop        => \@issuedata,
+    overdues_exist   => $overdues_exist,
+    unvalidlibrarian => $unvalidlibrarian,
+   	error	         => $error,
+	$error			=> 1,
+    StaffMember		=> ($category_type eq 'S'),
+	is_child        => ($category_type eq 'C'),
+	# 		 reserveloop     => \@reservedata,
+	dateformat    => C4::Context->preference("dateformat"),
+);
 
 output_html_with_http_headers $input, $cookie, $template->output;