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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(lisätty linkki keskustelusivulle)
(järjestystä parannettu)
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>
'''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]].
<noinclude>Jos haluat löytää tällä sivulla aiemmin olleen kommentin, mene sivulle [[Kommenttihaku]] ja anna kommentin tunnistelinkki.</noinclude>
 
<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 embed=1 label="Lisää kommentti" showcode=-1 variables="
Rivi 112: Rivi 69:
}
}
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>Jos haluat löytää tällä sivulla aiemmin olleen kommentin, mene sivulle [[Kommenttihaku]] ja anna kommentin tunnistelinkki.</noinclude>
<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>
</rcode>
'''Poistettavat kommentit''' (varsinaiseen tekstiin siirretyt)
{{piilotettu|
'''Poistettavat kommentit''' (varsinaiseen tekstiin siirretyt)


<rcode embed=1 label="Poista kommentti" showcode=-1 variables="
<rcode embed=1 label="Poista kommentti" showcode=-1 variables="
Rivi 153: Rivi 155:


</rcode>
</rcode>
<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>

Versio 10. heinäkuuta 2015 kello 13.34

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=29467”