diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:51:28 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:51:28 +0000 |
| commit | 940b4d1848e8c70ab7642901a68594e8016caffc (patch) | |
| tree | eb72f344ee6c3d9b80a7ecc079ea79e9fba8676d /sd/res/webview/editpic.asp | |
| parent | Initial commit. (diff) | |
| download | libreoffice-940b4d1848e8c70ab7642901a68594e8016caffc.tar.xz libreoffice-940b4d1848e8c70ab7642901a68594e8016caffc.zip | |
Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream
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> |