home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / _APPS.AP_ / _APPS.AP
Encoding:
Text File  |  1998-04-01  |  4.9 KB  |  158 lines
  1. <[
  2. // _apps.htm    
  3. // Customizing Apps 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( "AppItem", desk, desk.session.var( "cat" ), 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 Applications</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 Applications</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=54%>
  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>Applications</B></FONT></TD>
  63.     </TR>
  64.    </TABLE>
  65.  
  66.     <[
  67.         ! DisplayApps( desk, 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</FONT></a> | 
  77.    <a href="private.htm"><FONT SIZE=3>Private</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=45%>
  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.         ! "<FONT SIZE=2><CENTER>" + item.cat + " Category</CENTER></FONT>"
  98.         ! item.display( )
  99.     ]>
  100.  
  101.    <P>
  102.    <CENTER>
  103.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
  104.     <TR>
  105.      <TD>
  106.       <FORM ACTION="_apps.htm" METHOD="get">
  107.        <INPUT TYPE="hidden" NAME="cmd" VALUE="update">
  108.        <INPUT TYPE="hidden" NAME="cat" VALUE="<[ ! item.cat ]>">
  109.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! item.item ]>">
  110.        <FONT SIZE=2>Description:</br></FONT>
  111.        <INPUT TYPE="edit" NAME="desc" SIZE=30 VALUE="<[ ! item.desc ]>"><br>
  112.        <FONT SIZE=2>Action:</br></FONT>
  113.        <INPUT TYPE="edit" NAME="action" SIZE=30 VALUE="<[ ! item.action ]>"><br>
  114.        <FONT SIZE=2>Startup Directory:</br></FONT>
  115.        <INPUT TYPE="edit" NAME="startdir" SIZE=30 VALUE="<[ ! item.startdir ]>"><br>
  116.  
  117.        <br>
  118.            <INPUT TYPE="RADIO" NAME="options" VALUE="1" <[ ! ( ( item.options & 1 ) ? "CHECKED" : "" ) ]>> Send Action to Browser<br>
  119.        <br>
  120.            <INPUT TYPE="RADIO" NAME="options" VALUE="2" <[ ! ( ( item.options & 2  ) ? "CHECKED" : "" ) ]>> Run Program in Window<br>
  121.            <INPUT TYPE="RADIO" NAME="options" VALUE="4" <[ ! ( ( item.options & 4 ) ? "CHECKED" : "" ) ]>> Run Program Maximized<br>
  122.            <INPUT TYPE="RADIO" NAME="options" VALUE="8" <[ ! ( ( item.options & 8 ) ? "CHECKED" : "" ) ]>> Run Program Minimized<br>
  123.            <INPUT TYPE="RADIO" NAME="options" VALUE="16" <[ ! ( ( item.options & 16 ) ? "CHECKED" : "" ) ]>> Run Program Hidden<br>
  124.        <br>
  125.            <INPUT TYPE="CHECKBOX" NAME="RemoteAccess" VALUE="32" <[ ! ( ( item.options & 32 ) ? "CHECKED" : "" ) ]>> Allow Remote Access<br>
  126.  
  127.        <br><center><INPUT TYPE="submit" VALUE="Update"><INPUT TYPE="reset" VALUE=" Reset "></center>
  128.       </FORM>
  129.  
  130.       <center><P>
  131.       <a href="_apps.htm?cmd=delete&cat=<[ ! item.cat + "&item=" + item.item ]>">Delete</a> |
  132.       <a href="_apps.htm?cmd=new&cat=<[ ! item.cat ]>">New</a>
  133.       </p></center>
  134.  
  135.  
  136.      </TD>
  137.     </TR>
  138.    </TABLE>
  139.    </CENTER>
  140.    </P>
  141.  
  142.  
  143.   </TD>
  144.  </TR>
  145. </TABLE>
  146.  
  147.  
  148. </BODY>
  149. </HTML>
  150.  
  151. <[
  152.     CATCH ( err )
  153.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  154.         return( 0 )
  155.     END
  156. ]>
  157.  
  158.