[Koha-patches] [PATCH] Modification of "Expected on" date for serials.
David Birmingham
dbirmingham at ptfs.com
Fri Oct 30 18:24:38 CET 2009
When a serial status is changed to "Arrived" or "Claimed", the "Expected on"
date is changed to the current date.
---
.../prog/en/modules/serials/serials-edit.tmpl | 10 +++++++---
serials/serials-edit.pl | 2 ++
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tmpl
index a65284a..e77cbcf 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tmpl
@@ -72,6 +72,10 @@ function HideItems(index,labelindex) {
label = document.getElementById(labelindex);
label.style.display='block';
}
+function changeExpectedDate(adate) {
+ var elem = document.getElementById("expecteddate");
+ elem.value = adate;
+}
function CloneSubfield(index){
var original = document.getElementById(index); //original <div>
var clone = original.cloneNode(true);
@@ -197,7 +201,7 @@ function CloneSubfield(index){
<input type="text" name="publisheddate" value="<!-- TMPL_VAR name="publisheddate" -->" size="10" maxlength="15" />
</td>
<td>
- <input type="text" name="planneddate" value="<!-- TMPL_VAR name="planneddate" -->" size="10" maxlength="15" />
+ <input type="text" id="expecteddate" name="planneddate" value="<!-- TMPL_VAR name="planneddate" -->" size="10" maxlength="15" />
</td>
<td>
<!--TMPL_IF name="editdisable"-->
@@ -205,9 +209,9 @@ function CloneSubfield(index){
<select name="status" size="1" disabled="disabled">
<!--TMPL_ELSE-->
<!--TMPL_IF Name="serialsadditems"-->
- <select name="status" size="1" id="status<!-- TMPL_VAR NAME="num" -->" onchange="if (this.value==2){unHideItems('items'+<!-- TMPL_VAR NAME="subscriptionid" -->+<!-- TMPL_VAR NAME="serialid" -->,'label<!-- TMPL_VAR NAME="subscriptionid" --><!--TMPL_VAR Name="serialid"-->')} else { HideItems('items'+<!-- TMPL_VAR NAME="subscriptionid" -->+<!-- TMPL_VAR NAME="serialid" -->,'label<!-- TMPL_VAR NAME="subscriptionid" --><!--TMPL_VAR Name="serialid"-->')}" >
+ <select name="status" size="1" id="status<!-- TMPL_VAR NAME="num" -->" onchange="if (this.value==2){unHideItems('items'+<!-- TMPL_VAR NAME="subscriptionid" -->+<!-- TMPL_VAR NAME="serialid" -->,'label<!-- TMPL_VAR NAME="subscriptionid" --><!--TMPL_VAR Name="serialid"-->'); changeExpectedDate('<!-- TMPL_VAR NAME="arriveddate" -->')} else if (this.value==7){changeExpectedDate('<!-- TMPL_VAR NAME="arriveddate" -->')} else { HideItems('items'+<!-- TMPL_VAR NAME="subscriptionid" -->+<!-- TMPL_VAR NAME="serialid" -->,'label<!-- TMPL_VAR NAME="subscriptionid" --><!--TMPL_VAR Name="serialid"-->'); changeExpectedDate('<!-- TMPL_VAR NAME="planneddate" -->')}" >
<!--TMPL_ELSE -->
- <select name="status" size="1" id="status<!-- TMPL_VAR NAME="num" -->" >
+ <select name="status" size="1" id="status<!-- TMPL_VAR NAME="num" -->" onchange="if (this.value==2 || this.value==7){changeExpectedDate('<!-- TMPL_VAR NAME="arriveddate" -->')} else {changeExpectedDate('<!-- TMPL_VAR NAME="planneddate" -->')}" >
<!--/TMPL_IF-->
<!--/TMPL_IF-->
<!--TMPL_IF name="status1" -->
diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index 08eae33..7317bed 100755
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -121,6 +121,7 @@ my ($template, $loggedinuser, $cookie)
my @serialdatalist;
my %processedserialid;
+my $today = C4::Dates->new();
foreach my $tmpserialid (@serialids){
#filtering serialid for duplication
#NEW serial should appear only once and are created afterwards
@@ -128,6 +129,7 @@ foreach my $tmpserialid (@serialids){
my $data=GetSerialInformation($tmpserialid);
$data->{publisheddate}=format_date($data->{publisheddate});
$data->{planneddate}=format_date($data->{planneddate});
+ $data->{arriveddate}=$today->output();
$data->{'editdisable'}=((HasSubscriptionExpired($data->{subscriptionid})&& $data->{'status1'})||$data->{'cannotedit'});
push @serialdatalist,$data;
$processedserialid{$tmpserialid}=1;
--
1.5.6.5
More information about the Koha-patches
mailing list