Ero sivun ”Kaupunkipyörä/lainaus” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (malline lisätty) |
(location otettu käyttöön telinenron sijasta) |
||
| Rivi 3: | Rivi 3: | ||
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 15: | ||
} 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 28: | ||
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, | ||