projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Major re-rodering to sync. with editing page.
[irspy-moved-to-github.git]
/
web
/
htdocs
/
details
/
edit.mc
diff --git
a/web/htdocs/details/edit.mc
b/web/htdocs/details/edit.mc
index
8bab7b2
..
d437ec0
100644
(file)
--- a/
web/htdocs/details/edit.mc
+++ b/
web/htdocs/details/edit.mc
@@
-1,4
+1,4
@@
-%# $Id: edit.mc,v 1.26 2007-01-24 09:28:02 mike Exp $
+%# $Id: edit.mc,v 1.28 2007-03-19 18:51:18 mike Exp $
<%args>
$op
$id => undef
<%args>
$op
$id => undef
@@
-38,7
+38,7
@@
my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
if (defined $id && ($op ne "copy" || !$update)) {
# Existing record
my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
if (defined $id && ($op ne "copy" || !$update)) {
# Existing record
- my $query = 'rec.id="' . cql_quote($id) . '"';
+ my $query = cql_target($id);
my $rs = $conn->search(new ZOOM::Query::CQL($query));
if ($rs->size() > 0) {
$rec = $rs->record(0);
my $rs = $conn->search(new ZOOM::Query::CQL($query));
if ($rs->size() > 0) {
$rec = $rs->record(0);
@@
-81,6
+81,7
@@
my @fields =
qw() ],
[ country => [
"",
qw() ],
[ country => [
"",
+ "United States",
"Afghanistan",
"Albania",
"Algeria",
"Afghanistan",
"Albania",
"Algeria",
@@
-304,7
+305,6
@@
my @fields =
"Ukraine",
"United Arab Emirates",
"United Kingdom",
"Ukraine",
"United Arab Emirates",
"United Kingdom",
- "United States",
"Uruguay",
"Uzbekistan",
"Vanuatu",
"Uruguay",
"Uzbekistan",
"Vanuatu",
@@
-352,6
+352,7
@@
my @fields =
# awk -F'|' '$3 {print$4}'
# and shortening some of the longer names by hand
"",
# awk -F'|' '$3 {print$4}'
# and shortening some of the longer names by hand
"",
+ "English",
"Afar",
"Abkhazian",
"Afrikaans",
"Afar",
"Abkhazian",
"Afrikaans",
@@
-391,7
+392,6
@@
my @fields =
"Divehi; Dhivehi; Maldivian",
"Dutch; Flemish",
"Dzongkha",
"Divehi; Dhivehi; Maldivian",
"Dutch; Flemish",
"Dzongkha",
- "English",
"Esperanto",
"Estonian",
"Ewe",
"Esperanto",
"Estonian",
"Ewe",
@@
-561,7
+561,7
@@
if ($update && @changedFields) {
"e:metaInfo/e:dateModified" ] },
{ dateModified => isodate(time()) });
die "Didn't set dateModified!" if !@x;
"e:metaInfo/e:dateModified" ] },
{ dateModified => isodate(time()) });
die "Didn't set dateModified!" if !@x;
- ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id);
}
</%perl>
}
</%perl>