home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / APPRUN.AP_ / APPRUN.AP
Encoding:
Text File  |  1998-04-01  |  531 b   |  31 lines
  1. <[
  2. // apprun.htm
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. LIBRARY webdesk
  6.  
  7. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  8. if ( type( desk ) != "O" )
  9.     return( 0 )
  10. end
  11.  
  12. item = new( "AppItem", desk, desk.session.var( "cat" ), desk.session.var( "item" ) )
  13.  
  14. params = desk.session.var( "param" )
  15. if ( strempty( params ) )
  16.     params = desk.session.var( "data" )
  17. end
  18.  
  19. if ( item.run( params ) == -1 )
  20.     return( 1 )
  21. end
  22.  
  23. desk.session.redir( desk.session.data( "referer" ) )
  24.  
  25. return( 1 )
  26.  
  27. ]>
  28.  
  29.  
  30.  
  31.