AW: [Allegro] Kurztitelliste mit Chinesischen Schriftzeichen

[Andreas Wolf Consulting]

Hallo,

die Trennung wird im

sub HolKurztitel
{
    $jobtext  = "& $PfadParam\nfind # $nummern[$Position]";
    for( $i = 1; $i < $maxKurztitel && $Position + $i < $#nummern; $i++
)
    {
    $jobtext .= ",$nummern[$Position+$i]";
    }
    $jobtext .= "\n";
    local( $max ) = $i;
for( $i = 1; $i <= $max; $i++ )
{
$jobtext .= <<"Kurztitel";
    get $i

    write internal "/" short newline

Kurztitel
}
    $jobtext .= "@ DB=$Datenbank ID=$user/$passwd";
    $Input=&AuftragErgebnis;
}

bei 'write internal ...' gemacht und anschliessend im 

sub ZeigeKurztitel
{
    &Knoepfe;
    print <<"KurztitellisteAnfang";
<FORM ACTION="$HTMLScriptPfad/regsrch.pl" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="db" VALUE="$in{'db'}">
<TABLE WIDTH=100%>
KurztitellisteAnfang
    &PrintFortsetzung if( $Mitte == 0 || $Mitte == 1 );
    if(! $Input)
    {
	&KeinErgebnis;
	exit;
    }
    chop $Input;
    local( $BoxNr ) = 0;
    @InZeilen=split /^/m,$Input;    # Eingabestring in Zeilen zerlegen
foreach $Z ( @InZeilen )        # Zeile verarbeiten
    {
	( $SatzNummer, $KurzTitel ) = split( "/", $Z, 2 );
	$KurzTitel = &anz_prep( $KurzTitel );
        $KurzTitel =~ s/ / /g; 


verwendet. Ich verwende den Schrägstrich '/'. 

Viele Grüsse

Andreas Wolf