X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Fmenu.mc;h=d7d27b050ead306f6e9569bb6f0df106c35b459e;hb=e61822e08298d3fe51aa1eefa3fd9785ba2c83f8;hp=9747b54e77f33e0ad58370658da3a4f060b1a9dd;hpb=b9dbc3e5b8d00a1bdcaff7949876fd34243dabb0;p=irspy-moved-to-github.git diff --git a/web/htdocs/chrome/menu.mc b/web/htdocs/chrome/menu.mc index 9747b54..d7d27b0 100644 --- a/web/htdocs/chrome/menu.mc +++ b/web/htdocs/chrome/menu.mc @@ -1,9 +1,9 @@ -%# $Id: menu.mc,v 1.14 2006-11-16 17:02:30 mike Exp $ +%# $Id: menu.mc,v 1.19 2006-11-29 18:20:42 mike Exp $
Home
Test all targets
Find a target
- Add a target
+ Add a target
Show targets @@ -13,7 +13,6 @@ % }
<%perl> -our $rec; my $id = $r->param("id"); { # Make up ID for newly created records. It would be more @@ -29,22 +28,18 @@ my $id = $r->param("id"); if ((!defined $id || $id eq "") && defined $host && defined $port && defined $dbname) { $id = "$host:$port/$dbname"; -# $r->param(id => $id); -# $ARGS{id} = $id; #warn "id set to '$id'"; } } %perl> -% if (!defined $id) { -% $rec = undef; -% } else { +% if (defined $id && $r->param("op") ne "copy") {