word edit: recover form after save error

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index 24c5599635e0a19ca13cbe6dde820368cae7a9ee..288891a5030688489ae47bcff3c1a7347f0d0411 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -28,6 +28,33 @@ dd > img {
 dd input ~ button {
        margin-left: -5em;
 }
+
+ul.popup {
+       display: flex;
+       flex-wrap: wrap;
+       align-items: end;
+       position: fixed;
+       left: 0;
+       top: 0;
+       margin: auto;
+       max-height: 90%;
+       max-width: 90%;
+       overflow: auto;
+       background: rgba(0, 0, 0, .8);
+       border: 1px solid #CCC;
+}
+
+section {
+       position: absolute;
+       top: 7ex;
+       right: 1em;
+}
+section > ul {
+       margin-top: 1ex;
+}
+section > ul strong, section form {
+       line-height: 2;
+}
 </style>
 
 <script>
@@ -44,10 +71,21 @@ document.addEventListener('DOMContentLoaded', () => {
                        wpinput.value = json.parse.title;
                        let imginput = document.getElementById('source');
                        if (imginput.value) return;
-                       let wpimages = json.parse.text['*'].match(/<img\s[^>]+/g);
-                       imginput.value = wpimages[0].match(/\ssrc="([^"]+)"/)[1]
-                               .replace(/^(?=\/\/)/, 'https:')
-                               .replace(/\/thumb(\/.+)\/[^\/]+$/, '$1');
+                       let wpimages = json.parse.text['*'].match(/<img\s[^>]+>/g);
+                       let wpselect = wpinput.parentNode.appendChild(document.createElement('ul'));
+                       wpselect.className = 'popup';
+                       wpimages.forEach(img => {
+                               let selectitem = wpselect.appendChild(document.createElement('li'));
+                               selectitem.insertAdjacentHTML('beforeend', img);
+                               selectitem.onclick = e => {
+                                       let imgsrc = e.target.src
+                                               .replace(/^(?=\/\/)/, 'https:')
+                                               .replace(/\/thumb(\/.+)\/[^\/]+$/, '$1');
+                                       imginput.value = imgsrc;
+                                       wpselect.remove();
+                                       return false;
+                               };
+                       });
                }).catch(error => alert(error));
                return false;
        };
@@ -81,49 +119,75 @@ my @wordcols = (
 my ($find) = map {{id => $_}} $fields{id} || $Request || ();
 
 my $row;
+if ($find) {
+       $row = $db->select(word => '*', $find)->hash
+               or Abort("Word not found", 404);
+}
+
 if (exists $get{copy}) {
-       $row = {%fields{ qw(lang cat) }};
+       $row = {%{$row}{ qw(lang cat) }};
 }
-elsif ($ENV{REQUEST_METHOD} eq 'POST') {
+elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
+       my $replace = $row;
        $row = {%post{ pairkeys @wordcols }};
        $_ = length ? $_ : undef for values %{$row};
+
        eval {
                my %res = (returning => '*');
                my $query = $find ? $db->update(word => $row, $find, \%res) :
                        $db->insert(word => $row, \%res);
                $row = $query->hash;
-       } or Alert("Entry could not be saved", $@);
+       } or do {
+               Alert("Entry could not be saved", $@);
+               next;
+       };
 
        my $imgpath = "data/word/org/$row->{id}.jpg";
-       if (my $download = $row->{source} and !-e $imgpath) {
-               require LWP::UserAgent;
-               my $ua = LWP::UserAgent->new;
-               $ua->agent('/');
-               my $status = $ua->mirror($download, $imgpath);
-               $status->is_success or Alert([
-                       "Source image not found",
-                       "Download from <q>$download</q> failed: ".$status->status_line,
-               ]);
+       if (($row->{source} // '') ne ($replace->{source} // '')) {
+               # copy changed remote url to local file
+               unlink $imgpath if -e $imgpath;
+               if (my $download = $row->{source}) {
+                       require LWP::UserAgent;
+                       my $ua = LWP::UserAgent->new;
+                       $ua->agent('/');
+                       my $status = $ua->mirror($download, $imgpath);
+                       $status->is_success or Alert([
+                               "Source image not found",
+                               "Download from <q>$download</q> failed: ".$status->status_line,
+                       ]);
+               }
+       }
+       elsif ($row->{thumb} ~~ $replace->{thumb}) {
+               # image and conversion unaltered
+               $imgpath = undef;
        }
 
        my $thumbpath = "data/word/eng/$row->{form}.jpg";
-       if (-e $imgpath) {
-               my @cmds = @{ $row->{thumb} // [] };
-               unshift @cmds, -gravity => @cmds ? 'northwest' : 'center';
-               unshift @cmds, 'convert';
-               push @cmds, -resize => '300x200^', -extent => '300x200';
-               push @cmds, '-strip', -quality => '60%', -interlace => 'plane';
-               push @cmds, $imgpath, $thumbpath;
-               my $status = system @cmds;
-               $status == 0 or Alert([
-                       "Thumbnail image not generated",
-                       "Failed to convert source image, error code ".($status >> 8),
-               ], "@cmds");
+       if ($imgpath) {
+               if (-e $imgpath) {
+                       my @cmds = @{ $row->{thumb} // [] };
+                       @cmds = (
+                               'convert',
+                               -delete => '1--1', -background => 'white',
+                               -gravity => @cmds ? 'northwest' : 'center',
+                               @cmds,
+                               -resize => '300x200^', -extent => '300x200',
+                               '-strip', -quality => '60%', -interlace => 'plane',
+                               $imgpath => $thumbpath
+                       );
+                       my $status = system @cmds;
+                       $status == 0 or Alert([
+                               "Thumbnail image not generated",
+                               "Failed to convert source image, error code ".($status >> 8),
+                       ], "@cmds");
+               }
+               else {
+                       unlink $thumbpath;
+               }
        }
-}
-elsif ($find) {
-       $row = $db->select(word => '*', $find)->hash
-               or Abort("Word not found", 404);
+}}
+else {
+       $row->{$_} = $get{$_} for keys %get;
 }
 
 my $title = $row->{id} ? "entry <small>#$row->{id}</small>" : 'new entry';
@@ -154,3 +218,29 @@ for my $col (pairs @wordcols) {
        <input type="submit" value="New" formaction="/writer?copy=cat" />
 </p>
 </form>
+
+<:
+$row->{id} or exit;
+:>
+<section>
+<h2>Hierarchy</h2>
+
+<:
+say '<ul>';
+my $parents = $db->select(word => '*', {id => $row->{cat}});
+while (my $ref = $parents->hash) {
+       printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
+}
+say "<li><strong>$row->{form}</strong></li>";
+my $children = $db->select(word => '*', {cat => $row->{id}});
+while (my $ref = $children->hash) {
+       printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
+}
+:>
+<li><form action="/writer">
+       <input type="hidden" name="cat" value="<:= $row->{id} :>" />
+       <input type="hidden" name="lang" value="<:= $row->{lang} :>" />
+       <input type="submit" value="Add" />
+</form></li>
+</ul>
+</section>