From: The PCI ID Mail Robot Date: Thu, 16 Oct 2008 20:49:18 +0000 (+0200) Subject: Merge branch 'master' of /home/vorner/pciids X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=a5f2993ffdf465560753de63c266e9e5b93ba7c7;hp=5e8be5e1dc4e58ae00fe0dde45cfc905fc37b8b0;p=pciids.git Merge branch 'master' of /home/vorner/pciids --- diff --git a/PciIds/Html/Admin.pm b/PciIds/Html/Admin.pm index 04d8a65..7b73cb4 100644 --- a/PciIds/Html/Admin.pm +++ b/PciIds/Html/Admin.pm @@ -46,14 +46,14 @@ sub mailEncode( $$ ) { sub genHist( $$$$$$$$$$$ ) { my( $class, $email, $login, $time, $name, $note, $disc, $selname, $selvalue, $delname, $delvalue ) = @_; - print "\n"; + print ""; print "\n"; if( defined $delname ) { - print "\n" if defined $delname + print "\n"; } else { - print ""; + print "\n"; } - print "\n"; + print ""; if( defined $name ) { if( $name eq '' ) { print "Deletion request
"; @@ -66,16 +66,16 @@ sub genHist( $$$$$$$$$$$ ) { print ""; print "".mailEncode( $email, $login )."
" if( defined $email ); print "".safeEncode( $time ).""; - print ""; } sub genNewForm( $$ ) { my( $num, $values ) = @_; print ""; - print "\n"; + print ""; + print "\n"; print "Name: Note:
\n"; print "\n"; - print "\n"; + print ""; if( @{$values} ) { print ""; + print "\n"; + print "\n"; + print "" if( $subcnt ); + $subcnt = 0; + $cnt ++; + print ""; if( hasRight( $auth->{'accrights'}, 'prune' ) || ( !defined $actHist && !$tables->hasChildren( $addr->get() ) ) ) { print ""; } else { print ""; } - print ""; print ""; genPathBare( $req, $addr, 1, 0, $tables ); - print "" if( $subcnt ); + print ""; if( defined $actHist ) { genHist( 'main-history', $actEmail, $actLogin, $actTime, $actName, $actNote, $actDisc, "loc-$cnt-sel", 'seen', undef, undef ); } else {