[Rt-commit] [svn] r1191 - rtfm/trunk/html/RTFM/Admin/Classes

[alexmv at pallas.eruditorum.org]

Author: alexmv
Date: Thu Jul  8 15:22:02 2004
New Revision: 1191

Modified:
   rtfm/trunk/html/RTFM/Admin/Classes/Modify.html
Log:
 * Don't assume that $ClassObj is a real object -- we could be just
   creating it.  This avoids a slew of warnings.


Modified: rtfm/trunk/html/RTFM/Admin/Classes/Modify.html
==============================================================================
--- rtfm/trunk/html/RTFM/Admin/Classes/Modify.html	(original)
+++ rtfm/trunk/html/RTFM/Admin/Classes/Modify.html	Thu Jul  8 15:22:02 2004
@@ -35,10 +35,10 @@
 <TR><TD ALIGN=RIGHT>
 <&|/l&>Class Name</&>: 
 </TD>
-<TD><INPUT name="Name" value="<%$ClassObj->Name%>"></TD>
+<TD><INPUT name="Name" value="<% $Create ? "" : $ClassObj->Name %>"></TD>
 </TR><TR>
 <TD ALIGN=RIGHT>
-<&|/l&>Description</&>:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$ClassObj->Description%>" size=60></TD></TR>
+<&|/l&>Description</&>:</TD><TD COLSPAN=3><INPUT name="Description" value="<% $Create ? "" : $ClassObj->Description %>" size=60></TD></TR>
 <TR>
 <TR>
 <TD>
@@ -100,7 +100,7 @@
     push @results, loc('Enabled status [_1]', loc_fuzzy($msg));
 }
 
-unless ($ClassObj->Disabled()) {
+unless ($Create ? $Disabled : $ClassObj->Disabled()) {
     $EnabledChecked ="CHECKED";
 }
 
@@ -123,5 +123,5 @@
 $Create => undef
 $Description => undef
 $SetEnabled => undef
-$Enabled => undef
+$Enabled => 1
 </%ARGS>