projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2213843)
In images Alt=... are defined.
authorAdam Dickmeiss <adam@indexdata.dk>
Tue, 2 Jan 1996 10:52:25 +0000 (10:52 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Tue, 2 Jan 1996 10:52:25 +0000 (10:52 +0000)
www/Makefile patch | blob | history
www/query.egw patch | blob | history
www/search.egw patch | blob | history
www/showfull.egw patch | blob | history
www/targets.egw patch | blob | history
www/z39util.tcl patch | blob | history

diff --git a/www/Makefile b/www/Makefile
index a568940..83a69fb 100644 (file)
--- a/www/Makefile
+++ b/www/Makefile
@@ -2,7 +2,10 @@
 # Europagate, 1995
 #
 # $Log: Makefile,v $
-# Revision 1.18  1995/12/20 16:31:30  adam
+# Revision 1.19  1996/01/02 10:52:25  adam
+# In images Alt=... are defined.
+#
+# Revision 1.18  1995/12/20  16:31:30  adam
 # Bug fix: shell might terminate even though new request was initiated
 # by the cgi interface program.
 # Work on more simple user interface and Europagate buttons.
@@ -70,9 +73,9 @@
 SHELL=/bin/sh
 #
 ZDEFS=
-ZINC=-I../../yaz/include
-ZLIB=../../yaz/lib/libyaz.a
-MOSILIB=../../xtimosi/src/libmosi.a ../../yaz/lib/librfc.a
+#ZINC=-I../../yaz/include
+ZLIB=-lyaz
+MOSILIB=../../xtimosi/src/libmosi.a -lrfc
 LIBIRTCL=/usr/local/lib/libirtcl.a $(ZLIB) $(MOSILIB)
 #NETLIB=-lnsl -lsocket
 #
diff --git a/www/query.egw b/www/query.egw
index df9b0ba..0c4832d 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.20 1995/12/21 15:49:52 adam Exp $
+# $Id: query.egw,v 1.21 1996/01/02 10:52:26 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -180,10 +180,11 @@ proc ok-response {} {
 <p>
 
 {
-    html {<img src="/gif/button-egw.gif" border=0></a>}
+    html {<img src="/gif/button-egw.gif" alt="Europagate" border=0></a>}
     html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/targets.egw}
-    html {"><img src="/gif/button-new-target.gif" border=0></a>}
+    html {"><img src="/gif/button-new-target.gif" alt="New Target" }
+    html {border=0 alt="New Target"></a>}
 }
 
 <hr>
diff --git a/www/search.egw b/www/search.egw
index 7f1c0ef..0feff70 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.20 1995/12/22 14:21:15 adam Exp $
+# $Id: search.egw,v 1.21 1996/01/02 10:52:28 adam Exp $
 
 proc perform-scan {} {
     global sessionId
@@ -26,34 +26,7 @@ proc perform-scan {} {
     set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
     set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
     
-    set hist($setNo,form,menu1) [wform menu1]
-    set hist($setNo,form,menu2) [wform menu2]
-    set hist($setNo,form,menu3) [wform menu3]
-
-    set hist($setNo,form,entry1) [wform entry1]
-    set hist($setNo,form,entry2) [wform entry2]
-    set hist($setNo,form,entry3) [wform entry3]
-
-    set hist($setNo,form,logic1) [wform logic1]
-    set hist($setNo,form,logic2) [wform logic2]
-
-    set host $hist($setNo,host)
-    set databases [lindex $targets($host) 1]
-
-    set b [wform base]
-    if {[wform baseall] != ""} {
-       set hist($setNo,database) $databases
-    } elseif {$b == ""} {
-        set hist($setNo,database) $databases
-    } else {
-        set hist($setNo,database) $b
-    }
-    set hist($setNo,maxPresent) [wform hits]
-    if {$hist($setNo,maxPresent) == ""} {
-        set hist($setNo,maxPresent) 30
-    }
     set host $hist($setNo,host)
-    set databases [lindex $targets($host) 1]
 
     html "<head><title> WWW/Z39.50 Gateway Scan " $host " </title>\n"
     html "</head><body>\n"
@@ -98,16 +71,17 @@ proc buttons {setNo setMax startPos after} {
 
     html "<p>\n"
     if {$useIcons} {
-        html {<img src="/gif/button-egw.gif">}
+        html {<img src="/gif/button-egw.gif" alt="Europagate" border=0>}
     }
     if {$setMax < [z39.$setNo resultCount]} {
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
         html + [expr $setMax + $hist($setNo,maxPresent)]
         if {$useIcons} {
-            html {"><img src="/gif/button-next-records.gif" border=0></a>}
+            html {"><img src="/gif/button-next-records.gif" alt="Next Records"}
+           html { border=0></a>}
         } else {
-            html {">Next records</a>} " | \n"
+            html {">Next Records</a>} " | \n"
         }
     }
     if {$startPos != "" && $startPos != "1"} {
@@ -116,25 +90,28 @@ proc buttons {setNo setMax startPos after} {
         html + [expr $startPos - $hist($setNo,maxPresent)]
         html + [expr $startPos - 1]
         if {$useIcons} {
-            html {"><img src="/gif/button-previous-records.gif" border=0></a>}
+            html {"><img src="/gif/button-previous-records.gif" }
+           html {alt="Previous Records" border=0></a>}
         } else {
-            html {">Previous records</a>} " | \n"
+            html {">Previous Records</a>} " | \n"
         }
     }
     html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo 
     if {$useIcons} {
-        html {"><img src="/gif/button-new-query.gif" border=0></a>}
+        html {"><img src="/gif/button-new-query.gif" }
+       html {alt="New Query" border=0></a>}
     } else {
-        html {">New query</a>} " | \n"
+        html {">New Query</a>} " | \n"
     }
 
     html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/targets.egw}
     if {$useIcons} {
-        html {"><img src="/gif/button-new-target.gif" border=0></a>}
+        html {"><img src="/gif/button-new-target.gif" }
+       html {alt="New Target" border=0></a>}
     } else {
-        html {">New target</a>}
+        html {">New Target</a>}
     }
     html "<p>\n"
     if {!$useIcons && !$after && $startPos != "" && $startPos != "1"} {
@@ -169,20 +146,6 @@ proc buttons {setNo setMax startPos after} {
         } else {
             catch {unset hist($setNo,hits)}
         }
-        if {[wform submit] == "Scan"} {
-            perform-scan
-            wabort
-        }
-        set query [build-query $hist($setNo,host) 3]
-        if {"x$query" == "x"} {
-            html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
-            displayError "Empty query" \
-                "You must specify at least one search word"
-            html "</body></html>\n"
-            wabort
-        }
-        set hist($setNo,query) $query
-
         set hist($setNo,form,menu1) [wform menu1]
         set hist($setNo,form,menu2) [wform menu2]
         set hist($setNo,form,menu3) [wform menu3]
@@ -193,7 +156,7 @@ proc buttons {setNo setMax startPos after} {
 
         set hist($setNo,form,logic1) [wform logic1]
         set hist($setNo,form,logic2) [wform logic2]
-
+        
         set host $hist($setNo,host)
         set databases [lindex $targets($host) 1]
 
@@ -209,9 +172,22 @@ proc buttons {setNo setMax startPos after} {
         if {$hist($setNo,maxPresent) == ""} {
             set hist($setNo,maxPresent) 30
         }
+
+        if {[wform submit] == "Scan"} {
+            perform-scan
+            wabort
+        }
+        set query [build-query $hist($setNo,host) 3]
+        if {"x$query" == "x"} {
+            html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
+            displayError "Empty query" \
+                "You must specify at least one search word"
+            html "</body></html>\n"
+            wabort
+        }
+        set hist($setNo,query) $query
     }
     set host $hist($setNo,host)
-    set databases [lindex $targets($host) 1]
 
     html "<head><title> WWW/Z39.50 Gateway Search " $host " </title>\n"
     html "</head><body>\n"
diff --git a/www/showfull.egw b/www/showfull.egw
index aed8080..3286321 100644 (file)
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: showfull.egw,v 1.13 1995/12/21 15:49:52 adam Exp $
+# $Id: showfull.egw,v 1.14 1996/01/02 10:52:29 adam Exp $
 
 proc buttons {setNo tno no format count host after} {
     global sessionId
@@ -18,16 +18,17 @@ proc buttons {setNo tno no format count host after} {
         html "</center><p>\n"
     }
     if {$useIcons} {
-        html {<img src="/gif/button-egw.gif">}
+        html {<img src="/gif/button-egw.gif" alt="Europagate" border=0>}
     }
     if {$no < $count} {
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/showfull.egw/} $setNo + $tno + 
         html [expr $no + 1] + $format
         if {$useIcons} {
-            html {"><img src="/gif/button-next-record.gif" border=0></a>}
+            html {"><img src="/gif/button-next-record.gif" }
+           html {alt="Next Record" border=0></a>}
         } else {
-            html {">Next record</a>} " | \n"
+            html {">Next Record</a>} " | \n"
         }
     }
     if {$no > 1} {
@@ -35,9 +36,10 @@ proc buttons {setNo tno no format count host after} {
         html / $sessionId {/showfull.egw/} $setNo + $tno +
         html [expr $no - 1] + $format
         if {$useIcons} {
-            html {"><img src="/gif/button-previous-record.gif" border=0></a>}
+            html {"><img src="/gif/button-previous-record.gif" }
+           html {alt="Previous Record" border=0></a>}
         } else {
-            html {">Previous record</a>} " | \n"
+            html {">Previous Record</a>} " | \n"
         }
     }
 
@@ -46,16 +48,18 @@ proc buttons {setNo tno no format count host after} {
     if {$format == "full"} {
         html raw 
         if {$useIcons} {        
-            html {"><img src="/gif/button-raw-marc.gif" border=0></a>}
+            html {"><img src="/gif/button-raw-marc.gif" }
+           html {alt="Raw Format" border=0></a>}
         } else {
-            html {">Raw format</a>} " | \n"
+            html {">Raw Format</a>} " | \n"
         }
     } else {
         html full
         if {$useIcons} {
-            html {"><img src="/gif/button-full-format.gif" border=0></a>}
+            html {"><img src="/gif/button-full-format.gif" }
+           html {alt="Full Format" border=0></a>}
         } else {
-            html {">Full format</a>} " | \n"
+            html {">Full Format</a>} " | \n"
         }
     }
 
@@ -68,9 +72,10 @@ proc buttons {setNo tno no format count host after} {
     html $setNo + 1
     html + $hist($setNo,maxPresent)
     if {$useIcons} {
-        html {"><img src="/gif/button-result-set.gif" border=0></a>}
+        html {"><img src="/gif/button-result-set.gif" }
+       html {alt="Result Set" border=0></a>}
     } else {
-        html {">Result set</a>} " | \n"
+        html {">Result Set</a>} " | \n"
     }
     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId 
     if {$tno > 0} {
@@ -80,9 +85,10 @@ proc buttons {setNo tno no format count host after} {
     }
     html $host + $setNo 
     if {$useIcons} {
-        html {"><img src="/gif/button-new-query.gif" border=0></a>}
+        html {"><img src="/gif/button-new-query.gif" }
+       html {alt="New Query" border=0></a>}
     } else {
-        html {">New query</a>} " | \n"
+        html {">New Query</a>} " | \n"
     }
     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId 
     if {$tno > 0} {
@@ -91,9 +97,10 @@ proc buttons {setNo tno no format count host after} {
         html {/targets.egw} 
     }
     if {$useIcons} {
-        html {"><img src="/gif/button-new-target.gif" border=0></a>}
+        html {"><img src="/gif/button-new-target.gif" }
+       html {alt="New Target" border=0></a>}
     } else {
-        html {">New target</a>}
+        html {">New Target</a>}
     }
     html "<p>\n"
     if {!$useIcons && !$after && $no > 1} {
diff --git a/www/targets.egw b/www/targets.egw
index 9726f97..f954c23 100644 (file)
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: targets.egw,v 1.9 1995/12/21 15:49:53 adam Exp $
+# $Id: targets.egw,v 1.10 1996/01/02 10:52:30 adam Exp $
     source /usr/local/etc/httpd/conf/ztargets.conf
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -14,10 +14,17 @@
 <img src="/gif/button-egw.gif" Alt="EUROPAGATE">
 </center>
 
-<h2>Choose Z39.50 target</h2>
+<h2>Choose Z39.50 target</h2><br>
 <dl>
 {
-    foreach t [array names targets] {
+    proc targetsCmp {l r} {
+        global targets
+        return [string compare [string tolower [lindex $targets($l) 0]] \
+                               [string tolower [lindex $targets($r) 0]]]
+    }
+    set tt [array names targets]
+    set tn [lsort -command targetsCmp $tt]
+    foreach t $tn {
         html {<dt><a href="http:} $env(SCRIPT_NAME) /
         html "$sessionId/query.egw/$t" {"> } [lindex $targets($t) 0] " </a>\n"
         set desc [lindex $targets($t) 4]
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 8035c60..3a2c694 100644 (file)
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.14 1995/12/22 14:21:16 adam Exp $
+# $Id: z39util.tcl,v 1.15 1996/01/02 10:52:32 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -858,7 +858,7 @@ proc z39history {} {
     if {![info exists nextSetNo]} {
         return
     }
-    html "<hr><h3>History</h3><dl>\n"
+    html "<hr><h2>History</h2><dl><br>\n"
     for {set setNo 1} {$setNo < $nextSetNo} {incr setNo} {
         html {<dt> <a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + 1
@@ -884,7 +884,7 @@ proc z39history {} {
 
 proc displayError {msga msgb} {
     html "<p><center>\n"
-    html {<img src="/gif/noway.gif">}
+    html {<img src="/gif/noway.gif" alt="Error">}
     html "<h2>" $msga "</h2>\n"
     if {$msgb != ""} {
         html "<h3>" $msgb "</h3>\n"
@@ -892,4 +892,4 @@ proc displayError {msga msgb} {
     html "</center><p>\n"
 }
 
-set useIcons 1
\ No newline at end of file
+set useIcons 1
Europgate