}
}
-my $borrowernumber = $query->param('borrnumber');
-my $bornum = $query->param('borrnumber');
+my $borrowernumber = $query->param('borrnumber');
+my $bornum = $query->param('borrnumber');
# check and see if we should print
my $print=$query->param('print');
my $barcode = $query->param('barcode');
$print = 'yes';
}
if ($print eq 'yes' && $borrowernumber ne ''){
- printslip(\%env,$borrowernumber);
+ printslip(\%env,$borrowernumber);
$query->param('borrnumber','');
$borrowernumber='';
}
-
+
# get the borrower information.....
$env{'datedue'}=$datedue;
my @time=localtime(time);
my $date= (1900+$time[5])."-".($time[4]+1)."-".$time[3];
- ($iteminformation, $duedate, $rejected, $question, $questionnumber, $defaultanswer, $message)
+ ($iteminformation, $duedate, $rejected, $question, $questionnumber, $defaultanswer, $message)
= issuebook(\%env, $borrower, $barcode, \%responses, $date);
}
}
 <a href=branchtransfers.pl><img src="/images/button-transfers.gif" width="127" height="42" border="0" alt="Transfers"></a>
</td></tr></table>
<FONT SIZE=6><em>Circulation: Issues</em></FONT><br>
-<b>Branch:</b> $branches->{$branch}->{'branchname'}  
+<b>Branch:</b> $branches->{$branch}->{'branchname'}  
<b>Printer:</b> $printers->{$printer}->{'printername'} <br>
<a href=selectbranchprinter.pl>Change Settings</a></td>
<input type=hidden name=branch value=$branch>
 <a href=branchtransfers.pl><img src="/images/button-transfers.gif" width="127" height="42" border="0" alt="Transfers"></a>
