1 files changed, 24 insertions, 0 deletions
diff --git a/src/core/tellico-1-3-update.pl b/src/core/tellico-1-3-update.pl
new file mode 100644
index 0000000..9e5ad3b
--- /dev/null
+++ b/src/core/tellico-1-3-update.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+my $input;
+my $oldvalue;
+
+while( $input = <STDIN> )
+{
+	chop $input;
+	
+	if( $input =~ /^Write Images In File\=(.*)/)
+	{
+		$oldvalue=$1;
+		if( $oldvalue eq "true" )
+		{
+			print "Image Location=ImagesInFile\n";
+		}
+		else
+		{
+            print "Image Location=ImageAppDir\n";
+		}
+	}
+}
+
+print "# DELETE [General Options]Write Images In File\n";