add an id field to the rcs_recentchanges return structure

There was an undocumented field named "rev", I think "id" is a better name,
and nothing uses it yet.
master
Joey Hess 2008-01-28 20:34:11 -05:00
parent ad6d22f237
commit b11ddb88e6
6 changed files with 8 additions and 5 deletions

View File

@ -37,6 +37,7 @@ sub rcs_recentchanges ($) {
# Examine the RCS history and generate a list of recent changes. # Examine the RCS history and generate a list of recent changes.
# The data structure returned for each change is: # The data structure returned for each change is:
# { # {
# id => # the RCSs id for this commit
# user => # name of user who made the change, # user => # name of user who made the change,
# committype => # either "web" or the name of the rcs, # committype => # either "web" or the name of the rcs,
# when => # time when the change was made, # when => # time when the change was made,

View File

@ -407,7 +407,7 @@ sub rcs_recentchanges ($) { #{{{
} }
push @rets, { push @rets, {
rev => $sha1, id => $sha1,
user => $user, user => $user,
committype => $type, committype => $type,
when => $when, when => $when,

View File

@ -139,7 +139,7 @@ sub rcs_recentchanges ($) { #{{{
$user =~ s/^\s*//; $user =~ s/^\s*//;
push @ret, { push @ret, {
rev => $info->{"changeset"}, id => $info->{"changeset"},
user => $user, user => $user,
committype => "mercurial", committype => "mercurial",
when => time - str2time($info->{"date"}), when => time - str2time($info->{"date"}),

View File

@ -438,7 +438,7 @@ sub rcs_recentchanges ($) { #{{{
} }
push @ret, { push @ret, {
rev => $rev, id => $rev,
user => $user, user => $user,
committype => $committype, committype => $committype,
when => $when, when => $when,

View File

@ -203,7 +203,8 @@ sub rcs_recentchanges ($) { #{{{
diffurl => $diffurl, diffurl => $diffurl,
} if length $file; } if length $file;
} }
push @ret, { rev => $rev, push @ret, {
id => $rev,
user => $user, user => $user,
committype => $committype, committype => $committype,
when => $when, when => $when,

View File

@ -145,7 +145,8 @@ sub rcs_recentchanges ($) {
diffurl => $diffurl, diffurl => $diffurl,
} if length $file; } if length $file;
} }
push @ret, { rev => $change, push @ret, {
id => $change,
user => $user, user => $user,
committype => $committype, committype => $committype,
when => $when, when => $when,