Ero sivun ”Malline:Kommentointityökalu” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(lisätty linkki keskustelusivulle)
pEi muokkausyhteenvetoa
 
(4 välissä olevaa versiota 2 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
[[Luokka:Sisältää kommentointityökalun]]
[[Luokka:Sisältää kommentointityökalun]]
;<span id="Kommentit">Tämänhetkiset kommentit, joita ei ole vielä sisällytetty sivulle tai keskustelusivulle.</span>
<noinclude>
<noinclude>Jos haluat löytää tällä sivulla aiemmin olleen kommentin, mene sivulle [[Kommenttihaku]] ja anna kommentin tunnistelinkki.</noinclude>
'''Voit kommentoida sisältöä''' myös kirjautumatta Opasnettiin yksinkertaisesti kirjoittamalla kommenttisi alla olevaan kenttään. Sivun moderaattori siirtää kommenttisi asiasisällön osaksi sivun tekstiä ja siirtää kommentin sitten arkistoon: {{tuloslinkki}}. Etsi lisätietoja tehdyistä muutoksista [[Keskustelu:{{PAGENAME}}|keskustelusivulta]].
 
<rcode label="Näytä kommentit" embed=1 showcode=-1 variables="
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)
library(OpasnetUtilsExt)
 
pagename <- gsub(" ", "_", pagename)
dat <- tryCatch(
opbase.data(ident, subset = "Kommentit"),
error = function(...) return(NULL)
)
 
if (is.null(dat)) oprint("Kommentteja ei löytynyt") else {
poistot <- tryCatch(
opbase.data(ident, subset = "Kommentinpoistot"),
error = function(...) return(NULL)
)
if (!is.null(poistot)) dat <- dat[!dat$JaeID %in% poistot$Result, ]
if(nrow(dat) == 0) {
oprint("Kaikki kommentit on sisällytetty tekstiin.")
} else {
oprint(dat, include.rownames = FALSE)
# cat("Kommenttien tunnistelinkit (tarvitaan tägäyksessä):\n")
#
# for(i in 1:nrow(dat)) {
# olink(
# paste(pagename, "?Komm=", dat$Obs[i], "#Kommentit", sep = ""),
# wiki = "op_fi",
# text = paste(dat$Obs[i], substr(dat$Kommentti[i], 1, 30))
# )
# if(i == nrow(dat)) cat("\n") else cat(" &middot; ")
# }
}
}
</rcode>
'''Voit kommentoida sisältöä''' myös kirjautumatta Opasnetiin yksinkertaisesti kirjoittamalla kommenttisi alla olevaan kenttään. Sivun moderaattori siirtää kommenttisi asiasisällön osaksi sivun tekstiä ja siirtää kommentin sitten arkistoon: {{tuloslinkki}}. Etsi lisätietoja tehdyistä muutoksista [[Keskustelu:{{PAGENAME}}|keskustelusivulta]].


<rcode embed=1 label="Lisää kommentti" showcode=-1 variables="
<rcode name="kommentti_lisaa" embed=1 label="Lisää kommentti" showcode=-1 variables="
name:kommentti|description:Kommenttisi tämän sivun sisältöön tai keskusteluun|type:textbox|
name:kommentti|description:Kommenttisi tämän sivun sisältöön tai keskusteluun|type:textbox|
name:liittymä|description:Mihin sivun kohtaan kommenttisi liittyy?|type:{{{2|text}}}|
name:liittymä|description:Mihin sivun kohtaan kommenttisi liittyy?|type:{{{2|text}}}|
Rivi 53: Rivi 11:
library(OpasnetUtils)
library(OpasnetUtils)


