3056 |
print("</SELECT> </TD></TR>\n"); |
print("</SELECT> </TD></TR>\n"); |
3057 |
|
|
3058 |
print "<tr><td align=left valign=top> Prikaži samo tip građe: </td><td align=left valign=top colspan=2>"; |
print "<tr><td align=left valign=top> Prikaži samo tip građe: </td><td align=left valign=top colspan=2>"; |
3059 |
foreach my $tip (keys %default::tip) { |
while (@default::tip_html) { |
3060 |
print '<input TYPE="checkbox" NAME="tip" VALUE="',nuke_accents($default::tip{$tip}),'" >',$default::tip{$tip},"  "; |
print '<input TYPE="checkbox" NAME="tip" VALUE="',nuke_accents(shift @default::tip_html),'" >',shift @default::tip_html,"  "; |
3061 |
} |
} |
3062 |
print "</td></tr>\n"; |
print "</td></tr>\n"; |
3063 |
|
|
6891 |
# Print out the message header (Content-Type) |
# Print out the message header (Content-Type) |
6892 |
if ( $DeliveryMethod eq "attachement" ) { |
if ( $DeliveryMethod eq "attachement" ) { |
6893 |
print("Mime-Version: 1.0\n"); |
print("Mime-Version: 1.0\n"); |
|
print("Content-Type: multipart/mixed; boundary=\"============_-1234567890==_============\"\n"); |
|
6894 |
} |
} |
6895 |
else { |
else { |
6896 |
print("Mime-Version: 1.0\n"); |
print("Mime-Version: 1.0\n"); |