fix shortcuts not copying overrides with asset or removing them on purge

docs/changelog/7.x.x.txt

@@ -11,6 +11,7 @@
 7.4.14
  - fix: CS posts won't allow new attachments after deleting an old one
  - fix: SSL redirection broken
+ - fix: Shortcut overrides not copied with asset or removed on purge
 
 7.4.13
  - fix: field_loop missing from SQL Form template

lib/WebGUI/Asset/Shortcut.pm

@@ -207,6 +207,19 @@ sub discernUserId {
 	return ($self->canManage && $self->session->var->isAdminOn) ? '1' : $self->session->user->userId;
 }
 
+#-------------------------------------------------------------------
+sub duplicate {
+    my $self = shift;
+    my $newAsset = $self->SUPER::duplicate(@_);
+    $self->session->db->write(<<'END_SQL', [$newAsset->getId, $self->getId]);
+INSERT INTO Shortcut_overrides (assetId, fieldName, newValue)
+SELECT ?, fieldName, newValue
+FROM Shortcut_overrides 
+WHERE assetId = ?
+END_SQL
+    return $newAsset;
+}
+
 #-------------------------------------------------------------------
 sub getEditForm {
 	my $self = shift;
@@ -636,7 +649,16 @@ sub processPropertiesFromFormPost {
 }
 
 #-------------------------------------------------------------------
+sub purge {
+    my $self = shift;
+    $self->session->db->write(<<'END_SQL', [$self->getId]);
+DELETE FROM Shortcut_overrides
+WHERE assetId = ?
+END_SQL
+    return $self->SUPER::purge(@_);
+}
 
+#-------------------------------------------------------------------
 sub uncacheOverrides {
 	my $self = shift;
 	WebGUI::Cache->new($self->session,$self->_overridesCacheTag)->delete;