Ero sivun ”Kaupunkipyörä/lainaus” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (malline lisätty) |
pEi muokkausyhteenvetoa |
||
| (Yhtä välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä) | |||
| Rivi 1: | Rivi 1: | ||
[[Luokka:Kaupunkipyörä]] | |||
<rcode name="lainaukset" label="Lainaa tai palauta" embed=1 showcode=-1 variables=" | <rcode name="lainaukset" label="Lainaa tai palauta" embed=1 showcode=-1 variables=" | ||
name:laina|description:Lainaatko vai palautatko?|type:selection|options:'Laina';Lainaan;'Palautus';Palautan|default:'Palautus'| | name:laina|description:Lainaatko vai palautatko?|type:selection|options:'Laina';Lainaan;'Palautus';Palautan|default:'Palautus'| | ||
name:pyöränro|description:Mikä on pyörän numero?| | name:pyöränro|description:Mikä on pyörän numero?| | ||
name: | name:location|description:Raahaa nasta pyörätelineen kohdalle.|type:location| | ||
name:asiakasnro|description:Mikä on asiakastunnuksesi?| | name:asiakasnro|description:Mikä on asiakastunnuksesi?| | ||
name:aika|description:Aikaleima|type:datetime | name:aika|description:Aikaleima|type:datetime | ||
| Rivi 15: | Rivi 16: | ||
} else { | } else { | ||
avain <- sample(9999, 1) | avain <- sample(9999, 1) | ||
} | |||
teline <- opbase.data("Op_fi3857", subset = "Pyörätelineet") | |||
teline <- teline[abs(teline$LA - location[1]) < 0.002 & abs(teline$LO - location[2]) < 0.004 , ] | |||
if(nrow(teline) == 0) { | |||
cat("Ilmoittamastasi paikasta ei löydy pyörätelinettä. Toimenpide ei onnistunut.\n") | |||
stop("Tietoa ei tallennettu.\n") | |||
} | } | ||
| Rivi 20: | Rivi 29: | ||
Laina = laina, | Laina = laina, | ||
Pyöränro = pyöränro, | Pyöränro = pyöränro, | ||
Telinenro = | Telinenro = teline$Telinenro, | ||
Asiakasnro = asiakasnro, | Asiakasnro = asiakasnro, | ||
Avain = avain, | Avain = avain, | ||