[interchange-cvs] interchange - docelic modified code/UI_Tag/backup_database.coretag

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2005-04-27 20:38:32 GMT
Modified:  code/UI_Tag backup_database.coretag
Log:
Lowercase those few <UL><LI> tags and provide closing element (</li>) for <li>s

Revision  Changes    Path
1.5       +5 -5      interchange/code/UI_Tag/backup_database.coretag


rev 1.5, prev_rev 1.4
Index: backup_database.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/backup_database.coretag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- backup_database.coretag	14 Feb 2005 00:42:52 -0000	1.4
+++ backup_database.coretag	27 Apr 2005 20:38:31 -0000	1.5
@@ -1,10 +1,10 @@
 # Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: backup_database.coretag,v 1.4 2005/02/14 00:42:52 docelic Exp $
+# $Id: backup_database.coretag,v 1.5 2005/04/27 20:38:31 docelic Exp $
 
 UserTag backup-database Order    tables
 UserTag backup-database AddAttr
-UserTag backup-database Version  $Revision: 1.4 $
+UserTag backup-database Version  $Revision: 1.5 $
 UserTag backup-database Routine  <<EOR
 sub {
 	my ($tables, $opt) = @_;
@@ -220,9 +220,9 @@
 		}
 	}
 	if(@errors) {
-		$::Scratch->{ui_error} = '<UL><LI>';
-		$::Scratch->{ui_error} .= join "<LI>", @errors;
-		$::Scratch->{ui_error} .= '</UL>';
+		$::Scratch->{ui_error} = '<ul><li>';
+		$::Scratch->{ui_error} .= join "</li>\n<li>", @errors;
+		$::Scratch->{ui_error} .= '</li></ul>';
 	}
 	return $done;
 }