[Rt-commit] [svn] r903 - in RTx-Atom: . html/Atom/0.3/Elements

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Sun May 16 09:08:05 2004
New Revision: 903

Modified:
   RTx-Atom/   (props changed)
   RTx-Atom/html/Atom/0.3/Elements/SetProperty
Log:
 ----------------------------------------------------------------------
 r4922 at not:  autrijus | 2004-05-16T12:09:52.487115Z
 
 * SetProperty shall not fail with "is already the current value".
 ----------------------------------------------------------------------


Modified: RTx-Atom/html/Atom/0.3/Elements/SetProperty
==============================================================================
--- RTx-Atom/html/Atom/0.3/Elements/SetProperty	(original)
+++ RTx-Atom/html/Atom/0.3/Elements/SetProperty	Sun May 16 09:08:05 2004
@@ -6,13 +6,11 @@
 $m->notes('ToUTF8')->($Value);
 
 my $method = "Set$Property";
-my ($rv, $new_value) = ($Object->$method( $Value ))[0, -1];
 
-return( 
-    ($rv ? 200 : 400),
-    (defined($new_value) ? $new_value : ''),
-);
+return (200, $Value) if ($Object->$Property eq $Value);
 
+my ($rv, $errstr) = ($Object->$method( $Value ))[0, -1];
+return ( ($rv ? 200 : 400), $errstr );
 </%INIT>
 <%ARGS>
 $Object