home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Examples / publish / admin / addcontent.cfm next >
Encoding:
Text File  |  1999-04-12  |  4.3 KB  |  130 lines
  1. <!--- There should be a ClassID... if this isn't defined, we're in the
  2.     wrong place --->
  3. <CFIF NOT IsDefined("ClassID")>
  4.     <CFLOCATION URL="createobject.cfm" ADDTOKEN="NO">
  5.     <CFABORT>
  6. </CFIF>
  7.  
  8. <CFHEADER Name="Expires" Value="#Now()#">
  9. <CFHEADER NAME="pragma" VALUE="no-cache">
  10.  
  11. <!--- Initialize the Session variables we're going to need --->
  12. <CFSET Session.AddContent.ReqContentTypes = "">
  13. <CFSET Session.AddContent.ReqContentTypeNames = "">
  14. <CFSET Session.AddContent.ReqContentTypeFile = "">
  15. <CFSET Session.AddContent.OptContentTypes = "">
  16. <CFSET Session.AddContent.OptContentTypeNames = "">
  17. <CFSET Session.AddContent.OptContentTypeFile = "">
  18.  
  19. <!--- Initialize session variables so we always know what class
  20.     we're dealing with, and what object (if any) this content
  21.     should be added (or modified) to --->
  22. <CFSET Session.AddContent.ClassID = ClassID>
  23. <CFIF IsDefined("ObjectID")>
  24.     <CFSET Session.AddContent.ObjectID = ObjectID>
  25. </CFIF>
  26.  
  27. <!--- Find all the content types that are required for this class --->
  28. <CFQUERY DATASOURCE="CFexamples" NAME="GetRequiredContentTypes">
  29. SELECT * FROM PubClassDefinitions, PubContentTypes 
  30. WHERE PubClassDefinitions.TypeID = PubContentTypes.TypeID
  31.     AND PubClassDefinitions.ClassID = #ClassID#
  32.     AND Required = TRUE
  33. ORDER BY ClassItemID
  34. </CFQUERY>
  35.  
  36. <!--- Set the list of required content types into a session variable --->
  37. <CFSET Session.AddContent.ReqContentTypes = ValueList(GetRequiredContentTypes.TypeID)>
  38. <CFSET Session.AddContent.ReqContentTypeNames = ValueList(GetRequiredContentTypes.TypeName)>
  39. <CFSET Session.AddContent.ReqContentTypeFile = ValueList(GetRequiredContentTypes.TypeFile)>
  40.  
  41. <!--- Retrieve the optional content types so the user can choose --->
  42. <CFQUERY DATASOURCE="CFexamples" NAME="GetOptionalContentTypes">
  43. SELECT * FROM PubClassDefinitions, PubContentTypes 
  44. WHERE PubClassDefinitions.TypeID = PubContentTypes.TypeID
  45.     AND PubClassDefinitions.ClassID = #ClassID#
  46.     AND Required = FALSE
  47. ORDER BY ClassItemID
  48. </CFQUERY>
  49.  
  50. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  51.  
  52. <HTML>
  53. <HEAD>
  54.     <TITLE>Add Content</TITLE>
  55. <STYLE TYPE="text/css">
  56. <!-- A {text-decoration: none} -->
  57. </STYLE>
  58. </HEAD>
  59.  
  60. <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  61.  
  62. <TABLE ALIGN="RIGHT" CELLPADDING="0" CELLSPACING="0">
  63. <TR>
  64.     <TD ALIGN="RIGHT">
  65.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  66.         <A HREF="index.cfm">Administrator Home</A>
  67.     </FONT>
  68.     </TD>
  69. </TR>
  70. </TABLE>
  71.  
  72. <P><IMG SRC="images/addcontent.gif" WIDTH=109 HEIGHT=20 BORDER=0 ALT="Add Content"></P>
  73.  
  74. <FORM ACTION="addcontent2.cfm" METHOD="POST">
  75.  
  76. <TABLE BORDER="1" CELLPADDING="5" CELLSPACING="2">
  77.  
  78. <TR>
  79.     <TD COLSPAN="4"><FONT FACE="Helvetica"><B>Required Content</B></FONT></TD>
  80. </TR>
  81.  
  82. <CFIF GetRequiredContentTypes.RecordCount IS 0>
  83. <TR>
  84.     <TD COLSPAN="4"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">(no required content)</FONT></TD>
  85. </TR>
  86. <CFELSE>
  87.     <CFOUTPUT QUERY="GetRequiredContentTypes">
  88.         <TR>
  89.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  90.                 <INPUT TYPE="checkbox" onClick="this.checked = true" CHECKED>
  91.             </FONT></TD>
  92.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>#TypeName#</B></FONT></TD>
  93.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#TypeDesc#<BR></FONT></TD>
  94.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  95.                 <CFIF TypeFile IS 1>Binary<CFELSE>Text/HTML</CFIF>
  96.             </FONT></TD>
  97.         </TR>
  98.     </CFOUTPUT>
  99. </CFIF>
  100.  
  101. <TR>
  102.     <TD COLSPAN="4"><FONT FACE="Helvetica"><B>Optional Content</B></FONT></TD>
  103. </TR>
  104. <CFIF GetOptionalContentTypes.RecordCount IS 0>
  105. <TR>
  106.     <TD COLSPAN="4"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">(no optional content)</FONT></TD>
  107. </TR>
  108. <CFELSE>
  109.     <CFOUTPUT QUERY="GetOptionalContentTypes">
  110.         <TR>
  111.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  112.                 <INPUT TYPE="checkbox" NAME="OptContentTypes" VALUE="#TypeID#">
  113.             </FONT></TD>
  114.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>#TypeName#</B></FONT></TD>
  115.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#TypeDesc#<BR></FONT></TD>
  116.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  117.                 <CFIF TypeFile IS 1>Binary File<CFELSE>Text/HTML</CFIF>
  118.             </FONT></TD>
  119.         </TR>
  120.     </CFOUTPUT>
  121. </CFIF>
  122.  
  123. </TABLE>
  124.  
  125. <P><INPUT TYPE="SUBMIT" VALUE="Continue"></P>
  126.  
  127. </FORM>
  128.  
  129. </BODY>
  130. </HTML>