home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / STUFF.FG_ / STUFF.FG
Encoding:
Text File  |  1997-12-08  |  3.7 KB  |  154 lines
  1.  
  2. FUNCTION DisplayUsefulStuff( desk, scope, updateflag )
  3.  
  4.     local str, items, item, data, i, y, flag, clr
  5.  
  6.     // scope: 1=public, 2=private, 3=both, 0=neither
  7.     if ( type( scope ) != "N" )
  8.         scope = 3
  9.     end
  10.     if ( type( updateflag ) != "N" )
  11.         updateflag = 0
  12.     end
  13.     str = "<P>\r\n"
  14.        str += "<CENTER>\r\n"
  15.     str += "<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=2>\r\n"
  16.     str += "<TR>\r\n"
  17.  
  18.     items = desk.data.GetItems( "stuff" )
  19.     i=1
  20.     y=1
  21.     item = strextract( items, ";", i )
  22.     while ( ! strempty( item ) )
  23.         if ( y > 3 )
  24.             y = 1
  25.             str += "</TR><TR>\r\n"
  26.         end
  27.         data = desk.data.GetString( "stuff", item, "" )
  28.         if ( ! strempty( data ) )
  29.             flag = 0 + strextract( data, "|", 4 )
  30. //            if ( ( ! ( flag & scope ) ) && ( ! updateflag ) )
  31. //                y--
  32. //            else
  33.             if ( ( flag & scope ) || updateflag )
  34.                 if ( updateflag )
  35.                     clr = "black"
  36.                     if ( flag & 1 )
  37.                         clr = "green"
  38.                     elseif ( flag & 2 )
  39.                         clr = "red"
  40.                     end
  41.                     if ( ( flag & 1 ) && ( flag & 2 ) )
  42.                         clr = "blue"
  43.                     end
  44.                     str += " <td align=center><a href=\"_stuff.ap?item=" + item + "\"><img src=\"" + strextract( data, "|", 3 ) + "\" border=0 width=75 height=75></a><br><font size=2 color=" + clr + ">" + strextract( data, "|", 1 ) + "</font></td>\r\n"
  45.                 else
  46.                     str += " <td align=center><a href=\"" + strextract( data, "|", 2 ) + "\"><img src=\"" + strextract( data, "|", 3 ) + "\" border=0 width=75 height=75></a><br><font size=2>" + strextract( data, "|", 1 ) + "</font></td>\r\n"
  47.                 end
  48.                 y++
  49.             end
  50.         end
  51.         i++
  52.         item = strextract( items, ";", i )
  53.     end
  54.  
  55.     str += "</TR>\r\n"
  56.     str += "</TABLE>\r\n"
  57.     if ( updateflag )
  58.         str += "<br><FONT SIZE=2 COLOR=green>Public</FONT> | <FONT SIZE=2 COLOR=red>Private</FONT> | <FONT SIZE=2 COLOR=blue>Both</FONT> | <FONT SIZE=2>Neither</FONT>"
  59.     end
  60.        str += "</CENTER>\r\n"
  61.        str += "</P>\r\n"
  62.     
  63.     return( str )
  64. END
  65.  
  66.  
  67.  
  68. CLASS UsefulStuffItem
  69.   PUBLIC:
  70.     local desk, item
  71.     local desc, image, action, scope
  72.     
  73.     METHOD new( desk, item )
  74.         ::desk = desk
  75.         ::item = 0 + item
  76.         if ( ::item < 1 )
  77.             ::item = 1
  78.         end
  79.         return( ::load( ) )
  80.     END
  81.  
  82.  
  83.     METHOD createnew( )
  84.         local items, cnt
  85.         items = ::desk.data.GetItems( "stuff" )
  86.         cnt = chrcount( ";", items ) + 1
  87.         ::item = 1 + strextract( items, ";", cnt )
  88.         ::desc = "New"
  89.         ::image = "help.jpg"
  90.         ::action = ""
  91.         ::scope = 3        
  92.         return( ::save( ) )
  93.     END
  94.  
  95.  
  96.     METHOD delete( )
  97.         local rc, items
  98.         rc = ::desk.data.setstring( "stuff", "" + ::item, "" )
  99.         items = ::desk.data.GetItems( "stuff" )
  100.         ::item = 0 + strextract( items, ";", 1 )
  101.         ::load( )
  102.         return( rc )
  103.     END
  104.  
  105.  
  106.     METHOD Display( )
  107.         return( "<center><a href=\"" + ::action + "\"><img src=\"" + ::image + "\" border=1 width=150 height=150></a><br><font size=4>" + ::desc + "</font></center>\r\n" )
  108.     END
  109.     
  110.  
  111.     METHOD load( )
  112.         local data
  113.         
  114.         data = ::desk.data.getstring( "stuff", "" + ::item, "" )
  115.         if ( strempty( data ) )
  116.             return( 0 )
  117.         end
  118.         ::desc = strextract( data, "|", 1 )
  119.         ::action = strextract( data, "|", 2 )
  120.         ::image = strextract( data, "|", 3 )
  121.         ::scope = 0 + strextract( data, "|", 4 )
  122.         
  123.         return( 1 )
  124.     END
  125.  
  126.  
  127.     METHOD save( )
  128.         local str
  129.         str = ::desc + "|" + ::action + "|" + ::image + "|" + ::scope
  130.         return( ::desk.data.setstring( "stuff", "" + ::item, str ) )
  131.     END
  132.  
  133.  
  134.     METHOD UpdateFromForm( )
  135.         local i
  136.         ::desc = ::desk.session.var( "desc" )
  137.         ::action = ::desk.session.var( "action" )
  138.         ::image = ::desk.session.var( "image" )
  139.         i = 0
  140.         if ( ::desk.session.var( "ispublic" ) == "on" )
  141.             i |= 1
  142.         end
  143.         if ( ::desk.session.var( "isprivate" ) == "on" )
  144.             i |= 2
  145.         end
  146.         ::scope = i
  147.         
  148.         return( ::save( ) )    
  149.     END
  150.  
  151.  
  152. END
  153.  
  154.