Artifact ffe4f52a7a0bcb4ebe6613740bdd1d278ff2b3dd:
- File
tcl/equipe.tcl
— part of check-in
[556a03da29]
at
2019-08-06 17:41:06
on branch realbackend
— now handling buttons through javascript
(user:
manghi
0000: 23 20 2d 2d 20 65 71 75 69 70 65 2e 74 63 6c 0a # -- equipe.tcl.
0010: 23 0a 23 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 #.#..package req
0020: 75 69 72 65 20 63 6e 72 73 3a 3a 70 61 67 65 0a uire cnrs::page.
0030: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
0040: 3a 3a 72 77 70 61 67 65 20 7b 0a 20 20 20 20 0a ::rwpage {. .
0050: 20 20 20 20 3a 3a 69 74 63 6c 3a 3a 63 6c 61 73 ::itcl::clas
0060: 73 20 45 71 75 69 70 65 20 7b 0a 20 20 20 20 20 s Equipe {.
0070: 20 20 20 69 6e 68 65 72 69 74 20 43 4e 52 53 50 inherit CNRSP
0080: 61 67 65 0a 0a 20 20 20 20 20 20 20 20 70 72 69 age.. pri
0090: 76 61 74 65 20 76 61 72 69 61 62 6c 65 20 6a 73 vate variable js
00a0: 20 7b 0a 20 20 20 20 24 28 66 75 6e 63 74 69 6f {. $(functio
00b0: 6e 28 29 7b 0a 0a 20 20 20 20 20 20 20 20 76 61 n(){.. va
00c0: 72 20 6c 6f 61 64 5f 65 64 69 74 6f 72 20 3d 20 r load_editor =
00d0: 24 28 27 23 6c 6f 61 64 5f 65 64 69 74 6f 72 27 $('#load_editor'
00e0: 29 3b 0a 0a 20 20 20 20 20 20 20 20 6c 6f 61 64 );.. load
00f0: 5f 65 64 69 74 6f 72 2e 62 69 6e 64 28 27 63 6c _editor.bind('cl
0100: 69 63 6b 27 2c 66 75 6e 63 74 69 6f 6e 28 65 76 ick',function(ev
0110: 65 6e 74 29 20 7b 0a 20 20 20 20 20 20 20 20 20 ent) {.
0120: 20 20 20 64 6f 63 75 6d 65 6e 74 2e 6c 6f 63 61 document.loca
0130: 74 69 6f 6e 2e 61 73 73 69 67 6e 28 27 55 52 4c tion.assign('URL
0140: 27 29 3b 0a 20 20 20 20 20 20 20 20 7d 29 3b 0a ');. });.
0150: 0a 20 20 20 20 7d 29 3b 0a 7d 0a 20 20 20 20 20 . });.}.
0160: 20 20 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 7b constructor {
0170: 70 61 67 65 6b 65 79 7d 20 7b 43 4e 52 53 50 61 pagekey} {CNRSPa
0180: 67 65 3a 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 ge::constructor
0190: 24 70 61 67 65 6b 65 79 7d 20 7b 20 7d 0a 0a 20 $pagekey} { }..
01a0: 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 6d 65 public me
01b0: 74 68 6f 64 20 6a 61 76 61 73 63 72 69 70 74 20 thod javascript
01c0: 7b 7d 20 7b 20 0a 20 20 20 20 20 20 20 20 20 20 {} { .
01d0: 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 return [string
01e0: 20 6d 61 70 20 5b 6c 69 73 74 20 55 52 4c 20 5b map [list URL [
01f0: 3a 3a 72 69 76 65 74 77 65 62 3a 3a 63 6f 6d 70 ::rivetweb::comp
0200: 6f 73 65 55 72 6c 20 65 64 69 74 20 5b 24 74 68 oseUrl edit [$th
0210: 69 73 20 6d 65 74 61 64 61 74 61 20 70 61 67 65 is metadata page
0220: 69 64 5d 5d 5d 20 24 6a 73 5d 0a 20 20 20 20 20 id]]] $js].
0230: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 70 75 }.. pu
0240: 62 6c 69 63 20 6d 65 74 68 6f 64 20 70 72 69 6e blic method prin
0250: 74 5f 63 6f 6e 74 65 6e 74 20 7b 6c 61 6e 67 75 t_content {langu
0260: 61 67 65 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 age} {.
0270: 20 20 20 23 70 75 74 73 20 5b 3a 3a 72 69 76 65 #puts [::rive
0280: 74 3a 3a 78 6d 6c 20 5b 24 74 68 69 73 20 75 72 t::xml [$this ur
0290: 6c 5f 61 72 67 73 5d 20 70 72 65 5d 0a 0a 23 20 l_args] pre]..#
02a0: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 75 set u
02b0: 72 6c 5f 61 72 67 73 20 5b 24 74 68 69 73 20 75 rl_args [$this u
02c0: 72 6c 5f 61 72 67 73 5d 0a 0a 23 20 20 20 20 20 rl_args]..#
02d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 64 69 63 74 if {[dict
02e0: 20 65 78 69 73 74 73 20 24 75 72 6c 5f 61 72 67 exists $url_arg
02f0: 73 20 72 65 73 65 61 72 63 68 5d 7d 20 7b 0a 23 s research]} {.#
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0310: 69 66 20 7b 5b 64 69 63 74 20 65 78 69 73 74 73 if {[dict exists
0320: 20 24 75 72 6c 5f 61 72 67 73 20 64 69 73 70 6c $url_args displ
0330: 61 79 5d 7d 20 7b 0a 23 20 20 20 20 20 20 20 20 ay]} {.#
0340: 20 20 20 20 20 20 20 20 20 20 20 20 73 77 69 74 swit
0350: 63 68 20 5b 64 69 63 74 20 67 65 74 20 24 75 72 ch [dict get $ur
0360: 6c 5f 61 72 67 73 20 64 69 73 70 6c 61 79 5d 20 l_args display]
0370: 7b 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 {.#
0380: 20 20 20 20 20 20 20 20 20 20 20 6d 65 6d 62 65 membe
0390: 72 73 20 7b 0a 23 20 20 20 20 20 20 20 20 20 20 rs {.#
03a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03b0: 20 20 73 65 74 20 74 65 61 6d 20 5b 24 74 68 69 set team [$thi
03c0: 73 20 6d 65 74 61 64 61 74 61 20 65 71 75 69 70 s metadata equip
03d0: 65 5d 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 e].#
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03f0: 3a 3a 72 69 76 65 74 3a 3a 70 61 72 73 65 20 5b ::rivet::parse [
0400: 66 69 6c 65 20 6a 6f 69 6e 20 72 76 74 20 74 65 file join rvt te
0410: 61 6d 2e 72 76 74 5d 0a 23 0a 23 20 20 20 20 20 am.rvt].#.#
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0430: 20 20 20 20 20 20 20 66 6c 75 73 68 20 73 74 64 flush std
0440: 6f 75 74 0a 23 20 20 20 20 20 20 20 20 20 20 20 out.#
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0460: 20 61 66 74 65 72 20 35 30 30 0a 23 0a 23 20 20 after 500.#.#
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0480: 20 20 20 20 20 20 7d 0a 23 20 20 20 20 20 20 20 }.#
0490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04a0: 20 64 65 66 61 75 6c 74 20 7b 0a 23 20 20 20 20 default {.#
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04c0: 20 20 20 20 20 20 20 20 52 57 53 74 61 74 69 63 RWStatic
04d0: 3a 3a 70 72 69 6e 74 5f 63 6f 6e 74 65 6e 74 20 ::print_content
04e0: 24 6c 61 6e 67 75 61 67 65 0a 23 20 20 20 20 20 $language.#
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0500: 20 20 20 7d 0a 23 20 20 20 20 20 20 20 20 20 20 }.#
0510: 20 20 20 20 20 20 20 20 20 20 7d 0a 23 20 20 20 }.#
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 } e
0530: 6c 73 65 20 7b 0a 23 20 20 20 20 20 20 20 20 20 lse {.#
0540: 20 20 20 20 20 20 20 20 20 20 20 52 57 53 74 61 RWSta
0550: 74 69 63 3a 3a 70 72 69 6e 74 5f 63 6f 6e 74 65 tic::print_conte
0560: 6e 74 20 24 6c 61 6e 67 75 61 67 65 0a 23 20 20 nt $language.#
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a }.
0580: 23 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 # } e
0590: 6c 73 65 20 7b 0a 23 20 20 20 20 20 20 20 20 20 lse {.#
05a0: 20 20 20 20 20 20 20 52 57 53 74 61 74 69 63 3a RWStatic:
05b0: 3a 70 72 69 6e 74 5f 63 6f 6e 74 65 6e 74 20 24 :print_content $
05c0: 6c 61 6e 67 75 61 67 65 0a 23 20 20 20 20 20 20 language.#
05d0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 }..
05e0: 20 20 20 20 20 52 57 53 74 61 74 69 63 3a 3a 70 RWStatic::p
05f0: 72 69 6e 74 5f 63 6f 6e 74 65 6e 74 20 24 6c 61 rint_content $la
0600: 6e 67 75 61 67 65 0a 0a 20 20 20 20 20 20 20 20 nguage..
0610: 20 20 20 20 69 66 20 7b 5b 3a 3a 72 77 64 61 74 if {[::rwdat
0620: 61 73 3a 3a 4c 6f 67 69 6e 3a 3a 6c 6f 67 69 6e as::Login::login
0630: 73 74 61 74 75 73 5d 7d 20 7b 0a 0a 20 20 20 20 status]} {..
0640: 20 20 20 20 20 20 20 20 20 20 20 20 3a 3a 72 69 ::ri
0650: 76 65 74 3a 3a 70 61 72 73 65 20 5b 66 69 6c 65 vet::parse [file
0660: 20 6a 6f 69 6e 20 72 76 74 20 70 61 67 65 65 64 join rvt pageed
0670: 69 74 62 75 74 74 6f 6e 73 2e 72 76 74 5d 0a 0a itbuttons.rvt]..
0680: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 }.
0690: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 7d 0a 7d }.. }.}
06a0: 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 .package provide
06b0: 20 63 6e 72 73 3a 3a 65 71 75 69 70 65 20 31 2e cnrs::equipe 1.
06c0: 30 0a 0.