<[
// colors.htm
// Colors Active Page
// (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
LIBRARY webdesk
FUNCTION UpdateColor( desk, var, retval, flag )
clr = desk.session.var( var )
if ( strempty( clr ) )
return( retval )
end
flag = 1
return( clr )
END
TRY
desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
if ( type( desk ) != "O" )
return( 0 )
end
flag = 0
desk.fClrBody = UpdateColor( desk, "fpage", desk.fClrBody, @flag )
desk.bClrBody = UpdateColor( desk, "bpage", desk.bClrBody, @flag )
desk.fClrHdr = UpdateColor( desk, "fhdr", desk.fClrHdr, @flag )
desk.bClrHdr = UpdateColor( desk, "bhdr", desk.bClrHdr, @flag )
desk.ClrLink = UpdateColor( desk, "ulink", desk.ClrLink, @flag )
desk.ClrVLink = UpdateColor( desk, "vlink", desk.ClrVLink, @flag )
if ( flag )
desk.ClrALink = desk.ClrLink
desk.update( )
end
]>
Colors
" + desk.fname ]>'s Color Options
| " + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]> |
<[ ! desk.templateNavBar( ) ]>
Goto Public Desktop
"
]>
|
|
<[
CATCH ( err )
println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
return( 0 )
END
]>
| |