home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / _STUFF.AP_ / _STUFF.AP
Encoding:
Text File  |  1998-04-01  |  4.1 KB  |  144 lines
  1. <[
  2. // _stuff.htm    
  3. // Useful Stuff Active Page
  4. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. LIBRARY webdesk
  7.  
  8. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  9. if ( type( desk ) != "O" )
  10.     return( 0 )
  11. end
  12.  
  13. TRY
  14.  
  15. item = new( "UsefulStuffItem", desk, desk.session.var( "item" ) )
  16.  
  17. cmd = desk.session.var( "cmd" )
  18. if ( ! strempty( cmd ) )
  19.     switch ( upper( cmd ) )
  20.       case "UPDATE"
  21.         item.UpdateFromForm( )
  22.           break
  23.       case "DELETE"
  24.         item.delete( )
  25.           break
  26.       case "NEW"
  27.         item.createnew( )
  28.           break
  29.     end
  30. end
  31.  
  32. ]>
  33. <HTML>
  34. <HEAD>
  35. <TITLE>Customizing Useful Stuff</TITLE>
  36. </HEAD>
  37. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  38.  
  39. <p>
  40. <CENTER>
  41.  
  42. <[ ! desk.templateHeader( ) ]>
  43.  
  44. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  45.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  46.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " ]>Customizing Useful Stuff</B></FONT></TD>
  47.   <TD WIDTH=100% ALIGN=right><FONT SIZE=-1 FACE=geneva,arial COLOR=<[ ! desk.fclrHdr + ">" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]></FONT></TD>
  48.  </TR>
  49. </TABLE>
  50.  
  51. <[ ! desk.templateNavBar( ) ]>
  52.  
  53. </CENTER>
  54. </p>
  55.  
  56. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  57.  <TR VALIGN=top>
  58.   <TD WIDTH=49%>
  59.  
  60.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  61.     <TR>
  62.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  63.     </TR>
  64.    </TABLE>
  65.  
  66.     <[
  67.         ! DisplayUsefulStuff( desk, 3, 1 )
  68.     ]>
  69.  
  70.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  71.     <TR>
  72.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  73.     </TR>
  74.    </TABLE>
  75.  
  76.    <br><CENTER><a href="public.htm"><FONT SIZE=3>Public Desktop</FONT></a> | 
  77.    <a href="private.htm"><FONT SIZE=3>Private Desktop</FONT></a></CENTER><br>
  78.  
  79.   </TD>
  80.   
  81.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  82.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  83.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  84.   </TD>  
  85.   
  86.   <TD WIDTH=50%>
  87.  
  88.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  89.     <TR>
  90.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Details</B></FONT></TD>
  91.     </TR>
  92.    </TABLE>
  93.  
  94.    <center><p>Select the item at the left to view/update the details.</p></center>
  95.  
  96.     <[
  97.         ! item.display( )
  98.     ]>
  99.  
  100.    <P>
  101.    <CENTER>
  102.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
  103.     <TR>
  104.      <TD>
  105.       <FORM ACTION="_stuff.htm" METHOD="get">
  106.        <FONT SIZE=2>Description:</br></FONT>
  107.        <INPUT TYPE="hidden" NAME="cmd" VALUE="update">
  108.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! item.item ]>">
  109.        <INPUT TYPE="edit" NAME="desc" SIZE=30 VALUE="<[ ! item.desc ]>"><br>
  110.        <FONT SIZE=2>Image:</br></FONT>
  111.        <INPUT TYPE="edit" NAME="image" SIZE=30 VALUE="<[ ! item.image ]>"><br>
  112.        <FONT SIZE=2>Action:</br></FONT>
  113.        <INPUT TYPE="edit" NAME="action" SIZE=30 VALUE="<[ ! item.action ]>"><br><br>
  114.            <INPUT TYPE="checkbox" NAME="ispublic" <[ ! ( ( item.scope & 1 ) ? "CHECKED" : "" ) ]>> Include in PUBLIC lists<br>
  115.            <INPUT TYPE="checkbox" NAME="isprivate" <[ ! ( ( item.scope & 2 ) ? "CHECKED" : "" ) ]>> Include in PRIVATE lists<br><br>
  116.        <center><INPUT TYPE="submit" VALUE="Update"><INPUT TYPE="reset" VALUE=" Reset "></center>
  117.       </FORM>
  118.  
  119.       <center><P>
  120.       <a href="_stuff.htm?cmd=delete&item=<[ ! item.item ]>">Delete</a> |
  121.       <a href="_stuff.htm?cmd=new">New</a>
  122.       </p></center>
  123.  
  124.      </TD>
  125.     </TR>
  126.    </TABLE>
  127.    </CENTER>
  128.    </P>
  129.  
  130.   </TD>
  131.  </TR>
  132. </TABLE>
  133.  
  134.  
  135. </BODY>
  136. </HTML>
  137.  
  138. <[
  139.     CATCH ( err )
  140.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  141.         return( 0 )
  142.     END
  143. ]>
  144.