Fix some perl errors introduced by ui_link conversion

This commit is contained in:
Jamie Cameron
2014-07-03 23:15:39 -07:00
parent 786ee28216
commit a9ed2549b4
7 changed files with 14 additions and 13 deletions
+2 -2
View File
@@ -89,8 +89,8 @@ print "<table width=100%>\n";
&traverse("", 0);
print "</table>\n";
if ($hasclasses) {
print &ui_link("closeall.cgi?id=$in{'id'}",$text{'host_close'})\n";
print &ui_link("openall.cgi?id=$in{'id'}",$text{'host_open'})<p>\n";
print &ui_link("closeall.cgi?id=$in{'id'}",$text{'host_close'}),"\n";
print &ui_link("openall.cgi?id=$in{'id'}",$text{'host_open'}),"<p>\n";
}
&ui_print_footer("", $text{'index_return'});
+3 -3
View File
@@ -40,14 +40,14 @@ if ($config{'md5'}) {
print &ui_subheading(&text('index_file', "<tt>$config{'file'}</tt>"));
$users = &list_users();
if (@$users) {
print &ui_link("edit.cgi?new=1",$text{'index_add'})<br>\n"
print &ui_link("edit.cgi?new=1",$text{'index_add'}),"<br>\n"
if ($access{'create'});
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'index_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
for($i=0; $i<@$users; $i++) {
$u = $users->[$i];
$link = &ui_link("edit.cgi?idx=$u->{'index'}","$u->{'user'}");
$link = &ui_link("edit.cgi?idx=$u->{'index'}",$u->{'user'});
print "<tr>\n" if ($i%4 == 0);
if ($u->{'enabled'}) {
print "<td width=25%>$link</td>\n";
@@ -66,7 +66,7 @@ if (@$users) {
else {
print "<b>$text{'index_none'}</b><p>\n";
}
print &ui_link("edit.cgi?new=1",$text{'index_add'})<p>\n"
print &ui_link("edit.cgi?new=1",$text{'index_add'}),"<p>\n"
if ($access{'create'});
if ($access{'sync'}) {
+1 -1
View File
@@ -226,7 +226,7 @@ if ($in{'lv'}) {
if (@pvinfo) {
foreach $p (@pvinfo) {
($pv) = grep { $_->{'name'} eq $p->[0] } @pvs;
push(@pvlist, &ui_link("edit_pv.cgi?vg=$in{'vg'}&pv=$pv->{'name'}",$pv->{'name'}) ".&nice_size($p->[1]*$pv->{'pe_size'}*1024));
push(@pvlist, &ui_link("edit_pv.cgi?vg=$in{'vg'}&pv=$pv->{'name'}",$pv->{'name'}).&nice_size($p->[1]*$pv->{'pe_size'}*1024));
}
print &ui_table_row($text{'lv_pvs'},
&ui_grid_table(\@pvlist, 4), 3);
+2 -2
View File
@@ -18,7 +18,7 @@ if (!-r $config{'login_config'}) {
print "$text{'dialin_desc'}<p>\n";
if (@dialin) {
print &ui_link("edit_dialin.cgi?new=1",$text{'dialin_add'})<br>\n";
print &ui_link("edit_dialin.cgi?new=1",$text{'dialin_add'}),"<br>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'dialin_number'}</b></td> ",
"<td><b>$text{'dialin_ad'}</b></td> ",
@@ -54,7 +54,7 @@ if (@dialin) {
else {
print "<b>$text{'dialin_nonumbers'}</b> <p>\n";
}
print &ui_link("edit_dialin.cgi?new=1",$text{'dialin_add'})<p>\n";
print &ui_link("edit_dialin.cgi?new=1",$text{'dialin_add'}),"<p>\n";
&ui_print_footer("", $text{'index_return'});
+2 -2
View File
@@ -17,7 +17,7 @@ print &text('mgetty_desc', "<tt>mgetty</tt>"),"<p>\n";
@mgi = &mgetty_inittabs();
if (@mgi) {
print &ui_link("edit_mgetty.cgi?new=1",$text{'mgetty_add'})<br>\n";
print &ui_link("edit_mgetty.cgi?new=1",$text{'mgetty_add'}),"<br>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'mgetty_tty'}</b></td> ",
"<td><b>$text{'mgetty_type'}</b></td> ",
@@ -63,7 +63,7 @@ if (@mgi) {
else {
print "<b>$text{'mgetty_none'}</b><p>\n";
}
print &ui_link("edit_mgetty.cgi?new=1",$text{'mgetty_add'})<p>\n";
print &ui_link("edit_mgetty.cgi?new=1",$text{'mgetty_add'}),"<p>\n";
print &ui_hr();
print "<form action=mgetty_apply.cgi>\n";
+2 -2
View File
@@ -7,7 +7,7 @@ $access{'master'} || &error($text{'master_ecannot'});
&ui_print_header(undef, $text{'master_title'}, "", "master");
$master = &get_master_config();
print &ui_link("edit_master.cgi?new=1",$text{'master_add'})<br>\n";
print &ui_link("edit_master.cgi?new=1",$text{'master_add'}),"<br>\n";
print &ui_columns_start([ $text{'master_name'},
$text{'master_enabled'},
$text{'master_type'},
@@ -32,6 +32,6 @@ foreach $m (@$master) {
]);
}
print &ui_columns_end();
print &ui_link("edit_master.cgi?new=1",$text{'master_add'})<br>\n";
print &ui_link("edit_master.cgi?new=1",$text{'master_add'}),"<br>\n";
&ui_print_footer("", $text{'index_return'});
+2 -1
View File
@@ -31,7 +31,8 @@ else {
# Work out select/create links
@links = ( &select_all_link("d"),
&select_invert_link("d"),
&ui_link("edit.cgi?table=$in{'table'}&new=1","$text{$in{'tableclean'}."_add"}") );
&ui_link("edit.cgi?table=$in{'table'}&new=1",
$text{$in{'tableclean'}."_add"}) );
if (&version_atleast(3, 3, 3) && &indexof($in{'table'}, @comment_tables) >= 0) {
push(@links, &ui_link("editcmt.cgi?table=$in{'table'}&new=1","$text{"comment_add"}"));
}