Artifact 724cc65a295ea9e9a31e46f1eb19e0d28290a519:

• Executable file extroot/wikitag — part of check-in [fe53bd85f9] at 2021-10-24 06:19:56 on branch trunk — tag wiki pages (on initial artifactt) (user: mario size: 3837)

---

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 69 66 20 28 21 69 73 5f 61 64 6d 69 6e 28 29  .if (!is_admin()
01f0: 29 20 7b 0a 20 20 20 20 64 69 65 28 22 41 64 6d  ) {.    die("Adm
0200: 69 6e 2d 6f 6e 6c 79 22 29 3b 0a 7d 0a 65 72 72  in-only");.}.err
0210: 6f 72 5f 72 65 70 6f 72 74 69 6e 67 28 45 5f 41  or_reporting(E_A
0220: 4c 4c 29 3b 0a 0a 23 2d 2d 20 66 6f 73 73 69 6c  LL);..#-- fossil
0230: 20 48 54 4d 4c 20 6f 75 74 70 75 74 0a 66 75 6e   HTML output.fun
0240: 63 74 69 6f 6e 20 70 61 67 65 5f 6d 64 28 24 74  ction page_md($t
0250: 65 78 74 29 20 7b 0a 20 20 20 20 68 65 61 64 65  ext) {.    heade
0260: 72 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a  r("Content-Type:
0270: 20 74 65 78 74 2f 68 74 6d 6c 3b 20 63 68 61 72   text/html; char
0280: 73 65 74 3d 75 74 66 2d 38 22 29 3b 0a 20 20 20  set=utf-8");.   
0290: 20 70 72 69 6e 74 20 3c 3c 3c 45 4f 46 0a 3c 64   print <<<EOF.<d
02a0: 69 76 20 63 6c 61 73 73 3d 27 66 6f 73 73 69 6c  iv class='fossil
02b0: 2d 64 6f 63 27 20 64 61 74 61 2d 74 69 74 6c 65  -doc' data-title
02c0: 3d 27 54 61 67 20 77 69 6b 69 20 70 61 67 65 73  ='Tag wiki pages
02d0: 27 3e 0a 3c 73 74 79 6c 65 3e 0a 20 2e 73 61 76  '>.<style>. .sav
02e0: 65 2d 62 75 74 74 6f 6e 20 7b 0a 20 20 20 20 70  e-button {.    p
02f0: 61 64 64 69 6e 67 3a 20 32 70 74 20 33 30 70 74  adding: 2pt 30pt
0300: 3b 0a 20 7d 0a 3c 2f 73 74 79 6c 65 3e 0a 24 74  ;. }.</style>.$t
0310: 65 78 74 0a 45 4f 46 3b 0a 7d 0a 0a 0a 23 2d 2d  ext.EOF;.}...#--
0320: 20 71 75 65 72 79 20 70 61 67 65 20 6e 61 6d 65   query page name
0330: 73 20 61 6e 64 20 74 61 67 73 0a 66 75 6e 63 74  s and tags.funct
0340: 69 6f 6e 20 77 69 6b 69 5f 70 61 67 65 73 28 24  ion wiki_pages($
0350: 54 59 50 45 46 49 4c 54 45 52 20 3d 20 22 41 4e  TYPEFILTER = "AN
0360: 44 20 74 61 67 74 79 70 65 20 21 3d 20 30 22 29  D tagtype != 0")
0370: 20 7b 0a 20 20 20 20 24 72 20 3d 20 64 62 28 22   {.    $r = db("
0380: 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 0a  .        SELECT.
0390: 20 20 20 20 20 20 20 20 20 20 20 53 55 42 53 54             SUBST
03a0: 52 28 74 61 67 6e 61 6d 65 2c 36 29 20 41 53 20  R(tagname,6) AS 
03b0: 70 61 67 65 6e 61 6d 65 2c 0a 20 20 20 20 20 20  pagename,.      
03c0: 20 20 20 20 20 4d 49 4e 28 74 61 67 78 72 65 66       MIN(tagxref
03d0: 2e 72 69 64 29 20 41 53 20 72 69 64 2c 0a 20 20  .rid) AS rid,.  
03e0: 20 20 20 20 20 20 20 20 20 28 53 45 4c 45 43 54           (SELECT
03f0: 20 47 52 4f 55 50 5f 43 4f 4e 43 41 54 28 74 61   GROUP_CONCAT(ta
0400: 67 6e 61 6d 65 2c 20 27 2c 20 27 29 0a 20 20 20  gname, ', ').   
0410: 20 20 20 20 20 20 20 20 20 20 20 46 52 4f 4d 20             FROM 
0420: 28 53 45 4c 45 43 54 20 74 61 67 6e 61 6d 65 0a  (SELECT tagname.
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0440: 20 20 20 20 20 20 46 52 4f 4d 20 74 61 67 78 72        FROM tagxr
0450: 65 66 20 74 78 32 0a 20 20 20 20 20 20 20 20 20  ef tx2.         
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 4f 49               JOI
0470: 4e 20 74 61 67 20 74 67 32 20 4f 4e 20 74 78 32  N tag tg2 ON tx2
0480: 2e 74 61 67 69 64 3d 74 67 32 2e 74 61 67 69 64  .tagid=tg2.tagid
0490: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
04a0: 20 20 20 20 20 20 57 48 45 52 45 20 74 78 32 2e        WHERE tx2.
04b0: 72 69 64 3d 74 61 67 78 72 65 66 2e 72 69 64 0a  rid=tagxref.rid.
04c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
04d0: 20 20 20 20 20 20 20 41 4e 44 20 74 78 32 2e 74         AND tx2.t
04e0: 61 67 69 64 20 21 3d 20 74 61 67 78 72 65 66 2e  agid != tagxref.
04f0: 74 61 67 69 64 0a 20 20 20 20 20 20 20 20 20 20  tagid.          
0500: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 54 59               $TY
0510: 50 45 46 49 4c 54 45 52 0a 20 20 20 20 20 20 20  PEFILTER.       
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20               ). 
0530: 20 20 20 20 20 20 20 20 20 20 20 29 20 41 53 20             ) AS 
0540: 70 61 67 65 74 61 67 0a 20 20 20 20 20 20 20 20  pagetag.        
0550: 46 52 4f 4d 0a 20 20 20 20 20 20 20 20 20 20 20  FROM.           
0560: 74 61 67 78 72 65 66 0a 20 20 20 20 20 20 20 20  tagxref.        
0570: 4c 45 46 54 20 4a 4f 49 4e 0a 20 20 20 20 20 20  LEFT JOIN.      
0580: 20 20 20 20 20 74 61 67 20 4f 4e 20 74 61 67 78       tag ON tagx
0590: 72 65 66 2e 74 61 67 69 64 3d 74 61 67 2e 74 61  ref.tagid=tag.ta
05a0: 67 69 64 0a 20 20 20 20 20 20 20 20 57 48 45 52  gid.        WHER
05b0: 45 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 67  E.           tag
05c0: 6e 61 6d 65 20 4c 49 4b 45 20 27 77 69 6b 69 2d  name LIKE 'wiki-
05d0: 25 27 20 41 4e 44 0a 20 20 20 20 20 20 20 20 20  %' AND.         
05e0: 20 20 4e 4f 54 20 74 61 67 78 72 65 66 2e 74 61    NOT tagxref.ta
05f0: 67 69 64 20 49 4e 20 28 53 45 4c 45 43 54 20 74  gid IN (SELECT t
0600: 61 67 69 64 20 46 52 4f 4d 20 28 53 45 4c 45 43  agid FROM (SELEC
0610: 54 20 74 61 67 69 64 2c 76 61 6c 75 65 2c 4d 41  T tagid,value,MA
0620: 58 28 72 69 64 29 20 46 52 4f 4d 20 74 61 67 78  X(rid) FROM tagx
0630: 72 65 66 20 47 52 4f 55 50 20 42 59 20 74 61 67  ref GROUP BY tag
0640: 69 64 29 20 57 48 45 52 45 20 4e 4f 54 20 76 61  id) WHERE NOT va
0650: 6c 75 65 29 0a 20 20 20 20 20 20 20 20 47 52 4f  lue).        GRO
0660: 55 50 20 42 59 0a 20 20 20 20 20 20 20 20 20 20  UP BY.          
0670: 20 74 61 67 78 72 65 66 2e 74 61 67 69 64 0a 20   tagxref.tagid. 
0680: 20 20 20 20 20 20 20 4f 52 44 45 52 20 42 59 0a         ORDER BY.
0690: 20 20 20 20 20 20 20 20 20 20 20 4c 4f 57 45 52             LOWER
06a0: 28 70 61 67 65 6e 61 6d 65 29 0a 20 20 20 20 22  (pagename).    "
06b0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 61 72  );.    return ar
06c0: 72 61 79 5f 63 6f 6c 75 6d 6e 28 24 72 2c 20 24  ray_column($r, $
06d0: 76 61 6c 3d 22 70 61 67 65 74 61 67 22 2c 20 24  val="pagetag", $
06e0: 6b 65 79 3d 22 70 61 67 65 6e 61 6d 65 22 29 3b  key="pagename");
06f0: 0a 7d 0a 66 75 6e 63 74 69 6f 6e 20 66 69 72 73  .}.function firs
0700: 74 5f 75 75 69 64 28 24 70 61 67 65 29 20 7b 0a  t_uuid($page) {.
0710: 20 20 20 20 72 65 74 75 72 6e 20 64 62 28 22 0a      return db(".
0720: 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 75          SELECT u
0730: 75 69 64 2c 20 4d 49 4e 28 62 6c 6f 62 2e 72 69  uid, MIN(blob.ri
0740: 64 29 0a 20 20 20 20 20 20 20 20 20 20 46 52 4f  d).          FRO
0750: 4d 20 62 6c 6f 62 0a 20 20 20 20 20 20 20 20 20  M blob.         
0760: 20 4c 45 46 54 20 4a 4f 49 4e 20 74 61 67 78 72   LEFT JOIN tagxr
0770: 65 66 20 4f 4e 20 62 6c 6f 62 2e 72 69 64 3d 74  ef ON blob.rid=t
0780: 61 67 78 72 65 66 2e 72 69 64 0a 20 20 20 20 20  agxref.rid.     
0790: 20 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 74       LEFT JOIN t
07a0: 61 67 20 4f 4e 20 74 61 67 78 72 65 66 2e 74 61  ag ON tagxref.ta
07b0: 67 69 64 3d 74 61 67 2e 74 61 67 69 64 0a 20 20  gid=tag.tagid.  
07c0: 20 20 20 20 20 20 20 57 48 45 52 45 20 74 61 67         WHERE tag
07d0: 6e 61 6d 65 3d 3f 0a 20 20 20 20 20 20 20 20 20  name=?.         
07e0: 47 52 4f 55 50 20 42 59 20 74 61 67 78 72 65 66  GROUP BY tagxref
07f0: 2e 74 61 67 69 64 0a 20 20 20 20 22 2c 20 5b 22  .tagid.    ", ["
0800: 77 69 6b 69 2d 24 70 61 67 65 22 5d 29 5b 30 5d  wiki-$page"])[0]
0810: 5b 22 75 75 69 64 22 5d 3b 0a 7d 0a 0a 0a 23 2d  ["uuid"];.}...#-
0820: 2d 20 73 61 76 69 6e 67 0a 66 75 6e 63 74 69 6f  - saving.functio
0830: 6e 20 73 61 76 65 28 24 70 74 2c 20 24 71 3d 22  n save($pt, $q="
0840: 65 73 63 61 70 65 73 68 65 6c 6c 61 72 67 22 29  escapeshellarg")
0850: 20 7b 0a 20 20 20 20 24 6f 72 69 67 20 3d 20 77   {.    $orig = w
0860: 69 6b 69 5f 70 61 67 65 73 28 29 3b 0a 20 20 20  iki_pages();.   
0870: 20 66 6f 72 65 61 63 68 20 28 24 70 74 20 61 73   foreach ($pt as
0880: 20 24 70 61 67 65 3d 3e 24 74 61 67 73 29 20 7b   $page=>$tags) {
0890: 0a 20 20 20 20 20 20 20 20 69 66 20 28 24 74 61  .        if ($ta
08a0: 67 73 20 3d 3d 20 24 6f 72 69 67 5b 24 70 61 67  gs == $orig[$pag
08b0: 65 5d 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  e]) {.          
08c0: 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20    continue;.    
08d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 24 75      }.        $u
08e0: 75 69 64 20 3d 20 66 69 72 73 74 5f 75 75 69 64  uid = first_uuid
08f0: 28 24 70 61 67 65 29 3b 0a 20 20 20 20 20 20 20  ($page);.       
0900: 20 24 6e 65 77 20 3d 20 61 72 72 61 79 5f 66 69   $new = array_fi
0910: 6c 74 65 72 28 73 74 72 5f 67 65 74 63 73 76 28  lter(str_getcsv(
0920: 24 74 61 67 73 29 29 3b 0a 20 20 20 20 20 20 20  $tags));.       
0930: 20 24 6f 6c 64 20 3d 20 61 72 72 61 79 5f 66 69   $old = array_fi
0940: 6c 74 65 72 28 73 74 72 5f 67 65 74 63 73 76 28  lter(str_getcsv(
0950: 24 6f 72 69 67 5b 24 70 61 67 65 5d 29 29 3b 0a  $orig[$page]));.
0960: 20 20 20 20 20 20 20 20 23 2d 2d 20 61 64 64 0a          #-- add.
0970: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
0980: 28 61 72 72 61 79 5f 64 69 66 66 28 24 6e 65 77  (array_diff($new
0990: 2c 20 24 6f 6c 64 29 20 61 73 20 24 61 64 64 29  , $old) as $add)
09a0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24   {.            $
09b0: 70 72 6f 70 61 67 61 74 65 20 3d 20 65 6d 70 74  propagate = empt
09c0: 79 28 24 5f 50 4f 53 54 5b 22 70 72 6f 70 61 67  y($_POST["propag
09d0: 61 74 65 22 5d 29 20 3f 20 22 22 20 3a 20 22 2d  ate"]) ? "" : "-
09e0: 2d 70 72 6f 70 61 67 61 74 65 22 3b 0a 20 20 20  -propagate";.   
09f0: 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 20 22           print "
0a00: 66 6f 73 73 69 6c 20 74 61 67 20 61 64 64 20 24  fossil tag add $
0a10: 70 72 6f 70 61 67 61 74 65 20 7b 24 71 28 24 61  propagate {$q($a
0a20: 64 64 29 7d 20 7b 24 71 28 24 75 75 69 64 29 7d  dd)} {$q($uuid)}
0a30: 20 2d 52 20 7b 24 5f 53 45 52 56 45 52 5b 27 46   -R {$_SERVER['F
0a40: 4f 53 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59  OSSIL_REPOSITORY
0a50: 27 5d 7d 3c 62 72 3e 22 3b 0a 20 20 20 20 20 20  ']}<br>";.      
0a60: 20 20 7d 0a 20 20 20 20 20 20 20 20 23 2d 2d 20    }.        #-- 
0a70: 72 6d 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61  rm.        forea
0a80: 63 68 20 28 61 72 72 61 79 5f 64 69 66 66 28 24  ch (array_diff($
0a90: 6f 6c 64 2c 20 24 6e 65 77 29 20 61 73 20 24 72  old, $new) as $r
0aa0: 6d 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  m) {.           
0ab0: 20 70 72 69 6e 74 20 22 66 6f 73 73 69 6c 20 74   print "fossil t
0ac0: 61 67 20 63 61 6e 63 65 6c 20 7b 24 71 28 24 72  ag cancel {$q($r
0ad0: 6d 29 7d 20 7b 24 71 28 24 75 75 69 64 29 7d 20  m)} {$q($uuid)} 
0ae0: 2d 52 20 7b 24 5f 53 45 52 56 45 52 5b 27 46 4f  -R {$_SERVER['FO
0af0: 53 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59 27  SSIL_REPOSITORY'
0b00: 5d 7d 3c 62 72 3e 22 3b 0a 20 20 20 20 20 20 20  ]}<br>";.       
0b10: 20 7d 0a 20 20 20 20 7d 0a 7d 0a 69 66 20 28 21   }.    }.}.if (!
0b20: 65 6d 70 74 79 28 24 5f 50 4f 53 54 5b 22 74 61  empty($_POST["ta
0b30: 67 73 22 5d 29 29 20 7b 0a 20 20 20 20 69 66 20  gs"])) {.    if 
0b40: 28 68 61 73 5f 63 61 70 28 22 61 69 6c 73 76 22  (has_cap("ailsv"
0b50: 29 29 20 7b 20 20 23 61 64 6d 69 6e 2c 63 68 65  )) {  #admin,che
0b60: 63 6b 69 6e 2c 6d 6f 64 77 69 6b 69 2c 73 75 70  ckin,modwiki,sup
0b70: 65 72 75 73 65 72 2c 64 65 76 65 6c 6f 70 65 72  eruser,developer
0b80: 0a 20 20 20 20 20 20 20 20 73 61 76 65 28 24 5f  .        save($_
0b90: 50 4f 53 54 5b 22 74 61 67 73 22 5d 29 3b 0a 20  POST["tags"]);. 
0ba0: 20 20 20 7d 0a 7d 0a 0a 23 2d 2d 20 67 65 74 20     }.}..#-- get 
0bb0: 70 61 67 65 e2 86 92 74 61 67 73 20 6c 69 73 74  page→tags list
0bc0: 0a 24 70 61 67 65 73 20 3d 20 77 69 6b 69 5f 70  .$pages = wiki_p
0bd0: 61 67 65 73 28 29 3b 0a 0a 23 2d 2d 20 70 72 69  ages();..#-- pri
0be0: 6e 74 20 68 6f 6f 6b 20 72 6f 77 0a 66 75 6e 63  nt hook row.func
0bf0: 74 69 6f 6e 20 70 74 5f 72 6f 77 28 24 70 61 67  tion pt_row($pag
0c00: 65 2c 20 24 74 61 67 73 2c 20 24 68 3d 22 68 22  e, $tags, $h="h"
0c10: 29 20 7b 0a 20 20 20 20 70 72 69 6e 74 20 3c 3c  ) {.    print <<
0c20: 3c 45 4e 44 0a 20 20 20 20 3c 74 72 3e 0a 20 20  <END.    <tr>.  
0c30: 20 20 20 20 20 20 3c 74 64 3e 7b 24 68 28 24 70        <td>{$h($p
0c40: 61 67 65 29 7d 3c 2f 74 64 3e 0a 20 20 20 20 20  age)}</td>.     
0c50: 20 20 20 3c 74 64 3e 3c 69 6e 70 75 74 20 6e 61     <td><input na
0c60: 6d 65 3d 22 74 61 67 73 5b 7b 24 68 28 24 70 61  me="tags[{$h($pa
0c70: 67 65 29 7d 5d 22 20 76 61 6c 75 65 3d 22 7b 24  ge)}]" value="{$
0c80: 68 28 24 74 61 67 73 29 7d 22 3e 3c 2f 74 64 3e  h($tags)}"></td>
0c90: 0a 20 20 20 20 3c 2f 74 72 3e 0a 45 4e 44 3b 0a  .    </tr>.END;.
0ca0: 7d 0a 0a 0a 23 2d 2d 20 62 75 69 6c 64 20 66 6f  }...#-- build fo
0cb0: 72 6d 20 74 61 62 6c 65 0a 70 61 67 65 5f 6d 64  rm table.page_md
0cc0: 28 22 0a 20 20 3c 64 69 76 20 63 6c 61 73 73 3d  (".  <div class=
0cd0: 63 6f 6e 66 69 67 2d 6c 69 73 74 3e 0a 20 20 3c  config-list>.  <
0ce0: 66 6f 72 6d 20 6d 65 74 68 6f 64 3d 50 4f 53 54  form method=POST
0cf0: 20 65 6e 63 74 79 70 65 3d 27 6d 75 6c 74 69 70   enctype='multip
0d00: 61 72 74 2f 66 6f 72 6d 2d 64 61 74 61 27 3e 0a  art/form-data'>.
0d10: 20 20 3c 74 61 62 6c 65 3e 0a 20 20 3c 74 72 3e    <table>.  <tr>
0d20: 20 3c 74 68 3e 50 61 67 65 3c 2f 74 68 3e 20 3c   <th>Page</th> <
0d30: 74 68 3e 54 61 67 73 3c 2f 74 68 3e 20 3c 2f 74  th>Tags</th> </t
0d40: 72 3e 0a 22 29 3b 0a 0a 23 20 66 69 65 6c 64 73  r>.");..# fields
0d50: 0a 66 6f 72 65 61 63 68 20 28 24 70 61 67 65 73  .foreach ($pages
0d60: 20 61 73 20 24 70 61 67 65 3d 3e 24 74 61 67 73   as $page=>$tags
0d70: 29 20 7b 0a 20 20 20 20 70 74 5f 72 6f 77 28 24  ) {.    pt_row($
0d80: 70 61 67 65 2c 20 24 74 61 67 73 29 3b 0a 7d 0a  page, $tags);.}.
0d90: 0a 3f 3e 0a 3c 74 72 3e 3c 74 64 20 63 6f 6c 73  .?>.<tr><td cols
0da0: 70 61 6e 3d 32 20 61 6c 69 67 6e 3d 63 65 6e 74  pan=2 align=cent
0db0: 65 72 3e 3c 69 6e 70 75 74 20 74 79 70 65 3d 73  er><input type=s
0dc0: 75 62 6d 69 74 20 76 61 6c 75 65 3d 22 41 64 64  ubmit value="Add
0dd0: 20 2f 20 53 61 76 65 22 20 63 6c 61 73 73 3d 73   / Save" class=s
0de0: 61 76 65 2d 62 75 74 74 6f 6e 3e 3c 2f 74 64 3e  ave-button></td>
0df0: 3c 2f 74 72 3e 0a 3c 74 72 3e 3c 74 64 20 63 6f  </tr>.<tr><td co
0e00: 6c 73 70 61 6e 3d 32 20 61 6c 69 67 6e 3d 63 65  lspan=2 align=ce
0e10: 6e 74 65 72 3e 3c 6c 61 62 65 6c 3e 3c 69 6e 70  nter><label><inp
0e20: 75 74 20 74 79 70 65 3d 63 68 65 63 6b 62 6f 78  ut type=checkbox
0e30: 20 6e 61 6d 65 3d 70 72 6f 70 61 67 61 74 65 20   name=propagate 
0e40: 76 61 6c 75 65 3d 31 20 63 68 65 63 6b 65 64 3e  value=1 checked>
0e50: 20 3c 62 3e 2d 2d 70 72 6f 70 61 67 61 74 65 3c   <b>--propagate<
0e60: 2f 62 3e 20 61 64 64 65 64 20 74 61 67 73 3c 2f  /b> added tags</
0e70: 6c 61 62 65 6c 3e 3c 2f 74 64 3e 3c 2f 74 72 3e  label></td></tr>
0e80: 0a 3c 2f 74 61 62 6c 65 3e 0a 3c 2f 66 6f 72 6d  .</table>.</form
0e90: 3e 0a 3c 3f 70 68 70 0a 20 68 61 73 5f 63 61 70  >.<?php. has_cap
0ea0: 28 22 61 69 6c 73 76 22 29 20 6f 72 20 70 72 69  ("ailsv") or pri
0eb0: 6e 74 28 22 3c 64 69 76 20 63 6c 61 73 73 3d 77  nt("<div class=w
0ec0: 61 72 6e 69 6e 67 3e 59 6f 75 20 64 6f 6e 27 74  arning>You don't
0ed0: 20 68 61 76 65 20 70 65 72 6d 69 73 73 69 6f 6e   have permission
0ee0: 20 74 6f 20 63 68 61 6e 67 65 20 74 61 67 73 2e   to change tags.
0ef0: 3c 2f 64 69 76 3e 22 29 3b 0a 3f 3e 0a           </div>");.?>.