# Vähän vaarallista että mikä tahansa virhe jothaa siihen että  
# Vähän vaarallista että mikä tahansa virhe johtaa siihen että  
# data tulkitaan olemassa olemattomaksi, R tietokantafunktiot ovat  
# data tulkitaan olemassa olemattomaksi, R tietokantafunktiot ovat  
# jäljessä kehitystä: .series ja .locations eivät toimi subseteille.
# jäljessä kehitystä: .series ja .locations eivät toimi subseteille.
Rivi 112: Rivi 70:
}
}
oprint("Kommenttisi on onnistuneesti tallennettu.")
oprint("Kommenttisi on onnistuneesti tallennettu.")
</rcode>
----
;<span id="Kommentit">Tämänhetkiset kommentit, joita ei ole vielä sisällytetty sivulle tai keskustelusivulle.</span>
</noinclude><noinclude>Jos haluat löytää tällä sivulla aiemmin olleen kommentin, mene sivulle [[Kommenttihaku]] ja anna kommentin tunnistelinkki.</noinclude><noinclude>
<rcode name="kommentti_nayta" label="Näytä kommentit" embed=1 showcode=-1 variables="
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)
#library(OpasnetUtilsExt)
pagename <- gsub(" ", "_", pagename)
dat <- tryCatch(
opbase.data(ident, subset = "Kommentit"),
error = function(...) return(NULL)
)
if (is.null(dat)) oprint("Kommentteja ei löytynyt") else {
poistot <- tryCatch(
opbase.data(ident, subset = "Kommentinpoistot"),
error = function(...) return(NULL)
)
if (!is.null(poistot)) dat <- dat[!dat$JaeID %in% poistot$Result, ]
if(nrow(dat) == 0) {
oprint("Kaikki kommentit on sisällytetty tekstiin.")
} else {
oprint(dat, include.rownames = FALSE)
# cat("Kommenttien tunnistelinkit (tarvitaan tägäyksessä):\n")
#
# for(i in 1:nrow(dat)) {
# olink(
# paste(pagename, "?Komm=", dat$Obs[i], "#Kommentit", sep = ""),
# wiki = "op_fi",
# text = paste(dat$Obs[i], substr(dat$Kommentti[i], 1, 30))
# )
# if(i == nrow(dat)) cat("\n") else cat(" &middot; ")
# }
}
}
</rcode>
</rcode>
'''Poistettavat kommentit''' (varsinaiseen tekstiin siirretyt)
{{piilotettu|
'''Poistettavat kommentit''' (varsinaiseen tekstiin siirretyt)


<rcode embed=1 label="Poista kommentti" showcode=-1 variables="
<rcode name="kommentti_poista" embed=1 label="Poista kommentti" showcode=-1 variables="
name:jaeid|description:Poistettavan kommentin ID|type:text|
name:jaeid|description:Poistettavan kommentin ID|type:text|
name:syy|description:Poiston syy|type:selection|options:
name:syy|description:Poiston syy|type:selection|options:
Rivi 153: Rivi 156:


</rcode>
</rcode>
<noinclude>
}}
</noinclude><noinclude>
; Katso mallineen käyttöohjeet sivulta [[Kommentointityökalu]]
; Katso mallineen käyttöohjeet sivulta [[Kommentointityökalu]]
[[op_en:Template:Commenting tool]]
[[op_en:Template:Commenting tool]]
</noinclude>
</noinclude>

Nykyinen versio 29. marraskuuta 2020 kello 13.00


Voit kommentoida sisältöä myös kirjautumatta Opasnettiin yksinkertaisesti kirjoittamalla kommenttisi alla olevaan kenttään. Sivun moderaattori siirtää kommenttisi asiasisällön osaksi sivun tekstiä ja siirtää kommentin sitten arkistoon: {{#opasnet_base_link:Op_fi4225}} . Etsi lisätietoja tehdyistä muutoksista keskustelusivulta.

Kommenttisi tämän sivun sisältöön tai keskusteluun:

Mihin sivun kohtaan kommenttisi liittyy?:

Tämänhetkiset kommentit, joita ei ole vielä sisällytetty sivulle tai keskustelusivulle.

Jos haluat löytää tällä sivulla aiemmin olleen kommentin, mene sivulle Kommenttihaku ja anna kommentin tunnistelinkki.



Katso mallineen käyttöohjeet sivulta Kommentointityökalu
Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Malline:Kommentointityökalu&oldid=36600”