From 6e945261801e3d647a1d00c65db2b2a4eed26273 Mon Sep 17 00:00:00 2001
From: ggodlewski <ggodlewski@pld-linux.org>
Date: Fri, 13 Dec 2002 19:37:31 +0000
Subject: [PATCH] - saving added

Changed files:
    agata-ini.patch -> 1.2
---
 agata-ini.patch | 75 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)

diff --git a/agata-ini.patch b/agata-ini.patch
index f666b16..790cce4 100644
--- a/agata-ini.patch
+++ b/agata-ini.patch
@@ -142,3 +142,78 @@
 +# DateTimeFmt    = d/m/Y
 +# Orientation    = Portrait
 +# PsLineLen      = 500
+--- agata/classes/AgataCore.class.old	Fri Dec 13 20:17:06 2002
++++ agata/classes/AgataCore.class	Fri Dec 13 20:23:32 2002
+@@ -120,7 +120,7 @@
+   
+   function GravaConfig($project, $Language = null)
+   {
+-    $fd = fopen ("config.php", "w");
++    $fd = @fopen ("config.php", "w");
+     if ($fd)
+     {
+       fwrite ($fd, "<?\n");
+@@ -133,6 +133,20 @@
+         fwrite ($fd, '$setupScreenLanguage = ' . "'" . $this->aAgataConfig[$project]['Language'] . "';\n\n");
+       }
+       
++      fwrite($fd, "\n\n");
++      
++      foreach($this->aDescription as $key => $Config)
++      {
++        $Description = $this->aDescription[$key];
++        fwrite($fd, '$aDescription' . "['$key'] = '$Description';\n");
++      }
++      fwrite ($fd, "?>\n");
++      fclose($fd);  
++    }
++    
++    $fd = @fopen (getenv("HOME")."/.agata", "w");
++    if ($fd)
++    {
+       if ($project=='+')
+       {
+         $project = $this->aAgataConfig[$project]['Project'];
+@@ -142,33 +156,24 @@
+       {
+         if (is_array($Content))
+         {
++	  if ($key=='+')
++	  {
++	    $key = $project;
++	  }
++          fwrite($fd, "[$key]\n");
+           foreach ($Content as $Config => $Value)
+ 	  {
+-	    if ($key=='+')
+-	    {
+-	      $key = $project;
+-	    }
+-            fwrite($fd, str_pad('$aAgataConfig' . "['$key']['$Config'] ",40, ' ', STR_PAD_RIGHT) .  "= '$Value';\n");
++            fwrite($fd, str_pad($Config,40,' ',STR_PAD_RIGHT)."= $Value\n");
+ 	  }
+ 	  fwrite($fd, "\n");
+         }
+         else if (($key != 'defaultConfiguration') && ($content))
+         {
+-          fwrite($fd, '$aAgataConfig' . "['$key'] = '$Content';\n");
+-	  fwrite($fd, "\n");
++          fwrite($fd, "[$key]\n\n$Content\n"); // TESTME!!!
+         }
+       }
+-    
+-      fwrite($fd, "\n\n");
+-      
+-      foreach($this->aDescription as $key => $Config)
+-      {
+-        $Description = $this->aDescription[$key];
+-        fwrite($fd, '$aDescription' . "['$key'] = '$Description';\n");
+-      }
+-      fwrite ($fd, "?>\n");
+-      fclose($fd);  
+     }
++    
+   }
+ }
+ ?>
+\ No newline at end of file
-- 
2.44.0