Artifact c58b71cc00494794d141e92276c3882478de15e1:

• Executable file extroot/wikitag — part of check-in [01dcd6c9b8] at 2021-10-25 18:54:33 on branch trunk — trim wiki page name, remove more github remnants (user: mario size: 3882)

---

0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 68 70 2d 63  #!/usr/bin/php-c
0010: 67 69 20 2d 64 63 67 69 2e 66 6f 72 63 65 5f 72  gi -dcgi.force_r
0020: 65 64 69 72 65 63 74 3d 30 0a 3c 3f 70 68 70 0a  edirect=0.<?php.
0030: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 75 74 66 2d  # encoding: utf-
0040: 38 0a 23 20 61 70 69 3a 20 63 67 69 0a 23 20 74  8.# api: cgi.# t
0050: 79 70 65 3a 20 63 6f 6e 66 69 67 0a 23 20 63 61  ype: config.# ca
0060: 74 65 67 6f 72 79 3a 20 77 69 6b 69 0a 23 20 74  tegory: wiki.# t
0070: 69 74 6c 65 3a 20 57 69 6b 69 54 61 67 0a 23 20  itle: WikiTag.# 
0080: 64 65 73 63 72 69 70 74 69 6f 6e 3a 20 74 61 67  description: tag
0090: 20 77 69 6b 69 20 70 61 67 65 73 0a 23 20 76 65   wiki pages.# ve
00a0: 72 73 69 6f 6e 3a 20 30 2e 31 0a 23 20 73 74 61  rsion: 0.1.# sta
00b0: 74 65 3a 20 62 65 74 61 0a 23 20 63 6f 6e 66 69  te: beta.# confi
00c0: 67 3a 20 2d 0a 23 20 61 63 63 65 73 73 3a 20 61  g: -.# access: a
00d0: 69 6c 73 76 0a 23 0a 23 20 53 69 6d 70 6c 69 66  ilsv.#.# Simplif
00e0: 69 65 73 20 61 64 64 69 6e 67 20 74 61 67 73 20  ies adding tags 
00f0: 74 6f 20 77 69 6b 69 20 70 61 67 65 73 2e 0a 23  to wiki pages..#
0100: 20 42 61 73 69 63 61 6c 6c 79 20 61 20 77 72 61   Basically a wra
0110: 70 70 65 72 20 61 72 6f 75 6e 64 20 60 66 6f 73  pper around `fos
0120: 73 69 6c 20 74 61 67 20 61 64 64 60 20 77 68 69  sil tag add` whi
0130: 63 68 20 6c 6f 6f 6b 73 20 75 70 20 74 68 65 20  ch looks up the 
0140: 66 69 72 73 74 20 61 72 74 69 66 61 63 74 20 69  first artifact i
0150: 64 2e 0a 23 20 28 4f 6e 20 74 68 65 20 61 73 73  d..# (On the ass
0160: 75 6d 70 74 69 6f 6e 20 74 68 61 74 20 74 68 65  umption that the
0170: 20 76 65 72 79 20 66 69 72 73 74 20 70 61 67 65   very first page
0180: 20 61 72 74 69 66 69 63 74 20 73 68 6f 75 6c 64   artifict should
0190: 20 64 65 63 6c 61 72 65 20 61 6e 79 20 74 61 67   declare any tag
01a0: 73 2e 29 0a 23 0a 23 0a 0a 0a 23 2d 2d 20 69 6e  s.).#.#...#-- in
01b0: 69 74 0a 69 6e 63 6c 75 64 65 28 22 2e 2f 66 6f  it.include("./fo
01c0: 73 73 69 6c 5f 63 6f 6d 6d 6f 6e 2e 70 68 70 22  ssil_common.php"
01d0: 29 3b 20 20 20 23 20 64 62 28 29 20 65 74 63 2e  );   # db() etc.
01e0: 0a 23 69 66 20 28 21 69 73 5f 61 64 6d 69 6e 28  .#if (!is_admin(
01f0: 29 29 20 7b 0a 23 20 20 20 20 64 69 65 28 22 41  )) {.#    die("A
0200: 64 6d 69 6e 2d 6f 6e 6c 79 22 29 3b 20 20 20 2f  dmin-only");   /
0210: 2f 20 64 6f 69 6e 67 20 68 61 73 5f 63 61 70 28  / doing has_cap(
0220: 29 20 62 65 66 6f 72 65 20 73 61 76 65 28 29 20  ) before save() 
0230: 61 6e 79 77 61 79 0a 23 7d 0a 65 72 72 6f 72 5f  anyway.#}.error_
0240: 72 65 70 6f 72 74 69 6e 67 28 45 5f 41 4c 4c 29  reporting(E_ALL)
0250: 3b 0a 0a 23 2d 2d 20 66 6f 73 73 69 6c 20 48 54  ;..#-- fossil HT
0260: 4d 4c 20 6f 75 74 70 75 74 0a 66 75 6e 63 74 69  ML output.functi
0270: 6f 6e 20 70 61 67 65 5f 6d 64 28 24 74 65 78 74  on page_md($text
0280: 29 20 7b 0a 20 20 20 20 68 65 61 64 65 72 28 22  ) {.    header("
0290: 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 74 65  Content-Type: te
02a0: 78 74 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 74  xt/html; charset
02b0: 3d 75 74 66 2d 38 22 29 3b 0a 20 20 20 20 70 72  =utf-8");.    pr
02c0: 69 6e 74 20 3c 3c 3c 45 4f 46 0a 3c 64 69 76 20  int <<<EOF.<div 
02d0: 63 6c 61 73 73 3d 27 66 6f 73 73 69 6c 2d 64 6f  class='fossil-do
02e0: 63 27 20 64 61 74 61 2d 74 69 74 6c 65 3d 27 54  c' data-title='T
02f0: 61 67 20 77 69 6b 69 20 70 61 67 65 73 27 3e 0a  ag wiki pages'>.
0300: 3c 73 74 79 6c 65 3e 0a 20 2e 73 61 76 65 2d 62  <style>. .save-b
0310: 75 74 74 6f 6e 20 7b 0a 20 20 20 20 70 61 64 64  utton {.    padd
0320: 69 6e 67 3a 20 32 70 74 20 33 30 70 74 3b 0a 20  ing: 2pt 30pt;. 
0330: 7d 0a 3c 2f 73 74 79 6c 65 3e 0a 24 74 65 78 74  }.</style>.$text
0340: 0a 45 4f 46 3b 0a 7d 0a 0a 0a 23 2d 2d 20 71 75  .EOF;.}...#-- qu
0350: 65 72 79 20 70 61 67 65 20 6e 61 6d 65 73 20 61  ery page names a
0360: 6e 64 20 74 61 67 73 0a 66 75 6e 63 74 69 6f 6e  nd tags.function
0370: 20 77 69 6b 69 5f 70 61 67 65 73 28 24 54 59 50   wiki_pages($TYP
0380: 45 46 49 4c 54 45 52 20 3d 20 22 41 4e 44 20 74  EFILTER = "AND t
0390: 61 67 74 79 70 65 20 21 3d 20 30 22 29 20 7b 0a  agtype != 0") {.
03a0: 20 20 20 20 24 72 20 3d 20 64 62 28 22 0a 20 20      $r = db(".  
03b0: 20 20 20 20 20 20 53 45 4c 45 43 54 0a 20 20 20        SELECT.   
03c0: 20 20 20 20 20 20 20 20 53 55 42 53 54 52 28 74          SUBSTR(t
03d0: 61 67 6e 61 6d 65 2c 36 29 20 41 53 20 70 61 67  agname,6) AS pag
03e0: 65 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20  ename,.         
03f0: 20 20 4d 49 4e 28 74 61 67 78 72 65 66 2e 72 69    MIN(tagxref.ri
0400: 64 29 20 41 53 20 72 69 64 2c 0a 20 20 20 20 20  d) AS rid,.     
0410: 20 20 20 20 20 20 28 53 45 4c 45 43 54 20 47 52        (SELECT GR
0420: 4f 55 50 5f 43 4f 4e 43 41 54 28 74 61 67 6e 61  OUP_CONCAT(tagna
0430: 6d 65 2c 20 27 2c 20 27 29 0a 20 20 20 20 20 20  me, ', ').      
0440: 20 20 20 20 20 20 20 20 46 52 4f 4d 20 28 53 45          FROM (SE
0450: 4c 45 43 54 20 74 61 67 6e 61 6d 65 0a 20 20 20  LECT tagname.   
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0470: 20 20 20 46 52 4f 4d 20 74 61 67 78 72 65 66 20     FROM tagxref 
0480: 74 78 32 0a 20 20 20 20 20 20 20 20 20 20 20 20  tx2.            
0490: 20 20 20 20 20 20 20 20 20 20 4a 4f 49 4e 20 74            JOIN t
04a0: 61 67 20 74 67 32 20 4f 4e 20 74 78 32 2e 74 61  ag tg2 ON tx2.ta
04b0: 67 69 64 3d 74 67 32 2e 74 61 67 69 64 0a 20 20  gid=tg2.tagid.  
04c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
04d0: 20 20 20 57 48 45 52 45 20 74 78 32 2e 72 69 64     WHERE tx2.rid
04e0: 3d 74 61 67 78 72 65 66 2e 72 69 64 0a 20 20 20  =tagxref.rid.   
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0500: 20 20 20 20 41 4e 44 20 74 78 32 2e 74 61 67 69      AND tx2.tagi
0510: 64 20 21 3d 20 74 61 67 78 72 65 66 2e 74 61 67  d != tagxref.tag
0520: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  id.             
0530: 20 20 20 20 20 20 20 20 20 20 24 54 59 50 45 46            $TYPEF
0540: 49 4c 54 45 52 0a 20 20 20 20 20 20 20 20 20 20  ILTER.          
0550: 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20            ).    
0560: 20 20 20 20 20 20 20 20 29 20 41 53 20 70 61 67          ) AS pag
0570: 65 74 61 67 0a 20 20 20 20 20 20 20 20 46 52 4f  etag.        FRO
0580: 4d 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 67  M.           tag
0590: 78 72 65 66 0a 20 20 20 20 20 20 20 20 4c 45 46  xref.        LEF
05a0: 54 20 4a 4f 49 4e 0a 20 20 20 20 20 20 20 20 20  T JOIN.         
05b0: 20 20 74 61 67 20 4f 4e 20 74 61 67 78 72 65 66    tag ON tagxref
05c0: 2e 74 61 67 69 64 3d 74 61 67 2e 74 61 67 69 64  .tagid=tag.tagid
05d0: 0a 20 20 20 20 20 20 20 20 57 48 45 52 45 0a 20  .        WHERE. 
05e0: 20 20 20 20 20 20 20 20 20 20 74 61 67 6e 61 6d            tagnam
05f0: 65 20 4c 49 4b 45 20 27 77 69 6b 69 2d 25 27 20  e LIKE 'wiki-%' 
0600: 41 4e 44 0a 20 20 20 20 20 20 20 20 20 20 20 4e  AND.           N
0610: 4f 54 20 74 61 67 78 72 65 66 2e 74 61 67 69 64  OT tagxref.tagid
0620: 20 49 4e 20 28 53 45 4c 45 43 54 20 74 61 67 69   IN (SELECT tagi
0630: 64 20 46 52 4f 4d 20 28 53 45 4c 45 43 54 20 74  d FROM (SELECT t
0640: 61 67 69 64 2c 76 61 6c 75 65 2c 4d 41 58 28 72  agid,value,MAX(r
0650: 69 64 29 20 46 52 4f 4d 20 74 61 67 78 72 65 66  id) FROM tagxref
0660: 20 47 52 4f 55 50 20 42 59 20 74 61 67 69 64 29   GROUP BY tagid)
0670: 20 57 48 45 52 45 20 4e 4f 54 20 76 61 6c 75 65   WHERE NOT value
0680: 29 0a 20 20 20 20 20 20 20 20 47 52 4f 55 50 20  ).        GROUP 
0690: 42 59 0a 20 20 20 20 20 20 20 20 20 20 20 74 61  BY.           ta
06a0: 67 78 72 65 66 2e 74 61 67 69 64 0a 20 20 20 20  gxref.tagid.    
06b0: 20 20 20 20 4f 52 44 45 52 20 42 59 0a 20 20 20      ORDER BY.   
06c0: 20 20 20 20 20 20 20 20 4c 4f 57 45 52 28 70 61          LOWER(pa
06d0: 67 65 6e 61 6d 65 29 0a 20 20 20 20 22 29 3b 0a  gename).    ");.
06e0: 20 20 20 20 72 65 74 75 72 6e 20 61 72 72 61 79      return array
06f0: 5f 63 6f 6c 75 6d 6e 28 24 72 2c 20 24 76 61 6c  _column($r, $val
0700: 3d 22 70 61 67 65 74 61 67 22 2c 20 24 6b 65 79  ="pagetag", $key
0710: 3d 22 70 61 67 65 6e 61 6d 65 22 29 3b 0a 7d 0a  ="pagename");.}.
0720: 66 75 6e 63 74 69 6f 6e 20 66 69 72 73 74 5f 75  function first_u
0730: 75 69 64 28 24 70 61 67 65 29 20 7b 0a 20 20 20  uid($page) {.   
0740: 20 72 65 74 75 72 6e 20 64 62 28 22 0a 20 20 20   return db(".   
0750: 20 20 20 20 20 53 45 4c 45 43 54 20 75 75 69 64       SELECT uuid
0760: 2c 20 4d 49 4e 28 62 6c 6f 62 2e 72 69 64 29 0a  , MIN(blob.rid).
0770: 20 20 20 20 20 20 20 20 20 20 46 52 4f 4d 20 62            FROM b
0780: 6c 6f 62 0a 20 20 20 20 20 20 20 20 20 20 4c 45  lob.          LE
0790: 46 54 20 4a 4f 49 4e 20 74 61 67 78 72 65 66 20  FT JOIN tagxref 
07a0: 4f 4e 20 62 6c 6f 62 2e 72 69 64 3d 74 61 67 78  ON blob.rid=tagx
07b0: 72 65 66 2e 72 69 64 0a 20 20 20 20 20 20 20 20  ref.rid.        
07c0: 20 20 4c 45 46 54 20 4a 4f 49 4e 20 74 61 67 20    LEFT JOIN tag 
07d0: 4f 4e 20 74 61 67 78 72 65 66 2e 74 61 67 69 64  ON tagxref.tagid
07e0: 3d 74 61 67 2e 74 61 67 69 64 0a 20 20 20 20 20  =tag.tagid.     
07f0: 20 20 20 20 57 48 45 52 45 20 74 61 67 6e 61 6d      WHERE tagnam
0800: 65 3d 3f 0a 20 20 20 20 20 20 20 20 20 47 52 4f  e=?.         GRO
0810: 55 50 20 42 59 20 74 61 67 78 72 65 66 2e 74 61  UP BY tagxref.ta
0820: 67 69 64 0a 20 20 20 20 22 2c 20 5b 22 77 69 6b  gid.    ", ["wik
0830: 69 2d 24 70 61 67 65 22 5d 29 5b 30 5d 5b 22 75  i-$page"])[0]["u
0840: 75 69 64 22 5d 3b 0a 7d 0a 0a 0a 23 2d 2d 20 73  uid"];.}...#-- s
0850: 61 76 69 6e 67 0a 66 75 6e 63 74 69 6f 6e 20 73  aving.function s
0860: 61 76 65 28 24 70 74 2c 20 24 71 3d 22 65 73 63  ave($pt, $q="esc
0870: 61 70 65 73 68 65 6c 6c 61 72 67 22 29 20 7b 0a  apeshellarg") {.
0880: 20 20 20 20 24 6f 72 69 67 20 3d 20 77 69 6b 69      $orig = wiki
0890: 5f 70 61 67 65 73 28 29 3b 0a 20 20 20 20 66 6f  _pages();.    fo
08a0: 72 65 61 63 68 20 28 24 70 74 20 61 73 20 24 70  reach ($pt as $p
08b0: 61 67 65 3d 3e 24 74 61 67 73 29 20 7b 0a 20 20  age=>$tags) {.  
08c0: 20 20 20 20 20 20 69 66 20 28 24 74 61 67 73 20        if ($tags 
08d0: 3d 3d 20 24 6f 72 69 67 5b 24 70 61 67 65 5d 29  == $orig[$page])
08e0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63   {.            c
08f0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20  ontinue;.       
0900: 20 7d 0a 20 20 20 20 20 20 20 20 24 75 75 69 64   }.        $uuid
0910: 20 3d 20 66 69 72 73 74 5f 75 75 69 64 28 24 70   = first_uuid($p
0920: 61 67 65 29 3b 0a 20 20 20 20 20 20 20 20 24 6e  age);.        $n
0930: 65 77 20 3d 20 61 72 72 61 79 5f 66 69 6c 74 65  ew = array_filte
0940: 72 28 73 74 72 5f 67 65 74 63 73 76 28 24 74 61  r(str_getcsv($ta
0950: 67 73 29 29 3b 0a 20 20 20 20 20 20 20 20 24 6f  gs));.        $o
0960: 6c 64 20 3d 20 61 72 72 61 79 5f 66 69 6c 74 65  ld = array_filte
0970: 72 28 73 74 72 5f 67 65 74 63 73 76 28 24 6f 72  r(str_getcsv($or
0980: 69 67 5b 24 70 61 67 65 5d 29 29 3b 0a 20 20 20  ig[$page]));.   
0990: 20 20 20 20 20 23 2d 2d 20 61 64 64 0a 20 20 20       #-- add.   
09a0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 28 61 72       foreach (ar
09b0: 72 61 79 5f 64 69 66 66 28 24 6e 65 77 2c 20 24  ray_diff($new, $
09c0: 6f 6c 64 29 20 61 73 20 24 61 64 64 29 20 7b 0a  old) as $add) {.
09d0: 20 20 20 20 20 20 20 20 20 20 20 20 24 70 72 6f              $pro
09e0: 70 61 67 61 74 65 20 3d 20 65 6d 70 74 79 28 24  pagate = empty($
09f0: 5f 50 4f 53 54 5b 22 70 72 6f 70 61 67 61 74 65  _POST["propagate
0a00: 22 5d 29 20 3f 20 22 22 20 3a 20 22 2d 2d 70 72  "]) ? "" : "--pr
0a10: 6f 70 61 67 61 74 65 22 3b 0a 20 20 20 20 20 20  opagate";.      
0a20: 20 20 20 20 20 20 70 72 69 6e 74 20 22 66 6f 73        print "fos
0a30: 73 69 6c 20 74 61 67 20 61 64 64 20 24 70 72 6f  sil tag add $pro
0a40: 70 61 67 61 74 65 20 7b 24 71 28 24 61 64 64 29  pagate {$q($add)
0a50: 7d 20 7b 24 71 28 24 75 75 69 64 29 7d 20 2d 52  } {$q($uuid)} -R
0a60: 20 7b 24 5f 53 45 52 56 45 52 5b 27 46 4f 53 53   {$_SERVER['FOSS
0a70: 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59 27 5d 7d  IL_REPOSITORY']}
0a80: 3c 62 72 3e 22 3b 0a 20 20 20 20 20 20 20 20 7d  <br>";.        }
0a90: 0a 20 20 20 20 20 20 20 20 23 2d 2d 20 72 6d 0a  .        #-- rm.
0aa0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
0ab0: 28 61 72 72 61 79 5f 64 69 66 66 28 24 6f 6c 64  (array_diff($old
0ac0: 2c 20 24 6e 65 77 29 20 61 73 20 24 72 6d 29 20  , $new) as $rm) 
0ad0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72  {.            pr
0ae0: 69 6e 74 20 22 66 6f 73 73 69 6c 20 74 61 67 20  int "fossil tag 
0af0: 63 61 6e 63 65 6c 20 7b 24 71 28 24 72 6d 29 7d  cancel {$q($rm)}
0b00: 20 7b 24 71 28 24 75 75 69 64 29 7d 20 2d 52 20   {$q($uuid)} -R 
0b10: 7b 24 5f 53 45 52 56 45 52 5b 27 46 4f 53 53 49  {$_SERVER['FOSSI
0b20: 4c 5f 52 45 50 4f 53 49 54 4f 52 59 27 5d 7d 3c  L_REPOSITORY']}<
0b30: 62 72 3e 22 3b 0a 20 20 20 20 20 20 20 20 7d 0a  br>";.        }.
0b40: 20 20 20 20 7d 0a 7d 0a 69 66 20 28 21 65 6d 70      }.}.if (!emp
0b50: 74 79 28 24 5f 50 4f 53 54 5b 22 74 61 67 73 22  ty($_POST["tags"
0b60: 5d 29 29 20 7b 0a 20 20 20 20 69 66 20 28 68 61  ])) {.    if (ha
0b70: 73 5f 63 61 70 28 22 61 69 6c 73 76 22 29 29 20  s_cap("ailsv")) 
0b80: 7b 20 20 23 61 64 6d 69 6e 2c 63 68 65 63 6b 69  {  #admin,checki
0b90: 6e 2c 6d 6f 64 77 69 6b 69 2c 73 75 70 65 72 75  n,modwiki,superu
0ba0: 73 65 72 2c 64 65 76 65 6c 6f 70 65 72 0a 20 20  ser,developer.  
0bb0: 20 20 20 20 20 20 73 61 76 65 28 24 5f 50 4f 53        save($_POS
0bc0: 54 5b 22 74 61 67 73 22 5d 29 3b 0a 20 20 20 20  T["tags"]);.    
0bd0: 7d 0a 7d 0a 0a 23 2d 2d 20 67 65 74 20 70 61 67  }.}..#-- get pag
0be0: 65 e2 86 92 74 61 67 73 20 6c 69 73 74 0a 24 70  e→tags list.$p
0bf0: 61 67 65 73 20 3d 20 77 69 6b 69 5f 70 61 67 65  ages = wiki_page
0c00: 73 28 29 3b 0a 0a 23 2d 2d 20 70 72 69 6e 74 20  s();..#-- print 
0c10: 68 6f 6f 6b 20 72 6f 77 0a 66 75 6e 63 74 69 6f  hook row.functio
0c20: 6e 20 70 74 5f 72 6f 77 28 24 70 61 67 65 2c 20  n pt_row($page, 
0c30: 24 74 61 67 73 2c 20 24 68 3d 22 68 22 29 20 7b  $tags, $h="h") {
0c40: 0a 20 20 20 20 70 72 69 6e 74 20 3c 3c 3c 45 4e  .    print <<<EN
0c50: 44 0a 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20  D.    <tr>.     
0c60: 20 20 20 3c 74 64 3e 7b 24 68 28 24 70 61 67 65     <td>{$h($page
0c70: 29 7d 3c 2f 74 64 3e 0a 20 20 20 20 20 20 20 20  )}</td>.        
0c80: 3c 74 64 3e 3c 69 6e 70 75 74 20 6e 61 6d 65 3d  <td><input name=
0c90: 22 74 61 67 73 5b 7b 24 68 28 24 70 61 67 65 29  "tags[{$h($page)
0ca0: 7d 5d 22 20 76 61 6c 75 65 3d 22 7b 24 68 28 24  }]" value="{$h($
0cb0: 74 61 67 73 29 7d 22 3e 3c 2f 74 64 3e 0a 20 20  tags)}"></td>.  
0cc0: 20 20 3c 2f 74 72 3e 0a 45 4e 44 3b 0a 7d 0a 0a    </tr>.END;.}..
0cd0: 0a 23 2d 2d 20 62 75 69 6c 64 20 66 6f 72 6d 20  .#-- build form 
0ce0: 74 61 62 6c 65 0a 70 61 67 65 5f 6d 64 28 22 0a  table.page_md(".
0cf0: 20 20 3c 64 69 76 20 63 6c 61 73 73 3d 63 6f 6e    <div class=con
0d00: 66 69 67 2d 6c 69 73 74 3e 0a 20 20 3c 66 6f 72  fig-list>.  <for
0d10: 6d 20 6d 65 74 68 6f 64 3d 50 4f 53 54 20 65 6e  m method=POST en
0d20: 63 74 79 70 65 3d 27 6d 75 6c 74 69 70 61 72 74  ctype='multipart
0d30: 2f 66 6f 72 6d 2d 64 61 74 61 27 3e 0a 20 20 3c  /form-data'>.  <
0d40: 74 61 62 6c 65 3e 0a 20 20 3c 74 72 3e 20 3c 74  table>.  <tr> <t
0d50: 68 3e 50 61 67 65 3c 2f 74 68 3e 20 3c 74 68 3e  h>Page</th> <th>
0d60: 54 61 67 73 3c 2f 74 68 3e 20 3c 2f 74 72 3e 0a  Tags</th> </tr>.
0d70: 22 29 3b 0a 0a 23 20 66 69 65 6c 64 73 0a 66 6f  ");..# fields.fo
0d80: 72 65 61 63 68 20 28 24 70 61 67 65 73 20 61 73  reach ($pages as
0d90: 20 24 70 61 67 65 3d 3e 24 74 61 67 73 29 20 7b   $page=>$tags) {
0da0: 0a 20 20 20 20 70 74 5f 72 6f 77 28 24 70 61 67  .    pt_row($pag
0db0: 65 2c 20 24 74 61 67 73 29 3b 0a 7d 0a 0a 3f 3e  e, $tags);.}..?>
0dc0: 0a 3c 74 72 3e 3c 74 64 20 63 6f 6c 73 70 61 6e  .<tr><td colspan
0dd0: 3d 32 20 61 6c 69 67 6e 3d 63 65 6e 74 65 72 3e  =2 align=center>
0de0: 3c 69 6e 70 75 74 20 74 79 70 65 3d 73 75 62 6d  <input type=subm
0df0: 69 74 20 76 61 6c 75 65 3d 22 41 64 64 20 2f 20  it value="Add / 
0e00: 53 61 76 65 22 20 63 6c 61 73 73 3d 73 61 76 65  Save" class=save
0e10: 2d 62 75 74 74 6f 6e 3e 3c 2f 74 64 3e 3c 2f 74  -button></td></t
0e20: 72 3e 0a 3c 74 72 3e 3c 74 64 20 63 6f 6c 73 70  r>.<tr><td colsp
0e30: 61 6e 3d 32 20 61 6c 69 67 6e 3d 63 65 6e 74 65  an=2 align=cente
0e40: 72 3e 3c 6c 61 62 65 6c 3e 3c 69 6e 70 75 74 20  r><label><input 
0e50: 74 79 70 65 3d 63 68 65 63 6b 62 6f 78 20 6e 61  type=checkbox na
0e60: 6d 65 3d 70 72 6f 70 61 67 61 74 65 20 76 61 6c  me=propagate val
0e70: 75 65 3d 31 20 63 68 65 63 6b 65 64 3e 20 3c 62  ue=1 checked> <b
0e80: 3e 2d 2d 70 72 6f 70 61 67 61 74 65 3c 2f 62 3e  >--propagate</b>
0e90: 20 61 64 64 65 64 20 74 61 67 73 3c 2f 6c 61 62   added tags</lab
0ea0: 65 6c 3e 3c 2f 74 64 3e 3c 2f 74 72 3e 0a 3c 2f  el></td></tr>.</
0eb0: 74 61 62 6c 65 3e 0a 3c 2f 66 6f 72 6d 3e 0a 3c  table>.</form>.<
0ec0: 3f 70 68 70 0a 20 68 61 73 5f 63 61 70 28 22 61  ?php. has_cap("a
0ed0: 69 6c 73 76 22 29 20 6f 72 20 70 72 69 6e 74 28  ilsv") or print(
0ee0: 22 3c 64 69 76 20 63 6c 61 73 73 3d 77 61 72 6e  "<div class=warn
0ef0: 69 6e 67 3e 59 6f 75 20 64 6f 6e 27 74 20 68 61  ing>You don't ha
0f00: 76 65 20 70 65 72 6d 69 73 73 69 6f 6e 20 74 6f  ve permission to
0f10: 20 63 68 61 6e 67 65 20 74 61 67 73 2e 3c 2f 64   change tags.</d
0f20: 69 76 3e 22 29 3b 0a 3f 3e 0a                    iv>");.?>.