diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 09:06:44 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 09:06:44 +0000 |
| commit | ed5640d8b587fbcfed7dd7967f3de04b37a76f26 (patch) | |
| tree | 7a5f7c6c9d02226d7471cb3cc8fbbf631b415303 /sd/res/webview/editpic.asp | |
| parent | Initial commit. (diff) | |
| download | libreoffice-ed5640d8b587fbcfed7dd7967f3de04b37a76f26.tar.xz libreoffice-ed5640d8b587fbcfed7dd7967f3de04b37a76f26.zip | |
Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'sd/res/webview/editpic.asp')
| -rw-r--r-- | sd/res/webview/editpic.asp | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/sd/res/webview/editpic.asp b/sd/res/webview/editpic.asp new file mode 100644 index 000000000..78599e0fd --- /dev/null +++ b/sd/res/webview/editpic.asp @@ -0,0 +1,75 @@ +<% + Option Explicit + Response.Expires = 0 + Response.Buffer = True +%> +<!-- + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . +--> + +<!-- #include file = "common.inc" --> + + +<% + Dim aPictureArray, nPic, nUpper + + aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) + nPic = File_readVirtual( "currpic.txt", "." ) + nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) +%> + +<HTML> +<HEAD> +</HEAD> +<BODY> + <FORM action="savepic.asp" method=get> + <% + 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 + %> + <INPUT type=submit name="Auswahl" value="-"></INPUT> + <% + else + %> + <INPUT type=button value=" "></INPUT> + <% + end if + %> + <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT> + <% + if CInt( nPic ) < CInt( nUpper ) then + %> + <INPUT type=submit name="Auswahl" value="+"></INPUT> + <% + else + %> + <INPUT type=button value=" "></INPUT> + <% + end if + %> + <INPUT type=submit name="Auswahl" value="$$2"></INPUT> + </FORM> +</BODY> +</HTML> |