I am using a script. It autometically updates some cases. And it updates history of the cases also. But i don't want to be like that. I don't wnat to update history.
Is there any way to do.
Is there any way to do.
-
-
No idea what you are even talking about. -
Provide some code. Maybe we can help.
Include the "histories" you speak of.Comment
-
I am updating 2 fields with my script. I have sheduled the code to run it for every 1 hour. It is updating successfully. But it is also updating history for each record. So per a day 24 entry will be registering in history of cases. So that is my problem. I don't want history to update.
[CODE=perl]=pod
=head1 Due Counter update
This program is supposed to be called by the scheduled tasks scheduled repeadtedly with an apropriate
time interval. The purpose is to find all trouble report with a certain state, and inctrement a counter
in each record. It needs the cqperl Perl interpreter that comes with the IBM Rational ClearQuest
distribution
=head2 Syntax
=begin html
<pre>
cqperl duecounterupdat e.pl
</pre>
=end html
=cut
my $USERNAME = "sqluser"; # This user account is a hard-coded
my $PASSWORD = "xyz"; # user accouunt in the database with SQL run privileges
my $REPOSITORY = "xyz";
my $DATABASE = "TEST";
my @QUERIES = (
[ "Answering_Time _Count", "Public Queries/Due Counter/all_errand_answ ering_time_case s" ],
[ "Delivery_Time_ Count", "Public Queries/Due Counter/all_solution_de livering_time_c ases" ],
);
my $one_day = 24 * 3600; # Number of seconds for one day
require CQPerlExt; # Must be run with the cqperl binary.
# Log on to the schema repository
my $sqlSession = CQPerlExt::CQSe ssion_Build();
eval { $sqlSession->UserLogon( $USERNAME, $PASSWORD, $DATABASE, $REPOSITORY ); };
if ($@) {
print "$@\n";
exit;
}
print "SQL Login as $USERNAME on $REPOSITORY succeeded\n";
# Get all national holidays
my %HOLIDAYS = ();
my $resultSet = $sqlSession->BuildSQLQuery( "select fldcolumn from Holidays order by 1");
$resultSet->Execute();
while ( $resultSet->MoveNext() == $CQPerlExt::CQ_ SUCCESS ) {
my $holiday = $resultSet->GetColumnValue (1);
$HOLIDAYS{ substr( $holiday, 0, 10 ) } = 1;
}
#print "Found holidays: " . join( ",", keys %HOLIDAYS ) . "\n";
my $workspace = $sqlSession->GetWorkSpace() ;
my $justnow = time();
for ( my $query = 0 ; $query <= $#QUERIES ; $query++ ) {
my @CASES = ();
my $queryDef = $workspace->GetQueryDef( $QUERIES[$query][1] );
my $resultSet = $sqlSession->BuildResultSet ($queryDef);
$resultSet->Execute();
while ( $resultSet->MoveNext() == $CQPerlExt::CQ_ SUCCESS ) {
push @CASES, [ $resultSet->GetColumnValue (2), $resultSet->GetColumnValue (7), $resultSet->GetColumnValue (8) ];
}
foreach my $case (@CASES) {
my ( $caseId, $counter, $changeTime ) = @$case;
# The counter is displayed in decimal days. Convert it to seconds by multiply by seconds per day
$counter *= $one_day;
print "Case $caseId: Last changed $changeTime, $QUERIES[$query][0]=$counter\n";
# Update the due counters and the due-date field
my $diff = $justnow - $changeTime;
print "Diff=$diff \n";
while ( $diff > 0 ) {
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime($chan geTime);
my $datestr = sprintf( "%4.4d-%2.2d-%2.2d", 1900 + $year, 1 + $mon, $mday );
if ( !$HOLIDAYS{$dat estr} && $wday != 0 && $wday != 6 ) {
if ( $diff > 3600 ) { $counter += 3600; }
else { $counter += $diff; }
}
if ( $diff > 3600 ) { $changeTime += 3600; }
else { $changeTime += $diff; }
$diff -= 3600;
}
my $objtoedit = $sqlSession->GetEntity( "Case", $caseId );
$sqlSession->EditEntity( $objtoedit, "modify" );
# Convert counter back to decimal days by divide by seconds per day
$counter /= $one_day;
# For some very stupuid reason that I cannot understand, the variable values to be used to update
# the field value must be referenced here, otherwise we will get an error message TODO: WHY?
# $a = "$counter\n ";
print "objtoedit->SetFieldValu e( $QUERIES[$query][0], $counter )\n";
$objtoedit->SetFieldValu e( $QUERIES[$query][0], $counter );
# Wait until the last query to update the last_due_calc field, since it is retreived by all queries
if ( $query == $#QUERIES ) {
my $a = "$justnow\n ";
$objtoedit->SetFieldValu e( 'Last_Due_Calc_ time', $justnow );
}
# Validate the changes. (Must be done in order to be able to commit the changes)
if ( $objtoedit->Validate() eq "" ) {
$objtoedit->Commit();
}
else {
$objtoedit->Revert();
print "Failed $caseId $QUERIES[$query][0]=$counter, calctime=$justn ow\n";
}
}
}
[/CODE]
Histrory part
------------------
Code:Date/Time User Name Action: Old State New State 2008-02-19 14:19:33 edtalte submit no_value Submitted 2008-02-19 16:36:13 sqluser modify Submitted Submitted 2008-02-19 16:36:14 sqluser modify Submitted Submitted 2008-02-19 16:36:35 sqluser modify Submitted Submitted 2008-02-19 16:36:36 sqluser modify Submitted Submitted 2008-02-19 16:39:56 sqluser modify Submitted Submitted 2008-02-19 16:39:57 sqluser modify Submitted Submitted 2008-02-19 16:43:59 sqluser modify Submitted Submitted 2008-02-19 16:44:00 sqluser modify Submitted Submitted 2008-02-19 16:53:03 sqluser modify Submitted Submitted 2008-02-19 16:53:03 sqluser modify Submitted Submitted 2008-02-19 16:53:11 sqluser modify Submitted Submitted 2008-02-19 16:53:11 sqluser modify Submitted Submitted 2008-02-19 16:55:21 sqluser modify Submitted Submitted 2008-02-19 16:55:22 sqluser modify Submitted Submitted 2008-02-19 17:00:01 sqluser modify Submitted Submitted 2008-02-19 17:00:02 sqluser modify Submitted Submitted 2008-02-20 08:00:03 sqluser modify Submitted Submitted 2008-02-20 08:00:04 sqluser modify Submitted Submitted 2008-02-20 09:00:05 sqluser modify Submitted Submitted 2008-02-20 09:00:06 sqluser modify Submitted Submitted 2008-02-20 10:00:02 sqluser modify Submitted Submitted 2008-02-20 10:00:03 sqluser modify Submitted Submitted 2008-02-20 12:00:02 sqluser modify Submitted Submitted 2008-02-20 12:00:04 sqluser modify Submitted Submitted 2008-02-20 13:00:26 sqluser modify Submitted Submitted 2008-02-20 13:00:28 sqluser modify Submitted Submitted 2008-02-21 08:00:11 sqluser modify Submitted Submitted 2008-02-21 08:00:13 sqluser modify Submitted Submitted 2008-02-21 09:00:02 sqluser modify Submitted Submitted 2008-02-21 09:00:03 sqluser modify Submitted Submitted 2008-02-21 10:00:02 sqluser modify Submitted Submitted 2008-02-21 10:00:03 sqluser modify Submitted Submitted 2008-02-21 12:00:02 sqluser modify Submitted Submitted 2008-02-21 12:00:03 sqluser modify Submitted Submitted 2008-02-21 13:00:02 sqluser modify Submitted Submitted 2008-02-21 13:00:02 sqluser modify Submitted Submitted 2008-02-21 14:00:03 sqluser modify Submitted Submitted 2008-02-21 14:00:04 sqluser modify Submitted Submitted 2008-02-21 14:17:01 sqluser modify Submitted Submitted 2008-02-21 14:17:02 sqluser modify Submitted Submitted 2008-02-21 15:00:05 sqluser modify Submitted Submitted 2008-02-21 15:00:11 sqluser modify Submitted Submitted
Comment
-
I am sorry but, I still don't understand what you mean by "updating history part".
Do you have "default" values set up in the Database for those fields?
If a field is set to "not null", and you update some other field within the same record, the "default" value will be used to update the fields that were left blank.
I am not experienced with "CQPerlExt" . For database transactions I use the DBI module.
You may want to move @CASES out of the loop, since declaring it with "my" within a loop will create warnings, when "strict" pragma is used.
(line 59)
I recommend using "strict" in all your scripts.Comment
-
This is going to be a tooth pulling session so I am out of the thread.Comment
-
The easiest approach would be to delete the code that does the updating of the history that you don't want to keep anymore.
We do not know which section of code is doing the updating. Comment out each of the areas one at a time until it does what you want.
Make sure your scripts use the strict and warnings pragmas to assist in your debugging efforts.
That is all we can tell you since your description and lack of information is not helping us help you.
--KevinComment
-
What the system is:
I have a defect tracking system. In that I have defects that are said to be CASES. And I have all information about that defects i.e., CaseId, title, description, Attachment and History also. It contains when the case is opened, closed and timestamp etc.
What the requirement is:
What the requirement is I have to implement a field which says that the cases has to be closed in these many days. By that users can know the elapsed time to solve the case.
What I have done:
Basically it is a counter which calculates elapsed time in seconds and after that it is converted to days. Here we are considered holidays and national holidays as well.
And I updated the counter field by using modify action. Then this action modifies all the fields of history also.
When ever I call that script that action updates history also, and then there will be so many entries in that history. And I need to call the script an hour basis. So per day there are 24 entries that will be big problem
What I need:
I don’t want to update case history. Is there any possibility to update the only one filed?
Originally posted by KeliculaComment
-
Is this homewor/classwork?Comment
-
Already this system is using by a major client in Europe. I need to implement new requirements.
Originally posted by eWishComment
-
Okay, I have a better understanding now. What is the exact name of the field in the database for "Cases", the field you don't want to update?
In the code you posted I do not see where you are writing any data to the database. Where are the queries located that do the writing?
Would you please post some of the queries?
--KevinComment
-
Originally posted by eWish
He should really be asking on a forum that discusses ClearQuest
Here is almost the exact same question posted on the CLearQuest forum:
Comment
Comment