</td></tr></table>
<FONT SIZE=6><em>Circulation: Issues</em></FONT><br>
-<b>Branch:</b> $branches->{$branch}->{'branchname'}  
+<b>Branch:</b> $branches->{$branch}->{'branchname'}  
<b>Printer:</b> $printers->{$printer}->{'printername'} <br>
<a href=selectbranchprinter.pl>Change Settings</a></td>
<input type=hidden name=branch value=$branch>
<table border=1 cellpadding=5 cellspacing=0 bgcolor="#dddddd">
<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage>
<font size=+2 color=red><b>Issuing Question</b></font></th></tr>
-<tr><td><table border=0 cellpadding=10><tr><td>
-Attempting to issue $iteminformation->{'title'}
+<tr><td><table border=0 cellpadding=10><tr><td>
+Attempting to issue $iteminformation->{'title'}
by $iteminformation->{'author'} to $borrower->{'firstname'} $borrower->{'surname'}.
<p>
$question
my $dd = $book->{'date_due'};
my $datedue = $book->{'date_due'};
#convert to nz style dates
- #this should be set with some kinda config variable
+ #this should be set with some kinda config variable
my @tempdate=split(/-/,$dd);
$dd="$tempdate[2]/$tempdate[1]/$tempdate[0]";
$datedue=~s/-//g;
<td bgcolor=$tcolor>$book->{'author'}</td>
<td bgcolor=$tcolor align=center>$book->{'dewey'} $book->{'subclass'}</td></tr>
EOF
- }
+ }
# FIXME - For small and private libraries, it'd be nice if this
# table included a "Return" link next to each book, so that you
# don't have to remember the book's bar code and type it in on the
my $dd = $book->{'date_due'};
my $datedue = $book->{'date_due'};
#convert to nz style dates
- #this should be set with some kinda config variable
+ #this should be set with some kinda config variable
my @tempdate=split(/-/,$dd);
$dd="$tempdate[2]/$tempdate[1]/$tempdate[0]";
$datedue=~s/-//g;
return $results[2];
} else {
return $barcode;
- }
-}
+ }
+}
sub fixdate {
my ($year, $month, $day) = @_;
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
$itemswaiting.="<tr><td><font color=red>$iteminformation->{'date_due'}</font></td><td bgcolor=$color><a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$iteminformation->{'barcode'}</a></td><td>$iteminformation->{'title'}</td></tr>\n";
- }
+ }
}
$itemswaiting.="</table>\n";
if ($query->param('module') ne 'returns'){
$flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}, See below</td></tr>\n";
} else {
- $flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
+ $flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
}
} else {
$flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
# title....
my $title = <<"EOF";
<FONT SIZE=6><em>Circulation: Returns</em></FONT><br>
-<b>Branch:</b> $branches->{$branch}->{'branchname'}  
-<b>Printer:</b> $printers->{$printer}->{'printername'}<br>
+<b>Branch:</b> $branches->{$branch}->{'branchname'}  <b>Printer:</b> $printers->{$printer}->{'printername'}<br>
<a href=selectbranchprinter.pl>Change Settings</a>
<input type=hidden name=branch value=$branch>
<input type=hidden name=printer value=$printer>
<input type=submit value="OK">
</form></center>
EOF
- }
- if ($res->{'ResFound'} eq "Reserved") {
+ } if ($res->{'ResFound'} eq "Reserved") {
my @da = localtime(time());
my $todaysdate = sprintf ("%0.2d", ($da[3]+1))."/".sprintf ("%0.2d", ($da[4]+1))."/".($da[5]+1900);
my $slip = <<"EOF";
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Date: $todaysdate;
-ITEM RESERVED:
-$iteminfo->{'title'} ($iteminfo->{'author'})
+ITEM RESERVED:$iteminfo->{'title'} ($iteminfo->{'author'})
barcode: $iteminfo->{'barcode'}
-itemtype: $iteminfo->{'itemtype'}
-
+itemtype: $iteminfo->{'itemtype'}
COLLECT AT: $branchname
BORROWER:
<font color='red' size='+2'>Reserve found:</font> Item: $iteminfo->{'title'} ($iteminfo->{'author'}) <a href=/cgi-bin/koha/detail.pl?bib=$iteminfo->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$barcode</a> <br>
for $name ($number) to be collected at <b>$branchname</b>.
<table cellpadding=5 cellspacing=0>
-<tr><td valign="top">Change status to waiting and print
-<a href="" onClick='alert(document.forms[0].resslip.value); return false'>slip</a>?: </td>
+<tr><td valign="top">Change status to waiting and print<a href="" onClick='alert(document.forms[0].resslip.value); return false'>slip</a>?: </td>
<td valign="top">
<form method=post action='returns.pl'>
$ritext
<tr><td colspan=2 bgcolor=$headerbackgroundcolor background=$backgroundimage>
<font color=black><b>Borrower Information</b></font></td></tr>
<tr><td colspan=2>
-<a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'}
-onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a>
+<a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'}onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a>
$borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br>
</td></tr>
EOF
$displayflag = "<font color=red>$flag</font>";
} else {
$displayflag = $flag;
- }
- if ($flag eq 'CHARGES') {
+ } if ($flag eq 'CHARGES') {
$flaginfotext.= <<"EOF";
<tr><td valign=top>$displayflag</td>
-<td bgcolor=$color><b>$flags->{$flag}->{'message'}</b>
-<a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'}
-onClick="openWindow(this, 'Payment', 480,640)">Payment</a></td></tr>
+<td bgcolor=$color><b>$flags->{$flag}->{'message'}</b><a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'}onClick="openWindow(this, 'Payment', 480,640)">Payment</a></td></tr>
EOF
} elsif ($flag eq 'WAITING') {
my $itemswaiting='';
foreach my $item (@$items) {
my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
$itemswaiting .= <<"EOF";
-<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra
-onClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a>
-$iteminformation->{'title'}
-($branches->{$iteminformation->{'holdingbranch'}}->{'branchname'})<br>
+<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intraonClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a>$iteminformation->{'title'}($branches->{$iteminformation->{'holdingbranch'}}->{'branchname'})<br>
EOF
}
$flaginfotext.="<tr><td valign=top>$displayflag</td><td>$itemswaiting</td></tr>\n";
my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
$itemsoverdue .= <<"EOF";
<font color=red>$item->{'date_due'}</font>
-<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra
-onClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a>
-$iteminformation->{'title'}
+<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intraonClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a>$iteminformation->{'title'}
<br>
EOF
}
$borrowertable .= << "EOF";
<tr><td bgcolor=$headerbackgroundcolor background=$backgroundimage colspan=2>
<b>Flags</b></td></tr>
-$flaginfotext
-EOF
+$flaginfotextEOF
}
$borrowertable .= "</table>";
}
return $results[2];
} else {
return $barcode;
- }
-}
-
+ }}
use DBI;
-# this is a reorganisation of circulationold.pl
+# this is a reorganisation of circulationold.pl
# dividing it up into three scripts......
# this will be the first one that chooses branch and printer settings....
EOF
} else {
my ($printer) = keys %$printers;
-}
+}
if ($branchcount>1) {
$branchform=<<"EOF";
EOF
} else {
my ($branch) = keys %$branches;
-}
+}
use MARC::File::USMARC;
my $file = MARC::File::USMARC->in( $filename );
-
+
while ( my $marc = $file->next() ) {
# Do something
}
=head1 EXPORT
-None.
+None.
=head1 METHODS
=head1 LICENSE
-This code may be distributed under the same terms as Perl itself.
+This code may be distributed under the same terms as Perl itself.
Please note that these modules are not products of or supported by the
employers of the various contributors to the code.
use MARC::Record;
use C4::Biblio;
use C4::Catalogue;
-
+
my $query=new CGI;
-
+
my $biblionumber=$query->param('bib');
my $tag=$query->param('tag');
if (! defined $tag) { $tag='2XX';}
# print $field->tag(), " ", $field->indicator(1),$field->indicator(2), "subf: ", $subf[$i][0]," =",$subf[$i][1]," <-- \n";
}
}
-
+
# fill template with arrays
$template->param(biblionumber => $biblionumber);
$template->param(marc =>\@loop_data);
print "Content-Type: text/html\n\n", $template->output;
-
+
}
use MARC::File::USMARC;
my $file = MARC::File::USMARC::in( $filename );
-
+
while ( my $marc = $file->next() ) {
# Do something
}
=head1 EXPORT
-None.
+None.
=head1 METHODS
# Shouldn't be any non-digits anywhere in any directory entry
my @directory = unpack( "A3 A4 A5" x $nfields, $dir );
my @bad = grep /\D/, @directory;
- if ( @bad ) {
+ if ( @bad ) {
return $marc->_gripe( "Non-numeric entries in the tag directory: ", join( ", ", map { "\"$_\"" } @bad ) );
}
=head2 update_leader()
If any changes get made to the MARC record, the first 5 bytes of the
-leader (the length) will be invalid. This function updates the
+leader (the length) will be invalid. This function updates the
leader with the correct length of the record as it would be if
written out to a file.
$dataend += $len;
}
- my $baseaddress =
+ my $baseaddress =
LEADER_LEN + # better be 24
( @directory * DIRECTORY_ENTRY_LEN ) +
# all the directory entries
1; # end-of-field marker
- my $total =
+ my $total =
$baseaddress + # stuff before first field
$dataend + # Length of the fields
1; # End-of-record marker
=head1 LICENSE
-This code may be distributed under the same terms as Perl itself.
+This code may be distributed under the same terms as Perl itself.
Please note that these modules are not products of or supported by the
employers of the various contributors to the code.
#!/usr/bin/perl
# This script loops through each overdue item, determines the fine,
-# and updates the total amount of fines due by each user. It relies on
+# and updates the total amount of fines due by each user. It relies on
# the existence of /tmp/fines, which is created by ???
# Doesnt really rely on it, it relys on being able to write to /tmp/
# It creates the fines file
#
for (my $i=0;$i<$numOverdueItems;$i++){
my @dates=split('-',$data->[$i]->{'date_due'});
- my $date2=Date_DaysSince1BC($dates[1],$dates[2],$dates[0]);
+ my $date2=Date_DaysSince1BC($dates[1],$dates[2],$dates[0]);
my $due="$dates[2]/$dates[1]/$dates[0]";
my $borrower=BorType($data->[$i]->{'borrowernumber'});
if ($date2 <= $date){
my ($amount,$type,$printout)=
CalcFine($data->[$i]->{'itemnumber'},
$borrower->{'categorycode'},
- $difference);
+ $difference);
if ($amount > $maxFine){
$amount=$maxFine;
}
}
print "$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n";
} else { # FIXME
- # if this is really useless, the whole else clause should be
- # deleted.
+ # if this is really useless, the whole else clause should be
+ # deleted.
#
# print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n";
}
#
my $borrower=BorType($data->[$i]->{'borrowernumber'});
if ($borrower->{'cardnumber'} ne ''){
- my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
+ my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
my $dbh = C4::Context->dbh;
my $env;
my $accountno=C4::Circulation::Circ2::getnextacctno($env,$data->[$i]->{'borrowernumber'},$dbh);
my $dbh = C4::Context->dbh;
my $query = "Select * from categories where (categorycode like 'L%' or categorycode like 'F%'
-or categorycode like 'S%' or categorycode like 'O%' or categorycode like 'H%') and (categorycode <>'HR'
+or categorycode like 'S%' or categorycode like 'O%' or categorycode like 'H%') and (categorycode <>'HR'
and categorycode <> 'ST')";
my $sth=$dbh->prepare($query);
my $sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
-
+
$temp=substr($data->{'categorycode'},1,1);
- $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
-
+
}
-$query = "Select * from categories where (categorycode like 'V%') and (categorycode <>'HR'
+$query = "Select * from categories where (categorycode like 'V%') and (categorycode <>'HR'
and categorycode <> 'ST')";
my $sth=$dbh->prepare($query); # FIXME - There's already a $sth in this scope
$sth2->finish;
my $temp=substr($data->{'categorycode'},1,1);
- $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2->execute;
$sth2->finish;
- $query="update borrowers set categorycode='W' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='W' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2->execute;
$sth2->finish;
- $query="update borrowers set categorycode='I' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='I' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2->execute;
$sth2->finish;
- $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2->execute;
$sth2->finish;
- $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth2->execute;
$sth2->finish;
- $query="update borrowers set categorycode='L' where categorycode='$data->{'categorycode'}'";
+ $query="update borrowers set categorycode='L' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
my $sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
-
- $query="update borrowers set categorycode='P' where categorycode='$data->{'categorycode'}'";
+
+ $query="update borrowers set categorycode='P' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
$sth->finish;
-my @queryValues =
+my @queryValues =
("insert into categories values ('E','Senior Citizen',5,99,0,'A',0,0,0,99,1)",
"insert into categories values ('A','Adult',5,99,0,'A',0,0,0,99,1)",
"insert into categories values ('C','Child',5,16,0,'A',0,0,0,99,0)",
"insert into categories values ('I','Institution',5,99,0,'A',0,0,0,99,0)",
"insert into categories values ('P','Privileged',5,99,0,'A',0,0,0,99,0)",
"insert into categories values ('L','Library',5,99,0,'A',0,0,0,99,0)"
- );
+ );
foreach $query (@queryValues) {
$sth=$dbh->prepare($query);
my $number;
my $i=92000;
while (my $data=$sth->fetchrow_hashref){
- if ($data->{'ordernumber'} != $number){
+ if ($data->{'ordernumber'} != $number){
} else {
my $query="update aqorders set ordernumber=$i where ordernumber=$data->{'ordernumber'} and biblionumber=$data->{'biblionumber'}";
my $sth2=$dbh->prepare($query);
my $count=0;
my $basket='HLT-';
for (my $i=1;$i<59;$i++){
- my $query = "Select authorisedby,entrydate from aqorders where booksellerid='$i'";
- $query.=" group by authorisedby,entrydate order by entrydate";
+ my $query = "Select authorisedby,entrydate from aqorders where booksellerid='$i'";
+ $query.=" group by authorisedby,entrydate order by entrydate";
my $sth=$dbh->prepare($query);
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
$sth2->execute;
$sth2->finish;
$bibitemno++
-
+
}
$sth->finish;
use CGI;
use C4::Search;
use C4::Auth;
-
+
my $query=new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
my $i=0;
print center();
-my $dewey = $data->{'dewey'};
-$dewey =~ s/0+$//;
-if ($dewey eq "000.") { $dewey = "";};
-if ($dewey < 10){$dewey='00'.$dewey;}
-if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
+my $dewey = $data->{'dewey'};
+$dewey =~ s/0+$//;
+if ($dewey eq "000.") { $dewey = "";};
+if ($dewey < 10){$dewey='00'.$dewey;}
+if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
if ($dewey <= 0){
- $dewey='';
-}
+ $dewey='';
+}
$dewey=~ s/\.$//;
print <<printend
<br>
</TR>
<tr VALIGN=TOP >
<TD width=210 >
-<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
-<INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
+<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
+<INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<br>
<FONT SIZE=2 face="arial, helvetica">
<b>Biblionumber:</b> $bib<br>
;
if ($type eq 'catmain'){
print "<br><a href=/cgi-bin/koha/maint/shiftbib.pl?bi=$data->{'biblioitemnumber'}&bib=$data->{'biblionumber'}>Shift to another biblio</a>";
-
+
}
print <<printend
for (my $i=0;$i<$count;$i++){
print <<printend
<img src="/images/holder.gif" width=16 height=300 align=left>
-<TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width=220 >
+<TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width=220 >
<TR VALIGN=TOP>
<td bgcolor="99cc33" background="/images/background-mem.gif"><B>BARCODE $items[$i]->{'barcode'}</b></TD>
</TR>
<input type=hidden name=bibitem value=$bi>
<input type=hidden name=item value=$items[$i]->{'itemnumber'}>
<input type=hidden name=type value=$type>
-<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
-<INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
+<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
+<INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<br>
printend
;
$template->param(BIBLIOITEMS => \@data);
$template->param(loggedinuser => $loggedinuser);
-print "Content-Type: text/html\n\n", $template->output;
+print "Content-Type: text/html\n\n", $template->output;
use strict;
require Exporter;
-use C4::Output;
+use C4::Output;
use CGI;
use C4::Auth;
use C4::Search;
use C4::Auth;
use C4::Output; # now contains gettemplate
-
+
my $query=new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
$issue->{'status'} .= "Reserved";
}
my ($charges, $itemtype) = calc_charges(undef, undef, $issue->{'itemnumber'}, $borrowernumber);
- $issue->{'charges'} = $charges;
+ $issue->{'charges'} = $charges;
push @issuedat, $issue;
$count++;
-}
+}
-$template->param(ISSUES => \@issuedat);
-$template->param(issues_count => $count);
+$template->param(ISSUES => \@issuedat);
+$template->param(issues_count => $count);
# now the reserved items....
my ($rcount, $reserves) = FindReserves(undef, $borrowernumber);
$template->param(waiting_count => $wcount);
$template->param(loggedinuser => $loggedinuser);
-print "Content-Type: text/html\n\n", $template->output;
+print "Content-Type: text/html\n\n", $template->output;
# do something if it doesnt work....
warn "Error sending mail: $Mail::Sendmail::error \n";
}
-}
+}
my $template = gettemplate("opac-userupdate.tmpl", "opac");
$template->param(loggedinuser => $loggedinuser);
-print "Content-Type: text/html\n\n", $template->output;
+print "Content-Type: text/html\n\n", $template->output;
values ('$bornum','$account->{'max(accountno)'}','$itemnum',now(),'$amount','Writeoff','W')";
$sth=$dbh->prepare($query);
$sth->execute;
- $sth->finish;
+ $sth->finish;
# print $query;
UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum);
}
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-$done = "Issues";
+$done = "Issues";
my $i=0;
my $bcard;
-while ($done eq "Issues") {
+while ($done eq "Issues") {
my @args=('borrwraper.pl',@ARGV,$bcard);
my $time=localtime(time);
open (FILE,">>/tmp/$<_$ARGV[6]");
$done=$exit_value;
}
-}
+}
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-$done = "returns";
+$done = "returns";
my $i=0;
-while ($done eq "returns") {
+while ($done eq "returns") {
my @args=('doreturns.pl',@ARGV);
eval{system(@args)};
$exit_value = $? >> 8;
$done=$exit_value;
}
-}
+}
use strict;
#use C4::Security;
-#use C4::Database;
-use C4::Circulation::Main;
-#use C4::Circulation::Issues;
-#use C4::Circulation::Returns;
-#use C4::Circulation::Renewals;
-#use C4::Circulation::Borrower;
-#use C4::Reserves;
-use C4::InterfaceCDK;
+#use C4::Database;
+use C4::Circulation::Main;
+#use C4::Circulation::Issues;
+#use C4::Circulation::Returns;
+#use C4::Circulation::Renewals;
+#use C4::Circulation::Borrower;
+#use C4::Reserves;
+use C4::InterfaceCDK;
#use C4::Security;
$env{'telnet'} = "Y";
-#start interface
-&startint(\%env,'Circulation');
-getbranch(\%env);
-getprinter(\%env);
-my $donext = 'Circ';
-my $reason;
-my $data;
-while ($donext ne 'Quit') {
- if ($donext eq "Circ") {
- ($reason,$data) = menu(\%env,'console','Circulation',
- ('Issues','Returns','Select Branch','Select Printer'));
- } else {
- $data = $donext;
- }
- if ($data eq 'Issues') {
+#start interface
+&startint(\%env,'Circulation');
+getbranch(\%env);
+getprinter(\%env);
+my $donext = 'Circ';
+my $reason;
+my $data;
+while ($donext ne 'Quit') {
+ if ($donext eq "Circ") {
+ ($reason,$data) = menu(\%env,'console','Circulation',
+ ('Issues','Returns','Select Branch','Select Printer'));
+ } else {
+ $data = $donext;
+ }
+ if ($data eq 'Issues') {
my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}","$env{'lasttime'}");
open (FILE,">>/tmp/$<_$$");
my $time=localtime(time);
print FILE "Start issues $time \n";
close FILE;
system(@args);
- } elsif ($data eq 'Returns') {
+ } elsif ($data eq 'Returns') {
my @args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}");
open (FILE,">>/tmp/$<_$$");
my $time=localtime(time);
print FILE "Start returns $time \n";
close FILE;
system(@args);
-# $donext=Returns(\%env); #C4::Circulation::Returns
- } elsif ($data eq 'Select Branch') {
- getbranch(\%env);
- } elsif ($data eq 'Select Printer') {
- getprinter(\%env);
-# } elsif ($data eq 'Borrower Enquiries') {
- # $donext=Borenq($env); #C4::Circulation::Borrower - conversion
-# } elsif ($data eq 'Reserves'){
-# $donext=EnterReserves(\%env); #C4::Reserves
- } elsif ($data eq 'Quit') {
- $donext = $data;
- &endint(\%env);
+# $donext=Returns(\%env); #C4::Circulation::Returns
+ } elsif ($data eq 'Select Branch') {
+ getbranch(\%env);
+ } elsif ($data eq 'Select Printer') {
+ getprinter(\%env);
+# } elsif ($data eq 'Borrower Enquiries') {
+ # $donext=Borenq($env); #C4::Circulation::Borrower - conversion
+# } elsif ($data eq 'Reserves'){
+# $donext=EnterReserves(\%env); #C4::Reserves
+ } elsif ($data eq 'Quit') {
+ $donext = $data;
+ &endint(\%env);
die;
- }
+ }
}
- &endint(\%env);
+ &endint(\%env);
die;
@katalog=`ls -R`;
$plik=$ARGV[0];
- if ($plik eq ''){
- $plik="koha.gettext.c";
+ if ($plik eq ''){
+ $plik="koha.gettext.c";
}
} else {
my $txt =<<TXT;
<HTML>
-<META http-equiv=Content-Type content="text/thml;
+<META http-equiv=Content-Type content="text/thml;
charset=${\(gettext('iso-8859-1'))}">
TXT
$dane=~s/<html>/$txt/i;
-
+
$dane=~s/%/&zamien/ges; # change % (specjal symbol)
$dane=~s/\\\'/&zamien/ges; # change \'
$dane=~s/\\\"/&zamien/ges; # change \"
-
+
# take out graphics
$dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges;
-
+
# $dane=~s/messenger\s*\((.*?)\)\s*[\}\{;]/&zamien($1)/ges;
# $dane=~s/\.write(ln)?\s*\((.*?)\)\s*[\};]/&zamien($2)/ges;
# take out string in field alt
$dane=~s/alt\s*=\s*[\"]([^\"]*)[\"]/&zamien($1)/iges;
$dane=~s/alt\s*=\s*[\']([^\']*)[\']/&zamien($1)/iges;
-
+
$dane=~s/<!--.*?-->/&zamien/ges;
$dane=~s/<script.*?<\/script>/&zamien/iges;