Fix some perl errors introduced by ui_link conversion
This commit is contained in:
@@ -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'});
|
||||
|
||||
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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"}"));
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user