Bugzilla – Attachment 13484 Details for
Bug 9098
Replace tabulations by spaces in opac-user.pl
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Replace tabulations by spaces in opac-user.pl
0001-Replace-tabulations-by-spaces-in-opac-user.pl.patch (text/plain), 6.05 KB, created by
Koha Team University Lyon 3
on 2012-11-16 11:34:47 UTC
(
hide
)
Description:
Replace tabulations by spaces in opac-user.pl
Filename:
MIME Type:
Creator:
Koha Team University Lyon 3
Created:
2012-11-16 11:34:47 UTC
Size:
6.05 KB
patch
obsolete
>From ce3b195b6f7183fbd16124532201901fc3ea2aa1 Mon Sep 17 00:00:00 2001 >From: Lyon3 Team <koha@univ-lyon3.fr> >Date: Fri, 16 Nov 2012 10:25:21 +0100 >Subject: [PATCH] Replace tabulations by spaces in opac-user.pl > >There were a bunch of tabulations from line 157 and followings >--- > opac/opac-user.pl | 106 ++++++++++++++++++++++++++-------------------------- > 1 files changed, 53 insertions(+), 53 deletions(-) > >diff --git a/opac/opac-user.pl b/opac/opac-user.pl >index eee3d38..0ed354a 100755 >--- a/opac/opac-user.pl >+++ b/opac/opac-user.pl >@@ -154,58 +154,58 @@ my @issuedat; > my $itemtypes = GetItemTypes(); > my $issues = GetPendingIssues($borrowernumber); > if ($issues){ >- foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) { >- # check for reserves >- my ( $restype, $res, undef ) = CheckReserves( $issue->{'itemnumber'} ); >- if ( $restype ) { >- $issue->{'reserved'} = 1; >- } >- >- my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); >- my $charges = 0; >- foreach my $ac (@$accts) { >- if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) { >- $charges += $ac->{'amountoutstanding'} >- if $ac->{'accounttype'} eq 'F'; >- $charges += $ac->{'amountoutstanding'} >- if $ac->{'accounttype'} eq 'L'; >- } >- } >- $issue->{'charges'} = $charges; >- >- # get publictype for icon >- >- my $publictype = $issue->{'publictype'}; >- $issue->{$publictype} = 1; >- >- # check if item is renewable >- my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} ); >- ($issue->{'renewcount'},$issue->{'renewsallowed'},$issue->{'renewsleft'}) = GetRenewCount($borrowernumber, $issue->{'itemnumber'}); >+ foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) { >+ # check for reserves >+ my ( $restype, $res, undef ) = CheckReserves( $issue->{'itemnumber'} ); >+ if ( $restype ) { >+ $issue->{'reserved'} = 1; >+ } >+ >+ my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); >+ my $charges = 0; >+ foreach my $ac (@$accts) { >+ if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) { >+ $charges += $ac->{'amountoutstanding'} >+ if $ac->{'accounttype'} eq 'F'; >+ $charges += $ac->{'amountoutstanding'} >+ if $ac->{'accounttype'} eq 'L'; >+ } >+ } >+ $issue->{'charges'} = $charges; >+ >+ # get publictype for icon >+ >+ my $publictype = $issue->{'publictype'}; >+ $issue->{$publictype} = 1; >+ >+ # check if item is renewable >+ my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} ); >+ ($issue->{'renewcount'},$issue->{'renewsallowed'},$issue->{'renewsleft'}) = GetRenewCount($borrowernumber, $issue->{'itemnumber'}); > if($status && C4::Context->preference("OpacRenewalAllowed")){ > $issue->{'status'} = $status; > } >- $issue->{'too_many'} = 1 if $renewerror and $renewerror eq 'too_many'; >- $issue->{'on_reserve'} = 1 if $renewerror and $renewerror eq 'on_reserve'; >- >- if ( $issue->{'overdue'} ) { >- push @overdues, $issue; >- $overdues_count++; >- $issue->{'overdue'} = 1; >- } >- else { >- $issue->{'issued'} = 1; >- } >- # imageurl: >- my $itemtype = $issue->{'itemtype'}; >- if ( $itemtype ) { >- $issue->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{$itemtype}->{'imageurl'} ); >- $issue->{'description'} = $itemtypes->{$itemtype}->{'description'}; >- } >- push @issuedat, $issue; >- $count++; >- >- my $isbn = GetNormalizedISBN($issue->{'isbn'}); >- $issue->{normalized_isbn} = $isbn; >+ $issue->{'too_many'} = 1 if $renewerror and $renewerror eq 'too_many'; >+ $issue->{'on_reserve'} = 1 if $renewerror and $renewerror eq 'on_reserve'; >+ >+ if ( $issue->{'overdue'} ) { >+ push @overdues, $issue; >+ $overdues_count++; >+ $issue->{'overdue'} = 1; >+ } >+ else { >+ $issue->{'issued'} = 1; >+ } >+ # imageurl: >+ my $itemtype = $issue->{'itemtype'}; >+ if ( $itemtype ) { >+ $issue->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{$itemtype}->{'imageurl'} ); >+ $issue->{'description'} = $itemtypes->{$itemtype}->{'description'}; >+ } >+ push @issuedat, $issue; >+ $count++; >+ >+ my $isbn = GetNormalizedISBN($issue->{'isbn'}); >+ $issue->{normalized_isbn} = $isbn; > > # My Summary HTML > if (my $my_summary_html = C4::Context->preference('OPACMySummaryHTML')){ >@@ -217,7 +217,7 @@ if ($issues){ > $issue->{biblionumber} ? $my_summary_html =~ s/{BIBLIONUMBER}/$issue->{biblionumber}/g : $my_summary_html =~ s/{BIBLIONUMBER}//g; > $issue->{MySummaryHTML} = $my_summary_html; > } >- } >+ } > } > $template->param( ISSUES => \@issuedat ); > $template->param( issues_count => $count ); >@@ -341,12 +341,12 @@ if (C4::Context->preference('BakerTaylorEnabled')) { > if (C4::Context->preference("OPACAmazonCoverImages") or > C4::Context->preference("GoogleJackets") or > C4::Context->preference("BakerTaylorEnabled") or >- C4::Context->preference("SyndeticsCoverImages")) { >+ C4::Context->preference("SyndeticsCoverImages")) { > $template->param(JacketImages=>1); > } > > if ( GetMessagesCount( $borrowernumber, 'B' ) ) { >- $template->param( bor_messages => 1 ); >+ $template->param( bor_messages => 1 ); > } > > if ( $borr->{'opacnote'} ) { >@@ -357,7 +357,7 @@ if ( $borr->{'opacnote'} ) { > } > > $template->param( >- bor_messages_loop => GetMessages( $borrowernumber, 'B', 'NONE' ), >+ bor_messages_loop => GetMessages( $borrowernumber, 'B', 'NONE' ), > waiting_count => $wcount, > patronupdate => $patronupdate, > OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"), >-- >1.7.2.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 9098
:
13484
|
13485
|
13508
|
13582
|
13683