Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(automatisoitu) |
(palautustoiminnot jätetty automaattisiksi) |
||
| (3 välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| Rivi 1: | Rivi 1: | ||
[[Luokka:Kaupunkipyörä]] | |||
<rcode name="lainaus" label="Tee kirjaus" live=1 showcode=-1 variables=" | <rcode name="lainaus" label="Tee kirjaus" live=1 showcode=-1 variables=" | ||
name:paikka|description:Mihin palautat pyörän?|type: | name:paikka|description:Mistä lainaat pyörän/Mihin palautat pyörän?|type:selection|options: | ||
0;Testaan systeemiä; | |||
1;Palautan kaupungintalolle; | |||
2;Palautan vavi-talolle; | |||
3;Palautan pääterveysasemalle; | |||
5;Pyörä on hukassa|default:0 | |||
"> | |||
# | # name:lainaaja|description:Mikä on nimesi?|type:text| | ||
# name:puh|description:Mikä on puhelinnumerosi?|type:text| | |||
# 6;Lainaan kaupungintalolta; | |||
# 7;Lainaan vavi-talolta; | |||
# 8;Lainaan pääterveysasemalta; | |||
# This is code Op_fi5440/lainaus on page [[Kuopion kaupunkipyörä/lainaus]] | |||
# Parameters: | # Parameters: | ||
## lainaaja: kuka lainasi pyörän | |||
## puh: lainaajan puhelinnumero | |||
## paikka: place where the bike was returned: selection (text string) | ## paikka: place where the bike was returned: selection (text string) | ||
| Rivi 18: | Rivi 27: | ||
olink("Kuopion_kaupunkipyörä", wiki = "op_fi", text = "Kuopion kaupunkipyörä") | olink("Kuopion_kaupunkipyörä", wiki = "op_fi", text = "Kuopion kaupunkipyörä") | ||
} else { | } else { | ||
paikka <- c(" | paikka <- c("Kaupungintalolla", "Vavi-talolla", "Pääterveysasemalla", "", "Hukassa", "Lainassa kaupungintalolta", | ||
"Lainassa vavi-talolta", "Lainassa pääterveysasemalta")[paikka] | |||
dat <- data.frame( | dat <- data.frame( | ||
Lainaaja = wiki_username, | Lainaaja = wiki_username, | ||
Puhelinnumero = "", | |||
Sijainti = paikka, | Sijainti = paikka, | ||
Result = as.numeric(Sys.time()) | Result = as.numeric(Sys.time()) | ||
| Rivi 40: | Rivi 51: | ||
oprint(out, include.rownames = FALSE) | oprint(out, include.rownames = FALSE) | ||
cat("Tieto on onnistuneesti tallennettu.\n") | cat("Tieto pyörän nykyisestä sijainnista on onnistuneesti tallennettu.\n") | ||
} | } | ||
</rcode> | </rcode> | ||
Nykyinen versio 28. kesäkuuta 2016 kello 12.49