home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / _APPS.AP_ / _APPS.AP
Encoding:
Text File  |  1997-12-08  |  5.0 KB  |  159 lines
  1. <[
  2. // _apps.ap    
  3. // Customizing Apps Active Page
  4. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. #include "/desktop/desksupp.fgl"
  7. #include "/desktop/apps.fgl"
  8.  
  9. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  10. if ( type( desk ) != "O" )
  11.     return( 0 )
  12. end
  13.  
  14. TRY
  15.  
  16. item = new( "AppItem", desk, desk.session.var( "cat" ), desk.session.var( "item" ) )
  17.  
  18. cmd = desk.session.var( "cmd" )
  19. if ( ! strempty( cmd ) )
  20.     switch ( upper( cmd ) )
  21.       case "UPDATE"
  22.         item.UpdateFromForm( )
  23.           break
  24.       case "DELETE"
  25.         item.delete( )
  26.           break
  27.       case "NEW"
  28.         item.createnew( )
  29.           break
  30.     end
  31. end
  32.  
  33. ]>
  34. <HTML>
  35. <HEAD>
  36. <TITLE>Customizing Applications</TITLE>
  37. </HEAD>
  38. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  39.  
  40. <p>
  41. <CENTER>
  42.  
  43. <[ ! desk.templateHeader( ) ]>
  44.  
  45. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  46.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  47.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " ]>Customizing Applications</B></FONT></TD>
  48.   <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>
  49.  </TR>
  50. </TABLE>
  51.  
  52. <[ ! desk.templateNavBar( ) ]>
  53.  
  54. </CENTER>
  55. </p>
  56.  
  57. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  58.  <TR VALIGN=top>
  59.   <TD WIDTH=54%>
  60.  
  61.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  62.     <TR>
  63.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Applications</B></FONT></TD>
  64.     </TR>
  65.    </TABLE>
  66.  
  67.     <[
  68.         ! DisplayApps( desk, 1 )
  69.     ]>
  70.  
  71.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  72.     <TR>
  73.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  74.     </TR>
  75.    </TABLE>
  76.  
  77.    <br><CENTER><a href="public.ap"><FONT SIZE=3>Public</FONT></a> | 
  78.    <a href="private.ap"><FONT SIZE=3>Private</FONT></a></CENTER><br>
  79.  
  80.   </TD>
  81.   
  82.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  83.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  84.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  85.   </TD>  
  86.   
  87.   <TD WIDTH=45%>
  88.  
  89.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  90.     <TR>
  91.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Details</B></FONT></TD>
  92.     </TR>
  93.    </TABLE>
  94.  
  95.    <center><p>Select the item at the left to view/update the details.</p></center>
  96.  
  97.     <[
  98.         ! "<FONT SIZE=2><CENTER>" + item.cat + " Category</CENTER></FONT>"
  99.         ! item.display( )
  100.     ]>
  101.  
  102.    <P>
  103.    <CENTER>
  104.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
  105.     <TR>
  106.      <TD>
  107.       <FORM ACTION="_apps.ap" METHOD="get">
  108.        <INPUT TYPE="hidden" NAME="cmd" VALUE="update">
  109.        <INPUT TYPE="hidden" NAME="cat" VALUE="<[ ! item.cat ]>">
  110.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! item.item ]>">
  111.        <FONT SIZE=2>Description:</br></FONT>
  112.        <INPUT TYPE="edit" NAME="desc" SIZE=30 VALUE="<[ ! item.desc ]>"><br>
  113.        <FONT SIZE=2>Action:</br></FONT>
  114.        <INPUT TYPE="edit" NAME="action" SIZE=30 VALUE="<[ ! item.action ]>"><br>
  115.        <FONT SIZE=2>Startup Directory:</br></FONT>
  116.        <INPUT TYPE="edit" NAME="startdir" SIZE=30 VALUE="<[ ! item.startdir ]>"><br>
  117.  
  118.        <br>
  119.            <INPUT TYPE="RADIO" NAME="options" VALUE="1" <[ ! ( ( item.options & 1 ) ? "CHECKED" : "" ) ]>> Send Action to Browser<br>
  120.        <br>
  121.            <INPUT TYPE="RADIO" NAME="options" VALUE="2" <[ ! ( ( item.options & 2  ) ? "CHECKED" : "" ) ]>> Run Program in Window<br>
  122.            <INPUT TYPE="RADIO" NAME="options" VALUE="4" <[ ! ( ( item.options & 4 ) ? "CHECKED" : "" ) ]>> Run Program Maximized<br>
  123.            <INPUT TYPE="RADIO" NAME="options" VALUE="8" <[ ! ( ( item.options & 8 ) ? "CHECKED" : "" ) ]>> Run Program Minimized<br>
  124.            <INPUT TYPE="RADIO" NAME="options" VALUE="16" <[ ! ( ( item.options & 16 ) ? "CHECKED" : "" ) ]>> Run Program Hidden<br>
  125.        <br>
  126.            <INPUT TYPE="CHECKBOX" NAME="RemoteAccess" VALUE="32" <[ ! ( ( item.options & 32 ) ? "CHECKED" : "" ) ]>> Allow Remote Access<br>
  127.  
  128.        <br><center><INPUT TYPE="submit" VALUE="Update"><INPUT TYPE="reset" VALUE=" Reset "></center>
  129.       </FORM>
  130.  
  131.       <center><P>
  132.       <a href="_apps.ap?cmd=delete&cat=<[ ! item.cat + "&item=" + item.item ]>">Delete</a> |
  133.       <a href="_apps.ap?cmd=new&cat=<[ ! item.cat ]>">New</a>
  134.       </p></center>
  135.  
  136.  
  137.      </TD>
  138.     </TR>
  139.    </TABLE>
  140.    </CENTER>
  141.    </P>
  142.  
  143.  
  144.   </TD>
  145.  </TR>
  146. </TABLE>
  147.  
  148.  
  149. </BODY>
  150. </HTML>
  151.  
  152. <[
  153.     CATCH ( err )
  154.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  155.         return( 0 )
  156.     END
  157. ]>
  158.  
  159.