@@ -1731,19 +1744,24 @@ ENDCOPY
$lt{'rm'}
-
-$lt{'ct'}
+$cutlink
$lt{'rn'}
$copylink
END
} else {
- unless ($nocopy) {
+ if (!$nocopy) {
$copylink=(<
$lt{'cp'} |
ENDCOPY
}
+ if (!$nocut) {
+ $cutlink=(<
+$lt{'ct'}
+ENDCUT
+ }
$line.=(<
@@ -1763,8 +1781,7 @@ ENDCOPY
$lt{'rm'}
-
-$lt{'ct'}
+$cutlink
$lt{'rn'}
$copylink
|