| 453 | | # Handle version comments as a secondary action for the same |
|---|
| 454 | | # if (defined $version->{Label} && !ref($version->{Label})) { |
|---|
| 455 | | # my ($labelComment); |
|---|
| 456 | | # |
|---|
| 457 | | # if ($version->{LabelComment} && !ref($version->{LabelComment})) { |
|---|
| 458 | | # $labelComment = $version->{LabelComment}; |
|---|
| 459 | | # } |
|---|
| 460 | | # $cache->add($tphysname, $vernum, $parentphys, 'LABEL', $itemname, |
|---|
| 461 | | # $itemtype, $timestamp, $user, $is_binary, $info, 5, |
|---|
| 462 | | # $sortkey, $parentdata, $version->{Label}, $labelComment); |
|---|
| 463 | | # } |
|---|
| 464 | | |
|---|
| | 453 | # Handle version labels as a secondary action for the same version |
|---|
| | 454 | # version labels and label action use the same location to store the |
|---|
| | 455 | # label. Therefore it is not possible to assign a version label to |
|---|
| | 456 | # version where the actiontype was LABEL. But ssphys will report the |
|---|
| | 457 | # same label twice. Therefore filter the Labeling versions here. |
|---|
| | 458 | if (defined $version->{Label} && !ref($version->{Label}) |
|---|
| | 459 | && $actiontype ne 'LABEL') { |
|---|
| | 460 | my ($labelComment); |
|---|
| | 461 | |
|---|
| | 462 | if ($version->{LabelComment} && !ref($version->{LabelComment})) { |
|---|
| | 463 | $labelComment = $version->{LabelComment}; |
|---|
| | 464 | } |
|---|
| | 465 | else { |
|---|
| | 466 | $labelComment = "assigned label '$version->{Label}' to version $vernum of physical file '$tphysname'"; |
|---|
| | 467 | } |
|---|
| | 468 | $cache->add($tphysname, $vernum, $parentphys, 'LABEL', $itemname, |
|---|
| | 469 | $itemtype, $timestamp, $user, $is_binary, $info, 5, |
|---|
| | 470 | $sortkey, $parentdata, $version->{Label}, $labelComment); |
|---|
| | 471 | } |
|---|
| 897 | | if (!exists $exported{$physname}) { |
|---|
| 898 | | if ($itemtype == 2) { |
|---|
| 899 | | $exported{$physname} = &ExportVssPhysFile($physname, $action->{version}); |
|---|
| | 904 | # if (!exists $exported{$physname}) { |
|---|
| | 905 | my $version = $action->{version}; |
|---|
| | 906 | if ( !defined $version |
|---|
| | 907 | && ( $action->{action} eq 'ADD' |
|---|
| | 908 | || $action->{action} eq 'COMMIT')) { |
|---|
| | 909 | &ThrowWarning("'$physname': no version specified for retrieval"); |
|---|
| | 910 | |
|---|
| | 911 | # fall through and try with version 1. |
|---|
| | 912 | $version = 1; |
|---|
| | 913 | } |
|---|
| | 914 | |
|---|
| | 915 | if ($itemtype == 2 && defined $version) { |
|---|
| | 916 | $exported{$physname} = &ExportVssPhysFile($physname, $version); |
|---|
