gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removing all useless %env / $env

This commit is contained in:
tipaul 2007-04-18 17:00:14 +00:00
parent 5af8ae975b
commit 7bd99ef365
118 changed files with 128 additions and 465 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
C4/Accounts.pm
View File

@ -63,8 +63,6 @@ C<$borrowernumber> specifies the borrower to look up.
C<$dbh> is a DBI::db handle for the Koha database.
C<$env> is ignored.
=cut
#'
@ -91,7 +89,7 @@ sub checkaccount {
#if ($total > 0){
# # output(1,2,"borrower owes $total");
# if ($total > 5){
# reconcileaccount($env,$dbh,$borrowernumber,$total);
# reconcileaccount($dbh,$borrowernumber,$total);
# }
#}
# pause();
@ -100,13 +98,11 @@ sub checkaccount {
=head2 recordpayment
&recordpayment($env, $borrowernumber, $payment);
&recordpayment($borrowernumber, $payment);
Record payment by a patron. C<$borrowernumber> is the patron's
borrower number. C<$payment> is a floating-point number, giving the
amount that was paid. C<$env> is a reference-to-hash;
C<$env-E<gt>{branchcode}> is the code of the branch where payment was
made.
amount that was paid.
Amounts owed are paid off oldest first. That is, if the patron has a
$1 fine from Feb. 1, another $1 fine from Mar. 1, and makes a payment
@ -118,12 +114,11 @@ will be credited to the next one.
#'
sub recordpayment{
#here we update both the accountoffsets and the account lines
my ($env,$borrowernumber,$data)=@_;
my ($borrowernumber,$data)=@_;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
my $branch=$env->{'branchcode'};
warn $branch;
my $branch=C4::Context->userenv->{'branch'};
my $amountleft = $data;
# begin transaction
my $nextaccntno = getnextacctno($borrowernumber);
@ -158,7 +153,7 @@ sub recordpayment{
values (?,?,now(),?,'Payment,thanks','Pay',?)");
$usth->execute($borrowernumber,$nextaccntno,0-$data,0-$amountleft);
$usth->finish;
UpdateStats($env,$branch,'payment',$data,'','','',$borrowernumber);
UpdateStats($branch,'payment',$data,'','','',$borrowernumber);
$sth->finish;
}
@ -185,8 +180,6 @@ sub makepayment{
#updated to check, if they are paying off a lost item, we return the item
# from their card, and put a note on the item record
my ($borrowernumber,$accountno,$amount,$user,$branch)=@_;
my %env;
$env{'branchcode'}=$branch;
my $dbh = C4::Context->dbh;
# begin transaction
my $nextaccntno = getnextacctno($borrowernumber);
@ -224,7 +217,7 @@ EOT
# FIXME - The second argument to &UpdateStats is supposed to be the
# branch code.
# UpdateStats is now being passed $accountno too. MTJ
UpdateStats(\%env,$user,'payment',$amount,'','','',$borrowernumber,$accountno);
UpdateStats($user,'payment',$amount,'','','',$borrowernumber,$accountno);
$sth->finish;
#check to see what accounttype
if ($data->{'accounttype'} eq 'Rep' || $data->{'accounttype'} eq 'L'){
@ -241,8 +234,6 @@ borrower number.
C<$dbh> is a DBI::db handle to the Koha database.
C<$env> is ignored.
=cut
#'
@ -330,14 +321,13 @@ sub manualinvoice{
my $notifyid;
my $insert;
$itemnum=~ s/ //g;
my %env;
my $accountno=getnextacctno($borrowernumber);
my $amountleft=$amount;
if ($type eq 'CS' || $type eq 'CB' || $type eq 'CW'
|| $type eq 'CF' || $type eq 'CL'){
my $amount2=$amount*-1; # FIXME - $amount2 = -$amount
$amountleft=fixcredit(\%env,$borrowernumber,$amount2,$itemnum,$type,$user);
$amountleft=fixcredit($borrowernumber,$amount2,$itemnum,$type,$user);
}
if ($type eq 'N'){
$desc.="New Card";
@ -381,7 +371,7 @@ sub manualinvoice{
=head2 fixcredit
$amountleft = &fixcredit($env, $borrowernumber, $data, $barcode, $type, $user);
$amountleft = &fixcredit($borrowernumber, $data, $barcode, $type, $user);
This function is only used internally, not exported.
FIXME - Figure out what this function does, and write it down.
@ -390,7 +380,7 @@ sub manualinvoice{
sub fixcredit{
#here we update both the accountoffsets and the account lines
my ($env,$borrowernumber,$data,$barcode,$type,$user)=@_;
my ($borrowernumber,$data,$barcode,$type,$user)=@_;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
@ -460,9 +450,8 @@ sub fixcredit{
$usth->finish;
}
$sth->finish;
$env->{'branch'}=$user;
$type="Credit ".$type;
UpdateStats($env,$user,$type,$data,$user,'','',$borrowernumber);
UpdateStats($user,$type,$data,$user,'','',$borrowernumber);
$amountleft*=-1;
return($amountleft);
@ -476,11 +465,10 @@ sub fixcredit{
sub refund{
#here we update both the accountoffsets and the account lines
my ($env,$borrowernumber,$data)=@_;
my ($borrowernumber,$data)=@_;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
# my $branch=$env->{'branchcode'};
my $amountleft = $data *-1;
# begin transaction

4
C4/Biblio.pm
View File

@ -1201,7 +1201,6 @@ database.
sub GetBiblioFromItemNumber {
my ( $itemnumber ) = @_;
my $dbh = C4::Context->dbh;
my $env;
my $sth = $dbh->prepare(
"SELECT * FROM biblio,items,biblioitems
WHERE items.itemnumber = ?
@ -3650,6 +3649,9 @@ Joshua Ferraro jmf@liblime.com
# $Id$
# $Log$
# Revision 1.197 2007/04/18 17:00:14 tipaul
# removing all useless %env / $env
#
# Revision 1.196 2007/04/17 08:48:00 tipaul
# circulation cleaning continued: bufixing
#

31
C4/Circulation.pm
View File

@ -203,7 +203,6 @@ The item was eligible to be transferred. Barring problems communicating with the
sub transferbook {
my ( $tbr, $barcode, $ignoreRs ) = @_;
my $messages;
my %env;
my $dotransfer = 1;
my $branches = GetBranches();
my $itemnumber = GetItemnumberFromBarcode( $barcode );
@ -303,12 +302,10 @@ sub domarctransfer {
Check if a book can be issued.
my ($issuingimpossible,$needsconfirmation) = CanBookBeIssued($env,$borrower,$barcode,$year,$month,$day);
my ($issuingimpossible,$needsconfirmation) = CanBookBeIssued($borrower,$barcode,$year,$month,$day);
=over 4
=item C<$env> Environment variable. Should be empty usually, but used by other subs. Next code cleaning could drop it.
=item C<$borrower> hash with borrower informations (from GetMemberDetails)
=item C<$barcode> is the bar code of the book being issued.
@ -671,14 +668,14 @@ sub itemissues {
=head2 CanBookBeIssued
$issuingimpossible, $needsconfirmation =
CanBookBeIssued( $env, $borrower, $barcode, $year, $month, $day, $inprocess );
CanBookBeIssued( $borrower, $barcode, $year, $month, $day, $inprocess );
C<$issuingimpossible> and C<$needsconfirmation> are some hashref.
=cut
sub CanBookBeIssued {
my ( $env, $borrower, $barcode, $year, $month, $day, $inprocess ) = @_;
my ( $borrower, $barcode, $year, $month, $day, $inprocess ) = @_;
my %needsconfirmation; # filled with problems that needs confirmations
my %issuingimpossible; # filled with problems that causes the issue to be IMPOSSIBLE
my $item = GetItem(GetItemnumberFromBarcode( $barcode ));
@ -848,12 +845,10 @@ sub CanBookBeIssued {
Issue a book. Does no check, they are done in CanBookBeIssued. If we reach this sub, it means the user confirmed if needed.
&AddIssue($env,$borrower,$barcode,$date)
&AddIssue($borrower,$barcode,$date)
=over 4
=item C<$env> Environment variable. Should be empty usually, but used by other subs. Next code cleaning could drop it.
=item C<$borrower> hash with borrower informations (from GetMemberDetails)
=item C<$barcode> is the bar code of the book being issued.
@ -878,7 +873,7 @@ AddIssue does the following things :
=cut
sub AddIssue {
my ( $env, $borrower, $barcode, $date, $cancelreserve ) = @_;
my ( $borrower, $barcode, $date, $cancelreserve ) = @_;
my $dbh = C4::Context->dbh;
if ($borrower and $barcode){
@ -909,7 +904,7 @@ if ($borrower and $barcode){
$item->{'charge'} = $charge;
}
&UpdateStats(
$env, $env->{'branchcode'},
C4::Context->userenv->{'branch'},
'renew', $charge,
'', $item->{'itemnumber'},
$biblio->{'itemtype'}, $borrower->{'borrowernumber'}
@ -1026,7 +1021,7 @@ if ($borrower and $barcode){
$sth->execute(
$borrower->{'borrowernumber'},
$item->{'itemnumber'},
strftime( "%Y-%m-%d", localtime ),$dateduef, $env->{'branchcode'}
strftime( "%Y-%m-%d", localtime ),$dateduef, C4::Context->userenv->{'branch'}
);
$sth->finish;
$item->{'issues'}++;
@ -1055,7 +1050,7 @@ if ($borrower and $barcode){
# Record the fact that this book was issued.
&UpdateStats(
$env, $env->{'branchcode'},
C4::Context->userenv->{'branch'},
'issue', $charge,
'', $item->{'itemnumber'},
$item->{'itemtype'}, $borrower->{'borrowernumber'}
@ -1527,8 +1522,6 @@ $ok = &CanBookBeRenewed($borrowernumber, $itemnumber);
Find out whether a borrowed item may be renewed.
C<$env> is ignored.
C<$dbh> is a DBI handle to the Koha database.
C<$borrowernumber> is the borrower number of the patron who currently
@ -1605,12 +1598,6 @@ sub CanBookBeRenewed {
Renews a loan.
C<$env-E<gt>{branchcode}> is the code of the branch where the
renewal is taking place.
C<$env-E<gt>{usercode}> is the value to log in C<statistics.usercode>
in the Koha database.
C<$borrowernumber> is the borrower number of the patron who currently
has the item.
@ -1696,8 +1683,6 @@ sub AddRenewal {
Calculate how much it would cost for a given patron to borrow a given
item, including any applicable discounts.
C<$env> is ignored.
C<$itemnumber> is the item number of item the patron wishes to borrow.
C<$borrowernumber> is the patron's borrower number.

1
C4/Circulation/Fines.pm
View File

@ -655,7 +655,6 @@ C<$notify_id> contains the file number for the borrower number nad item number
sub NumberNotifyId{
my ($borrowernumber)=@_;
my $dbh = C4::Context->dbh;
my $env;
my $query=qq| SELECT distinct(notify_id)
FROM accountlines
WHERE borrowernumber=?

2
C4/Date.pm
View File

@ -197,8 +197,6 @@ sub fixdate {
my $date;
if ( $year && $month && $day ) {
if ( ( $year eq 0 ) && ( $month eq 0 ) && ( $year eq 0 ) ) {
# $env{'datedue'}='';
}
else {
if ( ( $year eq 0 ) || ( $month eq 0 ) || ( $year eq 0 ) ) {

21
C4/Input.pm
View File

@ -53,36 +53,19 @@ number or ISBN is valid.
&buildCGIsort
);
# FIXME - This is never used.
#sub checkflds {
# my ($env,$reqflds,$data) = @_;
# my $numrflds = @$reqflds;
# my @probarr;
# my $i = 0;
# while ($i < $numrflds) {
# if ($data->{@$reqflds[$i]} eq "") {
# push(@probarr, @$reqflds[$i]);
# }
# $i++
# }
# return (\@probarr);
#}
=item checkdigit
$valid = &checkdigit($env, $cardnumber $nounique);
$valid = &checkdigit($cardnumber $nounique);
Takes a card number, computes its check digit, and compares it to the
checkdigit at the end of C<$cardnumber>. Returns a true value iff
C<$cardnumber> has a valid check digit.
C<$env> is ignored.
=cut
#'
sub checkdigit {
my ($env,$infl, $nounique) = @_;
my ($infl, $nounique) = @_;
$infl = uc $infl;

5
C4/Koha.pm
View File

@ -486,13 +486,11 @@ sub getitemtypeimagesrc {
=head2 GetPrinters
$printers = &GetPrinters($env);
$printers = &GetPrinters();
@queues = keys %$printers;
Returns information about existing printer queues.
C<$env> is ignored.
C<$printers> is a reference-to-hash whose keys are the print queues
defined in the printers table of the Koha database. The values are
references-to-hash, whose keys are the fields in the printers table.
@ -500,7 +498,6 @@ references-to-hash, whose keys are the fields in the printers table.
=cut
sub GetPrinters {
my ($env) = @_;
my %printers;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("select * from printers");

34
C4/Members.pm
View File

@ -79,12 +79,10 @@ This module contains routines for adding, modifying and deleting members/patrons
=item BornameSearch
($count, $borrowers) = &BornameSearch($env, $searchstring, $type);
($count, $borrowers) = &BornameSearch($searchstring, $type);
Looks up patrons (borrowers) by name.
C<$env> is ignored.
BUGFIX 499: C<$type> is now used to determine type of search.
if $type is "simple", search is performed on the first letter of the
surname only.
@ -104,7 +102,7 @@ C<$count> is the number of elements in C<$borrowers>.
#used by member enquiries from the intranet
#called by member.pl
sub BornameSearch {
my ( $env, $searchstring, $orderby, $type ) = @_;
my ($searchstring, $orderby, $type ) = @_;
my $dbh = C4::Context->dbh;
my $query = "";
my $count;
@ -248,8 +246,6 @@ C<$borrowernumber> is true (nonzero), C<&GetMemberDetails> looks
up the borrower by number; otherwise, it looks up the borrower by card
number.
C<$env> is effectively ignored, but should be a reference-to-hash.
C<$borrower> is a reference-to-hash whose keys are the fields of the
borrowers table in the Koha database. In addition,
C<$borrower-E<gt>{flags}> is a hash giving more detailed information
@ -387,7 +383,7 @@ sub GetMemberDetails {
NOTE!: If you change this function, be sure to update the POD for
&GetMemberDetails.
$flags = &patronflags($env, $patron, $dbh);
$flags = &patronflags($patron, $dbh);
$flags->{CHARGES}
{message} Message showing patron's credit or debt
@ -545,13 +541,11 @@ sub borrdata {
=item borrdata2
($borrowed, $due, $fine) = &borrdata2($env, $borrowernumber);
($borrowed, $due, $fine) = &borrdata2($borrowernumber);
Returns aggregate data about items borrowed by the patron with the
given borrowernumber.
C<$env> is ignored.
C<&borrdata2> returns a three-element array. C<$borrowed> is the
number of books the patron currently has borrowed. C<$due> is the
number of overdue items the patron currently has borrowed. C<$fine> is
@ -561,7 +555,7 @@ the total fine currently due by the borrower.
#'
sub borrdata2 {
my ( $env, $borrowernumber ) = @_;
my ( $borrowernumber ) = @_;
my $dbh = C4::Context->dbh;
my $query =
"Select count(*) from issues where borrowernumber='$borrowernumber' and
@ -1023,12 +1017,10 @@ sub findguarantor {
=item GuarantornameSearch
($count, $borrowers) = &GuarantornameSearch($env, $searchstring, $type);
($count, $borrowers) = &GuarantornameSearch($searchstring, $type);
Looks up guarantor by name.
C<$env> is ignored.
BUGFIX 499: C<$type> is now used to determine type of search.
if $type is "simple", search is performed on the first letter of the
surname only.
@ -1050,7 +1042,7 @@ return all info from guarantor =>only category_type A
#used by member enquiries from the intranet
#called by guarantor_search.pl
sub GuarantornameSearch {
my ( $env, $searchstring, $orderby, $type ) = @_;
my ($searchstring, $orderby, $type ) = @_;
my $dbh = C4::Context->dbh;
my $query = "";
my $count;
@ -1219,12 +1211,10 @@ sub allissues {
=head2 getboracctrecord
($count, $acctlines, $total) = &getboracctrecord($env, $borrowernumber);
($count, $acctlines, $total) = &getboracctrecord($borrowernumber);
Looks up accounting data for the patron with the given borrowernumber.
C<$env> is ignored.
(FIXME - I'm not at all sure what this is about.)
C<&getboracctrecord> returns a three-element array. C<$acctlines> is a
@ -1237,7 +1227,7 @@ total amount outstanding for all of the account lines.
#'
sub getboracctrecord {
my ( $env, $params ) = @_;
my ($params ) = @_;
my $dbh = C4::Context->dbh;
my @acctlines;
my $numlines = 0;
@ -1270,12 +1260,10 @@ borrowernumber=? order by date desc,timestamp desc"
=head2 GetBorNotifyAcctRecord
($count, $acctlines, $total) = &GetBorNotifyAcctRecord($env, $params,$notifyid);
($count, $acctlines, $total) = &GetBorNotifyAcctRecord($params,$notifyid);
Looks up accounting data for the patron with the given borrowernumber per file number.
C<$env> is ignored.
(FIXME - I'm not at all sure what this is about.)
C<&GetBorNotifyAcctRecord> returns a three-element array. C<$acctlines> is a
@ -1287,7 +1275,7 @@ total amount outstanding for all of the account lines.
=cut
sub GetBorNotifyAcctRecord {
my ( $env, $params, $notifyid ) = @_;
my ( $params, $notifyid ) = @_;
my $dbh = C4::Context->dbh;
my @acctlines;
my $numlines = 0;

1
C4/Overdues.pm
View File

@ -697,7 +697,6 @@ C<$notify_id> contains the file number for the borrower number nad item number
sub NumberNotifyId{
my ($borrowernumber)=@_;
my $dbh = C4::Context->dbh;
my $env;
my $query=qq| SELECT distinct(notify_id)
FROM accountlines
WHERE borrowernumber=?|;

36
C4/Print.pm
View File

@ -56,14 +56,10 @@ The functions in this module handle sending text to a printer.
=item remoteprint
&remoteprint($env, $items, $borrower);
&remoteprint($items, $borrower);
Prints the list of items in C<$items> to a printer.
C<$env> is a reference-to-hash. C<$env-E<gt>{queue}> specifies the
queue to print to; if it is empty or has the special value C<nulllp>,
C<&remoteprint> will print to the file F</tmp/kohaiss>.
C<$borrower> is a reference-to-hash giving information about a patron.
This may be gotten from C<&GetMemberDetails>. The patron's name
will be printed in the output.
@ -74,14 +70,13 @@ from C<&GetBorrowerIssues>.
=cut
#'
# FIXME - It'd be nifty if this could generate pretty PostScript.
sub remoteprint {
my ( $env, $items, $borrower ) = @_;
my ($items, $borrower ) = @_;
(return)
unless ( C4::Context->boolean_preference('printcirculationslips') );
my $queue = $env->{'queue'};
my $queue = '';
# FIXME - If 'queue' is undefined or empty, then presumably it should
# mean "use the default queue", whatever the default is. Presumably
@ -106,12 +101,9 @@ sub remoteprint {
# print $queue;
#open (FILE,">/tmp/$file");
my $i = 0;
my $brdata = $env->{'brdata'}; # FIXME - Not used
# FIXME - This is HLT-specific. Put this stuff in a customizable
# site-specific file somewhere.
# FIXME - This is HLT-specific. Put this stuff in a customizable
# site-specific file somewhere.
print PRINTER "Horowhenua Library Trust\r\n";
# print PRINTER "$brdata->{'branchname'}\r\n";
print PRINTER "Phone: 368-1953\r\n";
print PRINTER "Fax: 367-9218\r\n";
print PRINTER "Email: renewals\@library.org.nz\r\n\r\n\r\n";
@ -134,19 +126,15 @@ sub remoteprint {
$i++;
}
print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
if ( $env->{'printtype'} eq "docket" ) {
#print chr(27).chr(105);
}
close PRINTER;
#system("lpr /tmp/$file");
}
sub printreserve {
my ( $env, $branchname, $bordata, $itemdata ) = @_;
my ( $branchname, $bordata, $itemdata ) = @_;
my $file = time;
my $printer = $env->{'printer'};
my $printer = '';
(return) unless ( C4::Context->boolean_preference('printreserveslips') );
if ( $printer eq "" || $printer eq 'nulllp' ) {
open( PRINTER, ">>/tmp/kohares" );
@ -188,7 +176,7 @@ EOF
=item printslip
&printslip($env, $borrowernumber)
&printslip($borrowernumber)
print a slip for the given $borrowernumber
@ -196,14 +184,10 @@ EOF
#'
sub printslip {
my ( $env, $borrowernumber ) = @_;
my ( $borrowernumber ) = @_;
my ( $borrower, $flags ) = GetMemberDetails( $borrowernumber);
$env->{'todaysissues'} = 1;
my ($borrowerissues) = GetBorrowerIssues( $borrower );
$env->{'nottodaysissues'} = 1;
$env->{'todaysissues'} = 0;
my ($borroweriss2) = GetBorrowerIssues( $borrower );
$env->{'nottodaysissues'} = 0;
my $i = 0;
my @issues;
@ -227,7 +211,7 @@ sub printslip {
$issues[$i]->{'date_due'} = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
$i++;
}
remoteprint( $env, \@issues, $borrower );
remoteprint(\@issues, $borrower );
}
END { } # module clean-up code here (global destructor)

14
C4/Reserves2.pm
View File

@ -964,7 +964,7 @@ sub Findgroupreserve {
=item CreateReserve
CreateReserve($env,$branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
CreateReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
FIXME - A somewhat different version of this function appears in
C4::Reserves. Pick one and stick with it.
@ -973,19 +973,19 @@ C4::Reserves. Pick one and stick with it.
sub CreateReserve {
my (
$env, $branch, $borrowernumber, $biblionumber,
$branch, $borrowernumber, $biblionumber,
$constraint, $bibitems, $priority, $notes,
$title, $checkitem, $found
) = @_;
my $fee;
if ( $library_name =~ /Horowhenua/ ) {
$fee =
CalcHLTReserveFee( $env, $borrowernumber, $biblionumber, $constraint,
CalcHLTReserveFee($borrowernumber, $biblionumber, $constraint,
$bibitems );
}
else {
$fee =
CalcReserveFee( $env, $borrowernumber, $biblionumber, $constraint,
CalcReserveFee($borrowernumber, $biblionumber, $constraint,
$bibitems );
}
my $dbh = C4::Context->dbh;
@ -1061,7 +1061,7 @@ sub CreateReserve {
# FIXME - opac-reserves.pl need to use it, temporarily put into @EXPORT
sub CalcReserveFee {
my ( $env, $borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
#check for issues;
my $dbh = C4::Context->dbh;
@ -1169,7 +1169,7 @@ sub CalcReserveFee {
#
# All other item types should incur a reserve charge.
sub CalcHLTReserveFee {
my ( $env, $borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare(
"SELECT * FROM borrowers,categories
@ -1212,7 +1212,7 @@ GetNextAccountNumber()
=cut
sub GetNextAccountNumber {
my ( $env, $borrowernumber, $dbh ) = @_;
my ($borrowernumber, $dbh ) = @_;
my $nextaccntno = 1;
my $sth = $dbh->prepare(
"select * from accountlines

7
C4/Stats.pm
View File

@ -54,7 +54,7 @@ the Koha database, which acts as an activity log.
=item UpdateStats
&UpdateStats($env, $branch, $type, $value, $other, $itemnumber,
&UpdateStats($branch, $type, $value, $other, $itemnumber,
$itemtype, $borrowernumber);
Adds a line to the statistics table of the Koha database. In effect,
@ -64,11 +64,6 @@ C<$branch>, C<$type>, C<$value>, C<$other>, C<$itemnumber>,
C<$itemtype>, and C<$borrowernumber> correspond to the fields of the
statistics table in the Koha database.
If C<$branch> is the empty string, the branch code will be taken from
C<$env-E<gt>{branchcode}>.
C<$env-E<gt>{usercode}> specifies the value of the C<usercode> field.
=cut
#'

5
admin/auth_subfields_structure.pl
View File

@ -27,7 +27,7 @@ use C4::Context;
sub StringSearch {
my ($env,$searchstring,$authtypecode)=@_;
my ($searchstring,$authtypecode)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -463,8 +463,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$tagfield,$authtypecode);
my ($count,$results)=StringSearch($tagfield,$authtypecode);
my $toggle=1;
my @loop_data = ();
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/auth_tag_structure.pl
View File

@ -208,8 +208,7 @@ if ($op eq 'add_form') {
if ($searchfield ne '') {
$template->param(searchfield => $searchfield);
}
my $env;
my ($count,$results)=StringSearch($env,$searchfield,$authtypecode);
my ($count,$results)=StringSearch($searchfield,$authtypecode);
my $toggle=1;
my @loop_data = ();
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
@ -263,7 +262,7 @@ output_html_with_http_headers $input, $cookie, $template->output;
# the sub used for searches
#
sub StringSearch {
my ($env,$searchstring,$authtypecode)=@_;
my ($searchstring,$authtypecode)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);

5
admin/authorised_values.pl
View File

@ -28,7 +28,7 @@ use C4::Context;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -164,8 +164,7 @@ if ($op eq 'add_form') {
if (!$searchfield) {
$searchfield=$category_list[0];
}
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data = ();
# builds value list

5
admin/authtypes.pl
View File

@ -30,7 +30,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -143,8 +143,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/biblio_framework.pl
View File

@ -30,7 +30,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -144,8 +144,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

3
admin/branches.pl
View File

@ -210,8 +210,7 @@ sub default {
sub editbranchform {
my ($branchcode,$innertemplate) = @_;
# initiate the scrolling-list to select the printers
my %env;
my $printers = GetPrinters( \%env );
my $printers = GetPrinters();
my @printerloop;
my $printercount = 0;
my $oldprinter;

5
admin/categorie.pl
View File

@ -45,7 +45,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -167,9 +167,8 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
my $env;
my @loop;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (categorycode => $results->[$i]{'categorycode'},

5
admin/categoryitem.pl
View File

@ -46,7 +46,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -161,9 +161,8 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
my $env;
my @loop;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 'white';
for (my $i=0; $i < $count; $i++){
my %row = (categorycode => $results->[$i]{'categorycode'},

5
admin/cities.pl
View File

@ -26,7 +26,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -140,9 +140,8 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
my $env;
my @loop;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (cityid => $results->[$i]{'cityid'},

5
admin/currency.pl
View File

@ -46,7 +46,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -162,8 +162,7 @@ if ($op eq 'add_form') {
} else { # DEFAULT
$template->param(else => 1);
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my @loop;
my $toggle = 'white';
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/itemtypecategory.pl
View File

@ -48,7 +48,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -164,8 +164,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/itemtypes.pl
View File

@ -50,7 +50,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -261,8 +261,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $page = $input->param('page') || 1;
my $first = ($page - 1) * $pagesize;

5
admin/itemtypesubcategory.pl
View File

@ -48,7 +48,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -164,8 +164,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

1
admin/koha2marclinks.pl
View File

@ -124,7 +124,6 @@ elsif ( $op eq 'add_validate' ) {
################## DEFAULT ##################################
}
else { # DEFAULT
my $env;
my $sth =
$dbh->prepare(
"Select tagfield,tagsubfield,liblibrarian,kohafield from marc_subfield_structure"

5
admin/letter.pl
View File

@ -47,7 +47,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -204,8 +204,7 @@ if ($op eq 'add_form') {
$template->param(search => 1);
$template->param(searchfield => $searchfield);
}
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data =();
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/marc_subfields_structure.pl
View File

@ -26,7 +26,7 @@ use C4::Context;
sub StringSearch {
my ( $env, $searchstring, $frameworkcode ) = @_;
my ( $searchstring, $frameworkcode ) = @_;
my $dbh = C4::Context->dbh;
$searchstring =~ s/\'/\\\'/g;
my @data = split( ' ', $searchstring );
@ -505,8 +505,7 @@ elsif ( $op eq 'delete_confirmed' ) {
################## DEFAULT ##################################
}
else { # DEFAULT
my $env;
my ( $count, $results ) = StringSearch( $env, $tagfield, $frameworkcode );
my ( $count, $results ) = StringSearch( $tagfield, $frameworkcode );
my $toggle = 1;
my @loop_data = ();
for (

6
admin/marctagstructure.pl
View File

@ -222,7 +222,6 @@ if ($op eq 'add_form') {
my $cnt=0;
if ($dspchoice) {
#here, user only wants used tags/subfields displayed
my $env;
$searchfield=~ s/\'/\\\'/g;
my @data=split(' ',$searchfield);
my $sth=$dbh->prepare("
@ -294,8 +293,7 @@ if ($op eq 'add_form') {
$sth->finish;
} else {
#here, normal old style : display every tags
my $env;
my ($count,$results)=StringSearch($env,$searchfield,$frameworkcode);
my ($count,$results)=StringSearch($searchfield,$frameworkcode);
$cnt = $count;
my $toggle=0;
my @loop_data = ();
@ -350,7 +348,7 @@ output_html_with_http_headers $input, $cookie, $template->output;
# the sub used for searches
#
sub StringSearch {
my ($env,$searchstring,$frameworkcode)=@_;
my ($searchstring,$frameworkcode)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);

5
admin/mediatype.pl
View File

@ -49,7 +49,7 @@ use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -165,8 +165,7 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

6
admin/printers.pl
View File

@ -46,7 +46,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -145,9 +145,7 @@ if ($op eq 'add_form') {
################## DEFAULT ##################################
} else { # DEFAULT
$template->param(else => 1);
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

5
admin/roadtype.pl
View File

@ -26,7 +26,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -140,9 +140,8 @@ if ($op eq 'add_form') {
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
my $env;
my @loop;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (roadtypeid => $results->[$i]{'roadtypeid'},

5
admin/systempreferences.pl
View File

@ -173,7 +173,7 @@ my %tabsysprefs;
$tabsysprefs{FinesLog} = "LOGFeatures";
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -429,8 +429,7 @@ if ($op eq 'add_form') {
#Adding tab management for system preferences
my $tab=$input->param('tab');
my $env;
my ($count,$results)=StringSearch($env,$searchfield,$tab);
my ($count,$results)=StringSearch($searchfield,$tab);
my $toggle=0;
my @loop_data = ();
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

4
admin/thesaurus.pl
View File

@ -158,7 +158,6 @@ if ($op eq 'add_form') {
if (!$search_category) {
$search_category=$category_list[0];
}
my $env;
my $sth = $dbh->prepare("select father,stdlib,category,hierarchy from bibliothesaurus where id=?");
$sth->execute($id);
my ($father,$stdlib,$category,$suphierarchy) = $sth->fetchrow_array;
@ -207,8 +206,7 @@ if ($op eq 'add_form') {
if (!$search_category) {
$search_category=$category_list[0];
}
my $env;
my ($count,$results)=searchauthority($env,$search_category,$branch,$searchstring,$offset,$pagesize);
my ($count,$results)=searchauthority($search_category,$branch,$searchstring,$offset,$pagesize);
my $toggle="white";
my @loop_data = ();
# builds value list

6
admin/z3950servers.pl
View File

@ -29,7 +29,7 @@ use C4::Auth;
use C4::Interface::CGI::Output;
sub StringSearch {
my ($env,$searchstring,$type)=@_;
my ($searchstring,$type)=@_;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@ -157,9 +157,7 @@ if ($op eq 'add_form') {
################## DEFAULT ##################################
} else { # DEFAULT
$template->param(else => 1);
my $env;
my ($count,$results)=StringSearch($env,$searchfield,'web');
my ($count,$results)=StringSearch($searchfield,'web');
my @loop;
my $toggle = 0;
for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){

2
catalogue/dictionary.pl
View File

@ -70,8 +70,6 @@ my $type=$input->param('type');
my $dbh = C4::Context->dbh;
my ($template, $loggedinuser, $cookie);
my $env;
my $startfrom=$input->param('startfrom');
$startfrom=0 if(!defined $startfrom);
my $searchdesc;

3
catalogue/moredetail.pl
View File

@ -74,9 +74,6 @@ $data->{'count'}=$count;
my $ordernum = GetOrderNumber($biblionumber,$bi);
my $order = GetOrder($ordernum);
my $env;
$env->{itemcount}=1;
$results[0]=$data;
foreach my $item (@items){

2
cataloguing/thesaurus_popup.pl
View File

@ -30,8 +30,6 @@ use C4::Output;
use C4::Authorities;
use C4::Interface::CGI::Output;
# get all the data ....
my %env;
my $input = new CGI;
my $result = $input->param('result');
my $search_string= $input->param('search_string');

3
cataloguing/value_builder/labs_theses.pl
View File

@ -59,9 +59,6 @@ return ($function_name,$res);
sub plugin {
my ($input) = @_;
my %env;
my $dbh=C4::Context->dbh;
my $query = new CGI;
my $op = $query->param('op');

3
cataloguing/value_builder/marc21_field_006.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_field_007.pl
View File

@ -63,9 +63,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_field_008.pl
View File

@ -75,9 +75,6 @@ function Clic$function_name(i) {
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_field_008_authorities.pl
View File

@ -76,9 +76,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_leader.pl
View File

@ -70,9 +70,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_leader_authorities.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_leader_book.pl
View File

@ -63,9 +63,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_leader_computerfile.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/marc21_leader_video.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_100.pl
View File

@ -65,9 +65,6 @@ function Clic$function_name(i) {
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index = $input->param('index');
my $result = $input->param('result');

3
cataloguing/value_builder/unimarc_field_105.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_106.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_110.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_115a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_115b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_116.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_117.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_120.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_121a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_121b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_122.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123d.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123e.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

2
cataloguing/value_builder/unimarc_field_123f.pl
View File

@ -62,9 +62,7 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123g.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123i.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_123j.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124c.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124d.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124e.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124f.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_124g.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_125.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_125a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_125b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_126.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_126a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_126b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_127.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_128a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_128b.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_128c.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_130.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_135a.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_140.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_141.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

7
cataloguing/value_builder/unimarc_field_225a.pl
View File

@ -27,11 +27,11 @@ It need :
isbn separator editor separator collection.
for example :
2204 -- Cerf -- Cogitatio fidei
2204 -- Cerf -- Le Magistère de l'Eglise
2204 -- Cerf -- Le Magist<EFBFBD>re de l'Eglise
2204 -- Cerf -- Lectio divina
2204 -- Cerf -- Lire la Bible
2204 -- Cerf -- Pour lire
2204 -- Cerf -- Sources chrétiennes
2204 -- Cerf -- Sources chr<EFBFBD>tiennes
when the user clic on ... on 225a line, the popup shows the list of collections from the selected editor
if the biblio has no isbn, then the search if done on editor only
@ -98,9 +98,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
my $editor_found = $input->param('editor_found');

3
cataloguing/value_builder/unimarc_field_4XX.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
sub plugin {
my ($input) = @_;
my %env;
my $dbh=C4::Context->dbh;
my $query = new CGI;
my $op = $query->param('op');

1
cataloguing/value_builder/unimarc_field_60X.pl
View File

@ -53,7 +53,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
my $dbh = C4::Context->dbh;
my $index= $input->param('index');
my $result= $input->param('result');

3
cataloguing/value_builder/unimarc_field_700-4.pl
View File

@ -69,9 +69,6 @@ return ($function_name,$res);
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $index2= $input->param('index2');
$index2=-1 unless($index2);

1
cataloguing/value_builder/unimarc_field_700_701_702.pl
View File

@ -53,7 +53,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
my $dbh = C4::Context->dbh;
# my $input = new CGI;
my $index= $input->param('index');

3
cataloguing/value_builder/unimarc_leader.pl
View File

@ -62,9 +62,6 @@ return ($function_name,$res);
}
sub plugin {
my ($input) = @_;
my %env;
# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');

2
circ/branchreserves.pl
View File

@ -73,7 +73,6 @@ my $todaysdate =
if ($item) {
my $messages;
my $nextreservinfo;
my %env;
my $waiting;
( $messages, $nextreservinfo ) = GlobalCancel( $item, $borrowernumber );
@ -115,7 +114,6 @@ my @getreserves = GetReservesForBranch($default);
foreach my $num (@getreserves) {
my %getreserv;
my %env;
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
my $getborrower = GetMemberDetails( $num->{'borrowernumber'} );
my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );

23
circ/circulation.pl
View File

@ -97,16 +97,8 @@ my $print = $query->param('print');
# $branchcookie = $query->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y');
# $printercookie = $query->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y');
# }
my %env
; # FIXME env is used as an "environment" variable. Could be dropped probably...
#
$env{'branchcode'} = $branch;
$env{'printer'} = $printer;
$env{'organisation'} = $organisation;
# $env{'queue'}=$printer;
my @datearr = localtime( time() );
@ -136,7 +128,7 @@ if ( $barcode eq '' && $query->param('charges') eq 'yes' ) {
}
if ( $print eq 'yes' && $borrowernumber ne '' ) {
printslip( \%env, $borrowernumber );
printslip( $borrowernumber );
$query->param( 'borrowernumber', '' );
$borrowernumber = '';
}
@ -149,7 +141,7 @@ my $borrowerslist;
my $message;
if ($findborrower) {
my ( $count, $borrowers ) =
BornameSearch( \%env, $findborrower, 'cardnumber', 'web' );
BornameSearch($findborrower, 'cardnumber', 'web' );
my @borrowers = @$borrowers;
if ( $#borrowers == -1 ) {
$query->param( 'findborrower', '' );
@ -171,7 +163,7 @@ my @lines;
if ($borrowernumber) {
$borrower = GetMemberDetails( $borrowernumber, 0 );
my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
my ( $od, $issue, $fines ) = borrdata2( $borrowernumber );
# Warningdate is the date that the warning starts appearing
my ( $today_year, $today_month, $today_day ) = Today();
@ -217,12 +209,12 @@ if ($barcode) {
$barcode = cuecatbarcodedecode($barcode);
my ( $datedue, $invalidduedate ) = fixdate( $year, $month, $day );
if ($issueconfirmed) {
AddIssue( \%env, $borrower, $barcode, $datedue, $cancelreserve );
AddIssue( $borrower, $barcode, $datedue, $cancelreserve );
$inprocess = 1;
}
else {
my ( $error, $question ) =
CanBookBeIssued( \%env, $borrower, $barcode, $year, $month, $day,
CanBookBeIssued( $borrower, $barcode, $year, $month, $day,
$inprocess );
my $noerror = 1;
my $noquestion = 1;
@ -250,13 +242,13 @@ if ($barcode) {
year => $year
);
if ( $noerror && ( $noquestion || $issueconfirmed ) ) {
AddIssue( \%env, $borrower, $barcode, $datedue );
AddIssue( $borrower, $barcode, $datedue );
$inprocess = 1;
}
}
# FIXME If the issue is confirmed, we launch another time borrdata2, now display the issue count after issue
my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
my ( $od, $issue, $fines ) = borrdata2( $borrowernumber );
$template->param(
issuecount => $issue,
);
@ -281,7 +273,6 @@ if ($borrowernumber) {
foreach my $num_res (@borrowerreserv) {
my %getreserv;
my %getWaitingReserveInfo;
my %env;
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
my ( $transfertwhen, $transfertfrom, $transfertto ) =

1
circ/currenttransfers.pl
View File

@ -78,7 +78,6 @@ foreach my $br ( keys %$branches ) {
if (@gettransfers) {
foreach my $num (@gettransfers) {
my %getransf;
my %env;
my ( $sent_year, $sent_month, $sent_day ) = split "-",
$num->{'datesent'};

9
circ/returns.pl
View File

@ -55,10 +55,8 @@ my ( $template, $librarian, $cookie ) = get_template_and_user(
#####################
#Global vars
my %env;
my $branches = GetBranches();
my $printers = GetPrinters( \%env );
my $printers = GetPrinters();
#my $branch = C4::Context->userenv?C4::Context->userenv->{'branch'}:"";
my $printer = C4::Context->userenv?C4::Context->userenv->{'branchprinter'}:"";
@ -67,11 +65,6 @@ my $printer = C4::Context->userenv?C4::Context->userenv->{'branchprinter'}:"";
# Some code to handle the error if there is no branch or printer setting.....
#
#$env{'branchcode'} = $branch;
$env{'printer'} = $printer;
$env{'queue'} = $printer;
# Set up the item stack ....
my %returneditems;
my %riduedate;

7
circ/selectbranchprinter.pl
View File

@ -34,10 +34,9 @@ use C4::Branch; # GetBranches
#general design stuff...
# try to get the branch and printer settings from the http....
my %env;
my $query = new CGI;
my $branches = GetBranches();
my $printers = GetPrinters( \%env );
my $printers = GetPrinters();
my $branch = $query->param('branch');
my $printer = $query->param('printer');
@ -52,10 +51,6 @@ my %cookie = $query->cookie('userenv');
my $oldbranch = $branch;
my $oldprinter = $printer;
$env{'branchcode'} = $branch;
$env{'printer'} = $printer;
$env{'queue'} = $printer;
# set up select options....
my $branchcount = 0;
my $printercount = 0;

Some files were not shown because too many files have changed in this diff Show More