| Line 547... |
Line 547... |
| 547 |
End If
|
547 |
End If
|
| 548 |
End If
|
548 |
End If
|
| 549 |
|
549 |
|
| 550 |
End If
|
550 |
End If
|
| 551 |
|
551 |
|
| 552 |
' Determine if user acn make the the package 'unofficial'
|
552 |
' Determine if user can make the the package 'unofficial'
|
| 553 |
If (pkgInfoHash.Item ("dlocked") = "Y") _
|
553 |
If (pkgInfoHash.Item ("dlocked") = "Y") _
|
| 554 |
AND (pkgInfoHash.Item ("build_type") = "M") _
|
554 |
AND (pkgInfoHash.Item ("build_type") = "M") _
|
| 555 |
AND (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
|
555 |
AND (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
|
| 556 |
AND (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
|
556 |
AND (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
|
| 557 |
Then
|
557 |
Then
|
| Line 748... |
Line 748... |
| 748 |
|
748 |
|
| 749 |
Requred_Parameters_String = tempSTR
|
749 |
Requred_Parameters_String = tempSTR
|
| 750 |
End Function
|
750 |
End Function
|
| 751 |
'-----------------------------------------------------------------------------------------------------------------------------
|
751 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 752 |
Function Quick_Help ( SStipname )
|
752 |
Function Quick_Help ( SStipname )
|
| 753 |
Quick_Help = "<a href='javascript:;' onMouseOver=""formTips.show('"& SStipname &"')"" onMouseOut=""formTips.hide()""><img src='images/i_help.gif' width='12' height='12' hspace='2' align='absmiddle' border='0' ></a>"
|
753 |
Quick_Help = "<span onMouseOver=""formTips.show('"& SStipname &"')"" onMouseOut=""formTips.hide()""><img src='images/i_help.gif' width='12' height='12' hspace='2' align='absmiddle' border='0' ></span>"
|
| 754 |
End Function
|
754 |
End Function
|
| 755 |
Function Quick_HelpImg ( SStipname, SSimage )
|
755 |
Function Quick_HelpImg ( SStipname, SSimage )
|
| 756 |
Quick_HelpImg = "<a href='javascript:;' onMouseOver=""formTips.show('"& SStipname &"')"" onMouseOut=""formTips.hide()""><img src='"&SSimage&"' width='12' height='12' hspace='2' align='absmiddle' border='0' ></a>"
|
756 |
Quick_HelpImg = "<span onMouseOver=""formTips.show('"& SStipname &"')"" onMouseOut=""formTips.hide()""><img src='"&SSimage&"' width='12' height='12' hspace='2' align='absmiddle' border='0' ></span>"
|
| 757 |
End Function
|
757 |
End Function
|
| 758 |
|
758 |
|
| 759 |
'-----------------------------------------------------------------------------------------------------------------------------
|
759 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 760 |
Function LogError ( SSlog, SSstr )
|
760 |
Function LogError ( SSlog, SSstr )
|
| 761 |
'|errstr1||errstr2||errstr3|...
|
761 |
'|errstr1||errstr2||errstr3|...
|
| Line 2486... |
Line 2486... |
| 2486 |
' Work in progress - Still being constructed. Cannot be added to a Release yet
|
2486 |
' Work in progress - Still being constructed. Cannot be added to a Release yet
|
| 2487 |
SdkIcon = LIMG_OPEN_MODE
|
2487 |
SdkIcon = LIMG_OPEN_MODE
|
| 2488 |
End If
|
2488 |
End If
|
| 2489 |
End Function
|
2489 |
End Function
|
| 2490 |
'-----------------------------------------------------------------------------------------------------------------
|
2490 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
2491 |
'------------------------------------------------------------------------------
|
| - |
|
2492 |
' Helper routine to create buttons and disabled buttons
|
| - |
|
2493 |
' Treat the action an href - link the user can see and potentially open in another tab
|
| - |
|
2494 |
'
|
| - |
|
2495 |
Sub BuildActionButtonLink(bState, sText, sTitle, sImage, sRef)
|
| - |
|
2496 |
%>
|
| - |
|
2497 |
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
|
| - |
|
2498 |
<%If bState Then%>
|
| - |
|
2499 |
<a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>
|
| - |
|
2500 |
<%Else%>
|
| - |
|
2501 |
<span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
|
| - |
|
2502 |
<%End If%>
|
| - |
|
2503 |
</td>
|
| - |
|
2504 |
<%End Sub
|
| - |
|
2505 |
'------------------------------------------------------------------------------
|
| - |
|
2506 |
' Helper routine to create buttons and disabled buttons
|
| - |
|
2507 |
' Treat the ref as a page to goto, but don't use href
|
| - |
|
2508 |
'
|
| - |
|
2509 |
Sub BuildActionButton(bState, sText, sTitle, sImage, sRef)
|
| - |
|
2510 |
%>
|
| - |
|
2511 |
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
|
| - |
|
2512 |
<%If bState Then%>
|
| - |
|
2513 |
<span onClick="location.href='<%=sRef%>'" class="pointer abtnItem"><img <%=sImage%> ><%=sText%></span>
|
| - |
|
2514 |
<%Else%>
|
| - |
|
2515 |
<span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
|
| - |
|
2516 |
<%End If%>
|
| - |
|
2517 |
</td>
|
| - |
|
2518 |
<%End Sub
|
| - |
|
2519 |
'------------------------------------------------------------------------------
|
| - |
|
2520 |
' Helper routine to create buttons and disabled buttons
|
| - |
|
2521 |
' Tack a onClick operation
|
| - |
|
2522 |
'
|
| - |
|
2523 |
Sub BuildActionButtonClickRaw(bState, sText, sTitle, isBlue, sImage, sClick)
|
| - |
|
2524 |
Dim sStyle : sStyle = ""
|
| - |
|
2525 |
If Left(sImage,4) = "<img" Then sImage = Mid(sImage, 5, Len(sImage)-5)
|
| - |
|
2526 |
If bState Then
|
| - |
|
2527 |
If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
|
| - |
|
2528 |
<span onClick="<%=sClick%>" class="pointer abtnItem" style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
|
| - |
|
2529 |
<%Else%>
|
| - |
|
2530 |
<%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
|
| - |
|
2531 |
<span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
|
| - |
|
2532 |
<%End If
|
| - |
|
2533 |
End Sub
|
| - |
|
2534 |
|
| - |
|
2535 |
Sub BuildActionButtonClick(bState, sText, sTitle, isBlue, sImage, sClick)%>
|
| - |
|
2536 |
<td align="right" nowrap valign="center" title="<%=sTitle%>">
|
| - |
|
2537 |
<%BuildActionButtonClickRaw bState, sText, sTitle, isBlue, sImage, sClick %>
|
| - |
|
2538 |
</td>
|
| - |
|
2539 |
<%End Sub
|
| - |
|
2540 |
|
| - |
|
2541 |
'------------------------------------------------------------------------------
|
| - |
|
2542 |
' Helper routine to create Text with a button that follows
|
| - |
|
2543 |
' Tack a onClick operation
|
| - |
|
2544 |
'
|
| - |
|
2545 |
Sub BuildEditButtonRaw(bState, sText, sTitle, isBlue, sImage, sClick)
|
| - |
|
2546 |
Dim sStyle : sStyle = "font-weight:bold;"
|
| - |
|
2547 |
Dim sClass : sClass = ""
|
| - |
|
2548 |
If Left(sImage,4) = "<img" Then sImage = Mid(sImage, 5, Len(sImage)-5)
|
| - |
|
2549 |
If bState Then
|
| - |
|
2550 |
If isBlue Then sClass = "txt_linked" : sStyle = ""%>
|
| - |
|
2551 |
<span onClick="<%=sClick%>" class="<%=sClass%> pointer" style="<%=sStyle%>"><%=sText%> <img <%=sImage%>></span>
|
| - |
|
2552 |
<%Else%>
|
| - |
|
2553 |
<%If isBlue Then sClass = "txt_linked_dis" : sStyle = ""%>
|
| - |
|
2554 |
<span style="<%=sStyle%>" class="<%=sClass%>" ><%=sText%> <img <%=sImage%> class="lessOpacity"></span>
|
| - |
|
2555 |
<%End If
|
| - |
|
2556 |
End Sub%>
|
| 2491 |
|
2557 |
|
| 2492 |
%>
|
- |
|