sd/res/webview/savepic.asp

   1 <%
   2     Option Explicit
   3     Response.Expires = 0
   4     Response.Buffer = True
   5 %>
   6 <!--
   7  * This file is part of the LibreOffice project.
   8  *
   9  * This Source Code Form is subject to the terms of the Mozilla Public
  10  * License, v. 2.0. If a copy of the MPL was not distributed with this
  11  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
  12  *
  13  * This file incorporates work covered by the following license notice:
  14  *
  15  *   Licensed to the Apache Software Foundation (ASF) under one or more
  16  *   contributor license agreements. See the NOTICE file distributed
  17  *   with this work for additional information regarding copyright
  18  *   ownership. The ASF licenses this file to you under the Apache
  19  *   License, Version 2.0 (the "License"); you may not use this file
  20  *   except in compliance with the License. You may obtain a copy of
  21  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  22 -->
  23
  24 <!-- #include file = "common.inc" -->
  25
  26 <%
  27     ' get new picture
  28     Dim sCurrPic,aPictureArray, nUpper, nCurrPic
  29
  30     aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
  31     nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)
  32
  33     sCurrPic = Request( "CurrPic" )
  34
  35     ' check if + or - was pressed
  36     select case Request( "Auswahl" )
  37         case "+"
  38             if isNumeric( sCurrPic ) then
  39                 sCurrPic = CStr( CLng( sCurrPic ) + 1 )
  40             end if
  41         case "-"
  42             if isNumeric( sCurrPic ) then
  43                 sCurrPic = CStr( CLng( sCurrPic ) - 1 )
  44             end if
  45     end select
  46
  47     ' save picture name
  48         if isNumeric( sCurrPic ) then
  49                 if (CInt( sCurrPic ) > 0) and ( CInt( sCurrPic ) <= nUpper ) then
  50                         call File_writeVirtual( "currpic.txt", ".", sCurrPic )
  51                 end if
  52         end if
  53
  54     ' return to edit page
  55     Response.Redirect( "./editpic.asp" )
  56 %>