Index: branches/5.2.x/core/units/logs/system_logs/system_log_eh.php
===================================================================
diff -u -N -r16513 -r16754
--- branches/5.2.x/core/units/logs/system_logs/system_log_eh.php	(.../system_log_eh.php)	(revision 16513)
+++ branches/5.2.x/core/units/logs/system_logs/system_log_eh.php	(.../system_log_eh.php)	(revision 16754)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: system_log_eh.php 16513 2017-01-20 14:10:53Z alex $
+* @version	$Id: system_log_eh.php 16754 2023-04-19 11:23:28Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2012 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -117,4 +117,48 @@
 			$temp_handler->DeleteItems($event->Prefix, $event->Special, $ids);
 		}
 	}
+
+	/**
+	 * Removes old code fragments.
+	 *
+	 * @param kEvent $event Event.
+	 *
+	 * @return void
+	 */
+	protected function OnRotateCodeFragmentsScheduledTask(kEvent $event)
+	{
+		$id_field = $this->Application->getUnitOption($event->Prefix, 'IDField');
+		$table_name = $this->Application->getUnitOption($event->Prefix, 'TableName');
+
+		$sql = 'SELECT LogBacktrace, ' . $id_field . ' 
+				FROM ' . $table_name . '
+				WHERE LogTimestamp < ' . strtotime('-1 month') . ' AND LogCodeFragmentsRotated = 0
+				LIMIT 0,500';
+		$records = $this->Conn->GetColIterator($sql, $id_field);
+
+		foreach ( $records as $system_log_id => $trace ) {
+			if ( $trace ) {
+				$trace = unserialize($trace);
+
+				foreach ( $trace as $index => $trace_info ) {
+					if ( array_key_exists('code_fragment', $trace_info) ) {
+						unset($trace[$index]['code_fragment']);
+					}
+				}
+
+				$trace = serialize($trace);
+			}
+
+			$this->Conn->doUpdate(
+				array(
+					'LogBacktrace' => $trace,
+					'LogCodeFragment' => null,
+					'LogCodeFragmentsRotated' => 1,
+				),
+				$table_name,
+				$id_field . ' = ' . $system_log_id
+			);
+		}
+	}
+
 }