<% Option Explicit Response.Expires = 0 Response.Buffer = True %> <% Dim aPictureArray, nPic, nUpper aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) nPic = File_readVirtual( "currpic.txt", "." ) nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) %>
<% if isNumeric(nPic) then if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then nPic = nUpper end if else nPic = nUpper end if if CInt( nPic ) > 1 then %> <% else %> <% end if %> <% if CInt( nPic ) < CInt( nUpper ) then %> <% else %> <% end if %>
-5.3 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/xmlscript
AgeCommit message (Collapse)Author
2014-02-26cppuhelper: retrofit std::exception into overriding exception specsStephan Bergmann
Change-Id: I56e32131b7991ee9948ce46765632eb823d463b3
2014-02-26Remove visual noise from xmlscriptAlexander Wilms
Change-Id: Id984fe846f28eba50f0fd480dca235482d150dd9 Reviewed-on: https://gerrit.libreoffice.org/8347 Reviewed-by: Caolán McNamara <caolanm@redhat.com> Tested-by: Caolán McNamara <caolanm@redhat.com>
2014-02-23Remove unneccessary commentsAlexander Wilms
Change-Id: I939160ae72fecbe3d4a60ce755730bd4c38497fb Reviewed-on: https://gerrit.libreoffice.org/8182 Reviewed-by: Caolán McNamara <caolanm@redhat.com> Tested-by: Caolán McNamara <caolanm@redhat.com>