home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / CONTACT.FG_ / CONTACT.FG
Encoding:
Text File  |  1997-12-08  |  4.6 KB  |  92 lines
  1. FUNCTION DisplayPhone( phone )
  2.     if ( strempty( phone ) )
  3.         return( "" )
  4.     end
  5.        return( "<b><p>" + strextract( phone, "|", 1 ) + "</b><br>" + strextract( phone, "|", 2 ) + "</p>" )
  6. END
  7.  
  8.  
  9. CLASS contact
  10.   // Requires access to the PrivateDesktop Class
  11.  
  12.   PUBLIC:
  13.       local desk
  14.       
  15.       METHOD new( desk )
  16.           ::desk = desk
  17.           return( 1 )
  18.       END
  19.  
  20.     METHOD display( )
  21.         local str
  22.            str = "<P><CENTER><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD>\r\n"
  23.            str += "<FONT SIZE=5>" + ::desk.fullname + "</FONT><br>\r\n"
  24.         str += ::desk.title + "<br><br>\r\n"
  25.            str += "<FONT SIZE=4>" + ::desk.company + "</FONT><br>\r\n"
  26.            str += ::desk.street + "<br>\r\n"
  27.            str += ::desk.city + " " + ::desk.state + " " + ::desk.zip + "\r\n"
  28.            if ( ! strempty( ::desk.email ) )
  29.                str += "<br><br><a href=\"mailto:" + ::desk.email + "\"><FONT SIZE=4>Email Address</FONT></a>:<br>" + ::desk.email + "\r\n"
  30.            end
  31.            str += "</TD><TD VALIGN=top ALIGN=right><FONT SIZE=2>\r\n"
  32.          str += DisplayPhone( ::desk.phone1 ) + "\r\n"
  33.          str += DisplayPhone( ::desk.phone2 ) + "\r\n"
  34.          str += DisplayPhone( ::desk.phone3 ) + "\r\n"
  35.          str += DisplayPhone( ::desk.phone4 ) + "\r\n"
  36.          str += DisplayPhone( ::desk.phone5 ) + "\r\n"
  37.          str += DisplayPhone( ::desk.phone6 ) + "\r\n"
  38.            str += "</FONT></TD></TR></TABLE></P>\r\n"
  39.            
  40.            return( str )
  41.        END
  42.  
  43.  
  44.     METHOD update( )
  45.         local str
  46.         str = "<FORM src=\"\" METHOD=\"GET\">\r\n"
  47.            str += "<INPUT TYPE=\"hidden\" NAME=\"cmd\" VALUE=\"contact\">\r\n"
  48.            str += "<P><CENTER><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD VALIGN=top >\r\n"
  49.            str += "<FONT SIZE=2>First Name/Last Name/Title:<br><INPUT NAME=\"fname\" TYPE=\"edit\" SIZE=12 VALUE=\"" + ::desk.fname + "\">  <INPUT NAME=\"lname\" TYPE=\"edit\" SIZE=20 VALUE=\"" + ::desk.lname + "\"><br>\r\n"
  50.         str += "<INPUT NAME=\"title\" TYPE=\"edit\" SIZE=35 VALUE=\"" + ::desk.title + "\"><br><br>\r\n"
  51.         str += "Company/Street/City/State/Zip:<br><INPUT NAME=\"company\" TYPE=\"edit\" SIZE=35 VALUE=\"" + ::desk.company + "\"><br>\r\n"
  52.         str += "<INPUT NAME=\"street\" TYPE=\"edit\" SIZE=35 VALUE=\"" + ::desk.street + "\"><br>\r\n"
  53.         str += "<INPUT NAME=\"city\" TYPE=\"edit\" SIZE=17 VALUE=\"" + ::desk.city + "\">  <INPUT NAME=\"state\" TYPE=\"edit\" SIZE=5 VALUE=\"" + ::desk.state + "\">  <INPUT NAME=\"zip\" TYPE=\"edit\" SIZE=7 VALUE=\"" + ::desk.zip + "\"><br><br>\r\n"
  54.         str += "Email Address:<br><INPUT NAME=\"email\" TYPE=\"edit\" SIZE=35 VALUE=\"" + ::desk.email + "\"><br><br>\r\n"
  55.         str += "<INPUT TYPE=\"submit\" VALUE=\"Update Contact Information\">\r\n"
  56.            str += "</TD><TD VALIGN=top ALIGN=right><FONT SIZE=2>\r\n"
  57.         str += "Phone #1:<br><INPUT NAME=\"phone1a\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone1, "|", 1 ) + "\"><br>\r\n"
  58.         str += "<INPUT NAME=\"phone1b\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone1, "|", 2 ) + "\"><br>\r\n"
  59.         str += "Phone #2:<br><INPUT NAME=\"phone2a\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone2, "|", 1 ) + "\"><br>\r\n"
  60.         str += "<INPUT NAME=\"phone2b\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone2, "|", 2 ) + "\"><br>\r\n"
  61.         str += "Phone #3:<br><INPUT NAME=\"phone3a\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone3, "|", 1 ) + "\"><br>\r\n"
  62.         str += "<INPUT NAME=\"phone3b\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone3, "|", 2 ) + "\"><br>\r\n"
  63.         str += "Phone #4:<br><INPUT NAME=\"phone4a\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone4, "|", 1 ) + "\"><br>\r\n"
  64.         str += "<INPUT NAME=\"phone4b\" TYPE=\"edit\" SIZE=12 VALUE=\"" + strextract( ::desk.phone4, "|", 2 ) + "\"><br>\r\n"
  65.            str += "</FONT></TD></TR></TABLE></P>\r\n"
  66.         str += "</FORM>\r\n"
  67.         return( str )
  68.     END
  69.  
  70.     METHOD UpdateFromForm( )
  71.     
  72.         ::desk.fname = ::desk.session.var( "fname" )
  73.         ::desk.lname = ::desk.session.var( "lname" )
  74.         ::desk.title = ::desk.session.var( "title" )
  75.         ::desk.company = ::desk.session.var( "company" )
  76.         ::desk.street = ::desk.session.var( "street" )
  77.         ::desk.city = ::desk.session.var( "city" )
  78.         ::desk.state = ::desk.session.var( "state" )
  79.         ::desk.zip = ::desk.session.var( "zip" )
  80.         ::desk.email = ::desk.session.var( "email" )
  81.         ::desk.phone1 = ::desk.session.var( "phone1a" ) + "|" + ::desk.session.var( "phone1b" )
  82.         ::desk.phone2 = ::desk.session.var( "phone2a" ) + "|" + ::desk.session.var( "phone2b" )
  83.         ::desk.phone3 = ::desk.session.var( "phone3a" ) + "|" + ::desk.session.var( "phone3b" )
  84.         ::desk.phone4 = ::desk.session.var( "phone4a" ) + "|" + ::desk.session.var( "phone4b" )
  85.     
  86.         ::desk.updateContact( )
  87.         
  88.         return( 1 )    
  89.     END
  90.        
  91. END
  92.