minor fixes

diff --git a/calls.pl b/calls.pl
index e063882ec01720443c9f82a8105fbc15f9336770..b5b4374f0b45d3b8b77b608760256905f053ec4c 100644 (file)
--- a/calls.pl
+++ b/calls.pl
@@ -40,20 +40,21 @@ WHERE c.id = ?});
 }
 if ($call){
        if (param('cmd') eq 'Submit'){
-       }elsif (param('cmd') eq 'Submit'){
                $DBH->begin_work;
                if (param('ctick')){
                        if ($DBH->do(q{UPDATE calls SET landing_tick = ? WHERE id = ?}
                                        ,undef,param('tick'),$call->{id})){
                                $call->{landing_tick} = param('tick');
+                               $LOG->execute($ND::UID,"DC updated landing tick for call $call->{id}");
                        }else{
                                print "<p> Something went wrong: ".$DBH->errstr."</p>";
                        }
                }
-               if (param('info')){
+               if (param('cinfo')){
                        if ($DBH->do(q{UPDATE calls SET info = ? WHERE id = ?}
                                        ,undef,param('info'),$call->{id})){
                                $call->{info} = param('info');
+                               $LOG->execute($ND::UID,"DC updated info for call $call->{id}");
                        }else{
                                print "<p> Something went wrong: ".$DBH->errstr."</p>";
                        }

diff --git a/templates/calls.tmpl b/templates/calls.tmpl
index 5e721a1be1940df00f1c0898d04a130e31012471..298a848fb022c4a20df09ccb08657f1aefa8e2db 100644 (file)
--- a/templates/calls.tmpl
+++ b/templates/calls.tmpl
@@ -22,7 +22,7 @@
        </div>
        </TMPL_LOOP Fleets>
        </fieldset>
-       <p>Userful information:</p>
+       <p>Userful information. Change?<input type="checkbox" name="cinfo"/></p>
        <textarea rows="15" cols="80" name="info"><TMPL_VAR NAME=Info></textarea>
        <p>
                <input type="submit" name="cmd" value="Submit"/>