Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä

Nykyinen versio 28. kesäkuuta 2016 kello 12.49

@@ Rivi 1: / Rivi 1: @@
-<rcode name="lainaus" label="Tee kirjaus" embed=1 variables="
+[[Luokka:Kaupunkipyörä]]
-	name:paikka|description:Mihin palautat pyörän?|type:selection|options:
-;Kaupungintalolle;
+<rcode name="lainaus" label="Tee kirjaus" live=1 showcode=-1 variables="
-;Vavi-talolle;
+	name:paikka|description:Mistä lainaat pyörän/Mihin palautat pyörän?|type:selection|options:
-;Pääterveysasemalle;
+;Testaan systeemiä;
-;En palauta vaan otan lainaan|default:4
+;Palautan kaupungintalolle;
+;Palautan vavi-talolle;
+;Palautan pääterveysasemalle;
+;Pyörä on hukassa|default:0
 ">
-# This is code Op_fi####/lainaus on page [[Kuopion kaupunkipyörä/lainaus]]
+#	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:
+## lainaaja: kuka lainasi pyörän
+## puh: lainaajan puhelinnumero
 ## paikka: place where the bike was returned: selection (text string)
 library(OpasnetUtils)
-paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainassa")[paikka]
+if(paikka == 0) {
+	library(OpasnetUtilsExt)
-dat <- data.frame(
+	cat("Aloita sivulta\n")
-	Lainaaja = wiki_username,
+	olink("Kuopion_kaupunkipyörä", wiki = "op_fi", text = "Kuopion kaupunkipyörä")
-	Sijainti = paikka,
+} else {
-	Result = as.numeric(Sys.time())
+	paikka <- c("Kaupungintalolla", "Vavi-talolla", "Pääterveysasemalla", "", "Hukassa", "Lainassa kaupungintalolta",
-)
+	"Lainassa vavi-talolta", "Lainassa pääterveysasemalta")[paikka]
-opbase.upload(
+	dat <- data.frame(
-	dat,
+		Lainaaja = wiki_username,
-	ident = "Op_fi5439",
+		Puhelinnumero = "",
-	name = "Kuopion kaupunkipyörä",
+		Sijainti = paikka,
-	subset = "Lainaukset",
+		Result = as.numeric(Sys.time())
-	act_type = "append",
+	)
-	language = "eng",
-	who = wiki_username
-)
-out <- dat
+	opbase.upload(
-out$Result <- as.character(as.POSIXct(out$Result, origin = "1970-01-01 00:00.00 UTC"))
+		dat,
-oprint(out, include.rownames = FALSE)
+		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 pyörän nykyisestä sijainnista on onnistuneesti tallennettu.\n")
+}
 </rcode>

Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä

Nykyinen versio 28. kesäkuuta 2016 kello 12.49

Navigointivalikko