Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
(automatisoitu) |
||
| Rivi 1: | Rivi 1: | ||
<rcode name="lainaus" label="Tee kirjaus" | <rcode name="lainaus" label="Tee kirjaus" live=1 showcode=-1 variables=" | ||
name:paikka|description:Mihin palautat pyörän?|type:selection|options: | name:paikka|description:Mihin palautat pyörän?|type:hidden|default:0"> | ||
#selection|options: | |||
# 1;Kaupungintalolle; | |||
# 2;Vavi-talolle; | |||
# 3;Pääterveysasemalle; | |||
"> | # 4;En palauta vaan otan lainaan|default:4 | ||
#"> | |||
# This is code Op_fi####/lainaus on page [[Kuopion kaupunkipyörä/lainaus]] | # This is code Op_fi####/lainaus on page [[Kuopion kaupunkipyörä/lainaus]] | ||
# Parameters: | # Parameters: | ||
| Rivi 12: | Rivi 13: | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainassa")[paikka] | if(paikka == 0) { | ||
library(OpasnetUtilsExt) | |||
cat("Aloita sivulta\n") | |||
olink("Kuopion_kaupunkipyörä", wiki = "op_fi", text = "Kuopion kaupunkipyörä") | |||
} else { | |||
paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainassa")[paikka] | |||
dat <- data.frame( | dat <- data.frame( | ||
Lainaaja = wiki_username, | |||
Sijainti = paikka, | |||
Result = as.numeric(Sys.time()) | |||
) | ) | ||
opbase.upload( | opbase.upload( | ||
dat, | |||
ident = "Op_fi5439", | |||
name = "Kuopion kaupunkipyörä", | |||
subset = "Lainaukset", | |||
act_type = "append", | |||
language = "eng", | |||
who = wiki_username | |||
) | ) | ||
out <- dat | |||
out$Result <- as.character(as.POSIXct(out$Result, origin = "1970-01-01 00:00.00 UTC")) | |||
oprint(out, include.rownames = FALSE) | |||
cat("Tieto on onnistuneesti tallennettu.\n") | |||
} | |||
cat("Tieto on onnistuneesti tallennettu.\n") | |||
</rcode> | </rcode> | ||