[Koha-cvs] koha C4/Members.pm koha-tmpl/intranet-tmpl/ccfl... [dev_week]
Kyle Hall
kyle.m.hall at gmail.com
Tue Jun 12 18:49:41 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Kyle Hall <kylemhall> 07/06/12 16:49:41
Modified files:
C4 : Members.pm
koha-tmpl/intranet-tmpl/ccfls/en/members: memberentry.tmpl
members : memberentry.pl
opac : opac-readingrecord.pl
updater : updatedatabase
Log message:
Added max_issues_history to borrowers table. Max_issues_history defines
how many items will show up in the OPAC Reading History page. So, if
max_issues_history is set to 5, the page will only list the last 5 items
the borrower has returned.
If max_issues_history is set to 0, then history is unlimited,
i.e. The same as before max_issues_history was added.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.6.2.6.2.2&r2=1.6.2.6.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/intranet-tmpl/ccfls/en/members/memberentry.tmpl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.11&r2=1.1.2.1.2.12
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.13.2.3&r2=1.5.2.13.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-readingrecord.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.6.2.6.2.2&r2=1.6.2.6.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/updater/updatedatabase?cvsroot=koha&only_with_tag=dev_week&r1=1.100.2.43.2.11&r2=1.100.2.43.2.12
Patches:
Index: C4/Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.6.2.6.2.2
retrieving revision 1.6.2.6.2.3
diff -u -b -r1.6.2.6.2.2 -r1.6.2.6.2.3
--- C4/Members.pm 19 Apr 2007 20:13:40 -0000 1.6.2.6.2.2
+++ C4/Members.pm 12 Jun 2007 16:49:40 -0000 1.6.2.6.2.3
@@ -125,7 +125,7 @@
initials='$data{'initials'}',physstreet='$data{'physstreet'}',ethnicity='$data{'ethnicity'}',
gonenoaddress='$data{'gna'}',lost='$data{'lost'}',debarred='$data{'debarred'}',
textmessaging='$data{'textmessaging'}', branchcode = '$data{'branchcode'}',
- zipcode = '$data{'zipcode'}',homezipcode='$data{'homezipcode'}', sort1='$data{'sort1'}', sort2='$data{'sort2'}'
+ zipcode = '$data{'zipcode'}',homezipcode='$data{'homezipcode'}', sort1='$data{'sort1'}', sort2='$data{'sort2'}', max_issues_history='$data{'max_issues_history'}'
where borrowernumber=$data{'borrowernumber'}";
my $sth=$dbh->prepare($query);
$sth->execute;
Index: koha-tmpl/intranet-tmpl/ccfls/en/members/memberentry.tmpl
===================================================================
RCS file: /sources/koha/koha/koha-tmpl/intranet-tmpl/ccfls/en/members/Attic/memberentry.tmpl,v
retrieving revision 1.1.2.1.2.11
retrieving revision 1.1.2.1.2.12
diff -u -b -r1.1.2.1.2.11 -r1.1.2.1.2.12
--- koha-tmpl/intranet-tmpl/ccfls/en/members/memberentry.tmpl 22 May 2007 14:40:29 -0000 1.1.2.1.2.11
+++ koha-tmpl/intranet-tmpl/ccfls/en/members/memberentry.tmpl 12 Jun 2007 16:49:40 -0000 1.1.2.1.2.12
@@ -412,6 +412,17 @@
<tr><th><label for="borrowernotes">Ciculation Note:</label><p>(Appears For Librarians Only)</p> </th><td colspan="4"><textarea id="borrowernotes" name="borrowernotes" cols="30" rows="3"><!-- TMPL_VAR NAME="borrowernotes" --></textarea></td></tr>
<tr><th><label for="textmessaging">Patron Note:</label><p><font color="red">(Appears for Patron When Logged Into OPAC)</font></p></th><td colspan="4"><textarea id="textmessaging" name="textmessaging" cols="30" rows="3"><!-- TMPL_VAR NAME="textmessaging" --></textarea></td></tr>
+ <tr>
+ <th>
+ <label for="max_issues_history">Maximum Issues History:</label>
+ <p>(Maximum number of previous issues borrower can view from OPAC. 0 is No Limit.)</p>
+ </th>
+ <td colspan="4">
+ <input id="max_issues_history" name="max_issues_history" value="<!-- TMPL_VAR NAME="max_issues_history" -->" />
+ </td>
+ </tr>
+
+
</table>
</div>
Index: members/memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.5.2.13.2.3
retrieving revision 1.5.2.13.2.4
diff -u -b -r1.5.2.13.2.3 -r1.5.2.13.2.4
--- members/memberentry.pl 15 May 2007 15:24:57 -0000 1.5.2.13.2.3
+++ members/memberentry.pl 12 Jun 2007 16:49:40 -0000 1.5.2.13.2.4
@@ -2,7 +2,7 @@
# NOTE: This file uses standard 8-space tabs
# DO NOT SET TAB SIZE TO 4
-# $Id: memberentry.pl,v 1.5.2.13.2.3 2007/05/15 15:24:57 kylemhall Exp $
+# $Id: memberentry.pl,v 1.5.2.13.2.4 2007/06/12 16:49:40 kylemhall Exp $
#script to set up screen for modification of borrower details
#written 20/12/99 by chris at katipo.co.nz
@@ -350,6 +350,7 @@
altphone => $data->{'altphone'},
altnotes => $data->{'altnotes'},
borrowernotes => $data->{'borrowernotes'},
+ max_issues_history => $data->{'max_issues_history'},
flagloop => \@flagdata,
relshiploop => \@relshipdata,
"title_".$data->{'title'} => " SELECTED ",
Index: opac/opac-readingrecord.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-readingrecord.pl,v
retrieving revision 1.6.2.6.2.2
retrieving revision 1.6.2.6.2.3
diff -u -b -r1.6.2.6.2.2 -r1.6.2.6.2.3
--- opac/opac-readingrecord.pl 20 Sep 2006 14:17:32 -0000 1.6.2.6.2.2
+++ opac/opac-readingrecord.pl 12 Jun 2007 16:49:40 -0000 1.6.2.6.2.3
@@ -55,6 +55,12 @@
} else {
$limit=50;
}
+
+my $max_issues_history = $borr->{'max_issues_history'};
+if ( $max_issues_history ) {
+ $limit = $max_issues_history;
+}
+
my ($count,$issues)=allissues($borrowernumber,$order2,$limit);
# add the row parity
Index: updater/updatedatabase
===================================================================
RCS file: /sources/koha/koha/updater/updatedatabase,v
retrieving revision 1.100.2.43.2.11
retrieving revision 1.100.2.43.2.12
diff -u -b -r1.100.2.43.2.11 -r1.100.2.43.2.12
--- updater/updatedatabase 17 May 2007 18:43:50 -0000 1.100.2.43.2.11
+++ updater/updatedatabase 12 Jun 2007 16:49:41 -0000 1.100.2.43.2.12
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: updatedatabase,v 1.100.2.43.2.11 2007/05/17 18:43:50 kylemhall Exp $
+# $Id: updatedatabase,v 1.100.2.43.2.12 2007/06/12 16:49:41 kylemhall Exp $
# Database Updater
# This script checks for required updates to the database.
@@ -671,6 +671,13 @@
},
],
borrowers => [
+ { field => 'max_issues_history',
+ type => 'smallint(6)',
+ null => 'NOT NULL',
+ default => '0',
+ after => 'sort2',
+ comment=> 'Maximum number of previous issues viewable by a borrower logged into the OPAC. 0 means no limit.',
+ },
{ field => 'B_email',
type => 'text',
null => 'NULL',
@@ -1771,6 +1778,14 @@
exit;
# $Log: updatedatabase,v $
+# Revision 1.100.2.43.2.12 2007/06/12 16:49:41 kylemhall
+# Added max_issues_history to borrowers table. Max_issues_history defines
+# how many items will show up in the OPAC Reading History page. So, if
+# max_issues_history is set to 5, the page will only list the last 5 items
+# the borrower has returned.
+# If max_issues_history is set to 0, then history is unlimited,
+# i.e. The same as before max_issues_history was added.
+#
# Revision 1.100.2.43.2.11 2007/05/17 18:43:50 kylemhall
# *** empty log message ***
#
More information about the Koha-cvs
mailing list